Blossom - Chaos into Order - GameCreators Forum

Author

Message

IanM

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 17th May 2006 22:17

Link

An effect stolen from the old days - updated now that we have this new-fangled floating point stuff, and larger integers

A one-liner that dips in just under the 25 command limit:

+ Code Snippet

Rate# = 0.1 : sync on : sync rate 0 : sync : sync : Level as double integer : Width = screen width() / 2 : Height = screen height() / 2 : for Zoom# = -30.0 to 30.0 step Rate# : lock pixels : for x = 0 to Width - 1 : for y = 0 to Height - 1 : Level = (x * x) + (y * y) : Level = (Level * Level) / (2.0 ^ Zoom#) : dot Width + x, Height + y, rgb( Level, 0, 0 ) : dot Width - x, Height + y, rgb( Level, 0, 0 ) : dot Width + x, Height - y, rgb( Level, 0, 0 ) : dot Width - x, Height - y, rgb( Level, 0, 0 ) : next : next : unlock pixels : sync : next Zoom#

If it runs a little too slowly for you, just change the Rate# variable to a slightly bigger number. It runs in a little over 18 seconds on my machine.

For free Plug-ins and source code http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

3Nigma

18

Years of Service

User Offline

Joined: 23rd Apr 2006

Location: RoManiA

Posted: 17th May 2006 23:57 Edited at: 21st May 2006 16:24

Link

It's a really nice effect!

Knowledge belongs to the world...but not this time

Back to top

Profile PM Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 18th May 2006 10:08

Link

what an incredible journey!

Starlord Omega: SCI-FI 4X TBS
http://forum.thegamecreators.com/?m=forum_view&t=61670&b=8

Back to top

Profile PM Email Website

NeX the Fairly Fast Ferret

19

Years of Service

User Offline

Joined: 10th Apr 2005

Location: The Fifth Plane of Oblivion

Posted: 18th May 2006 20:15

Link

It should repeat.

<OMG>

</OMG>
NeX, you cant be serious - CattleRustler.

Back to top

Profile PM Website

IanM

Retired Moderator

21

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 19th May 2006 01:21

Link

It would have, but that would have made it very difficult to end the program.

I've done that and added 3 more commands to allow you to escape out ... now it's two lines/28 commands

+ Code Snippet

Rate# = 0.1 : sync on : sync rate 0 : sync : sync : Level as double integer : Width = screen width() / 2 : Height = screen height() / 2
do : for Zoom# = -30.0 to 30.0 step Rate# : lock pixels : for x = 0 to Width - 1 : for y = 0 to Height - 1 : Level = (x * x) + (y * y) : Level = (Level * Level) / (2.0 ^ Zoom#) : dot Width + x, Height + y, rgb( Level, 0, 0 ) : dot Width - x, Height + y, rgb( Level, 0, 0 ) : dot Width + x, Height - y, rgb( Level, 0, 0 ) : dot Width - x, Height - y, rgb( Level, 0, 0 ) : next : next : unlock pixels : sync : if escapekey() : exit : endif : next Zoom# : loop

For free Plug-ins and source code http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / Blossom - Chaos into Order