01-31-2003, 09:46 AM
Okay Here's my translucen plasma....
Could have made this better but ran out of time....
;*)
PS. Antoni: Post as many as you want!!!!
Code:
'Here's my entry(translucent Plasma!!!)
'I could have made this a lil bit smaller.
'Relsoft
'Note: you may not notice a thing in about 20 secs as its setting
'up the palette.
1 SCREEN 13 ': FOR I = 0 TO 255: LINE (I, 0)-(I, 10), I: NEXT I'Unrem to see the Pal
2 J& = (J& + 1) AND &H7FFFFFFF
3 IF J& < 257 THEN PALETTE J& - 1, 65536 * INT(32 - 31 * SIN(J& * 3.14151693# / 128)) + 256 * INT(32 - 31 * SIN(J& * 3.14151693# / 64)) + INT(32 - 31 * SIN(J& * 3.14151693# / 32)) ELSE R% = 64
4 FOR y% = 0 TO 100
5 FOR x% = 0 TO 160
6 R% = -R%
7 IF J& > 256 THEN PSET (x% + 80, y% + 50), (SIN((x% + R%) / (28)) * 32) + (SIN((x% + R% + (J& MOD 284)) / (45)) * -128) + (SIN((y% + R%) / (32)) * 64)
8 NEXT x%, y%
9 IF INKEY$ = "" THEN 2
Could have made this better but ran out of time....
;*)
PS. Antoni: Post as many as you want!!!!