A Beautiful accident! Weird, take a look..

[ShadowWolf]

i got bored just now so played with the code abit

Code:

SCREEN 19, 32, 2' ,-1 I can't run gfxlib in full screen :(

'mangleberry pie    :D
#DEFINE Pi 3.14 '15926535897932

x! = 150
y! = 150
z! = 150

Dim tSin(360) as Single, tCos(360) as Single

For i = 0 to 360
tSin(i) = SIN(i * (Pi/180))
tCos(i) = COS(i * (Pi/180))
Next

centx = 400
centy = 300
LENS = 256 ' centz
randomize timer
ax = 0
ay = 0
az = 0
T! = TIMER
DO
   press$ = INKEY$  
   cx! = tCos(ax)
   sx! = tSin(ax)
   cy! = tCos(ay)
   sy! = tSin(ay)
   cz! = tCos(az)
   sz! = tSin(az)
    

   ny! = (y! * cx!)-(z! * sx!)
   nz! = (z! * cx!)+(y! * sx!)
   y! = ny!
   z! = nz!
   nz! = (z! * cy!)-(x! * sy!)
   nx! = (x! * cy!)+(z! * sy!)
   x! = nx!
   nx! = (x! * cz!)-(y! * sz!)
   ny! = (y! * cz!)+(x! * sz!)
    
   ax += 1
   If ax > 360 then ax -= 360
    
   ay += 1
   If ay > 360 then ay -= 360
    
   az += 1
   If az > 360 then az -= 360
    
   PSET (centx + ny!/2, centy - nx!), RGB(nx! shr z! mod 255, ny! shl Z! mod 255, z!*cz! mod 255 )
   PSET (centx + nx!+int(rnd(100)), centy - ny!-int(rnd(100))), RGB(nx! shr z! mod 255, ny! shl Z! mod 255, z!*cz! mod 255 )
   F += 1
LOOP UNTIL press$ = CHR$(27)
PRINT "Average FPS:"; F / (TIMER - T!)
SLEEP

[Anonymous]

still boggles my mind that pset can go that fast in fb :P

its just crazy awesome

[Rattrapmax6]

Cool!!!!

Try to play with colors. Like adding thge color you want plus the color on screen limiting the RGB components to 255, and you'd get roughly a swirling hazy effect. :*)

Have to try that,.. its working of z! for a sorta depth, (was going for 3D rotation, not really working on X, & Y rots, Z rots are fine, but I just ran it w/o a delay or a clear screen to see what it do wide open, heh,as you see the effect) :wink:

Edit: Almost forgot, thats cool Shadow.. :wink:

[dumbledore]

:o wow.
lut made fps go from 364105 to 2128831. :o :o
crazy fast!

[thegrogen]

Wow! With LUT it went from 20,000 FPS to about 512,000 FPS! Sooooo fast...

[EDIT] Srry, that was wrong. In windowed mode it went about 315 000 FPS. It fullscreen it went 531 000 FPS! Before in fullscreen it was only going about 20 000 FPS.

[dumbledore]

comment the press$=inkey$ and change the loop to "LOOP UNTIL MULTIKEY(1)". gained another 500,000 fps for me. :wink:

[Rattrapmax6]

:rotfl:

If you guys pick up any more speed, its probably going to insinerate (aka, explode.. :wink: )

jk, yeah, INKEY$ has its ways of slowing down, never though of MULTIKEY, hmm... :roll: :wink:

[Mitthrawnuruodo]

Hey I tried converting it to QB's SCREEN 13 but I messed up the palette and all that came up was a starfield.....

But hey! My computer hit 55000 fps in QB! QB!

[Rattrapmax6]

Heh, thats fast,.. I'm going to try to place all my demos in to one big master EXE today.. then hopefully release it.. :wink:

[Mitthrawnuruodo]

tnx can't wait :bounce: