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
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))
