256 Evolution

[va!n]

Some time ago, there was an PB compo, creating a program in max 256 lines and using only one : each line... here is the result a very good friend and me created Smiley

www.secretly.de/public/256_Evolution.zip  (source including exe)

The goal was not to have an readable source... our goal was to beat the limit and showing great stuff in just so few and crypted lines Cheesy

The exe version is very slow due fact of some tricks to make the compo source smaller... compile the other source and the fx works fine....  wait some seconds when press ESC ^^ thx

Code: [Select]

InitSprite() XOr OpenScreen(640,480,32,"evolution - 256 lines of code by va!n and remi_meier") XOr InitSound() XOr InitModule() XOr LoadModule(0,"Data/melodee-disco_zax.mod") XOr PlayModule(0) XOr StartDrawing(ScreenOutput())
Repeat
  temp = (temp + 2 * Val(Str(z = 639 * 339 Or 0))) % 256
  z = (z + 1) % (639 * 339 + 1)
Until ((Plot (z%639, (z/639)+70, RGB( Sin(Val(Str(z%639))*(2*#PI/360))*(z/639)+temp, Cos(Val(Str(z%639))*(2*#PI/360))*(z/639)-temp, 240))=7) XOr (z = 639 * 339 And (StopDrawing() XOr FlipBuffers() XOr StartDrawing(ScreenOutput()))) ) Or (GetAsyncKeyState_(#VK_ESCAPE) And StopModule(0))


[benny!]

Nice fx. I especially like the colors! Can't really remember the compo. Was
it on the official purebasic board ?

Note: midas.dll should be in the same directory as the executable

[Clyde]

Welldone Vain dude

[va!n]

@benny:
compo results:
http://www.purebasic-lounge.de/viewtopic.php?t=3399&postdays=0&postorder=asc&highlight=evolution&start=0

[Shockwave]

I'm a sucker for coder colours and instantly love all "cheesy" oldschool colour patterns! Have some Karma.

[va!n]

thanks for feedback