plasma old school - GameCreators Forum

Author

Message

Jukuma

21

Years of Service

User Offline

Joined: 18th Nov 2003

Location: Germany

Posted: 2nd Oct 2005 03:00 Edited at: 4th Oct 2005 00:39

Link

i hope this code is not to often showed
in this version

bitmap part

+ Code Snippet

#constant freq = 32
#constant tab  = 32

sync on : sync rate 60 : color backdrop 0

dim cosi(511)
dim color(255)

w1 as byte
w2 as byte
w3 as byte

for i = 0 to 511
   cosi(i) = cos((360 * i) / 256) * freq + tab
next i

for i = 0 to 85    : color(i) = rgb(255 - i * 3, i * 3, 0) : next i
for i = 86 to 170  : color(i) = rgb(0, 255 - i * 3, i * 3) : next i
for i = 171 to 255 : color(i) = rgb(i * 3, 0, 255 - i * 3) : next i

repeat

   gosub _plasma
   sync

until mouseclick()

end

_plasma:

   inc w1, 2
   inc w2, 2
   inc w3, 3

   lock pixels

   for y = 0 to 255

      d = cosi(y + w2) + cosi(y + w3)

      for x = 0 to 255

         c = (cosi(x + w1) + cosi(x + y) + d) and 255
         dot x, y, color(c)

      next x

   next y

   unlock pixels

return

image part

#constant freq = 32
#constant tab  = 32

sync on : sync rate 60 : color backdrop 0

dim cosi(511)
dim color(255)

w1 as byte
w2 as byte
w3 as byte

get image 1, 0, 0, 256, 256
make memblock from image 1, 1

for i = 0 to 511
 cosi(i) = cos((360 * i) / 256) * freq + tab
next i

for i = 0 to 85    : color(i) = rgb(255 - i * 3, i * 3, 0) : next i
for i = 86 to 170  : color(i) = rgb(0, 255 - i * 3, i * 3) : next i
for i = 171 to 255 : color(i) = rgb(i * 3, 0, 255 - i * 3) : next i

make object cube 1, 256
texture object 1, 1
set object light 1, 0

repeat

turn object left 1, 0.1
   pitch object up 1, 0.2
   roll object left 1, 0.3

gosub _plasma
   sync

until mouseclick()

end

_plasma:

inc w1, 2
   inc w2, 2
   inc w3, 3

for y = 0 to 255

d = cosi(y + w2) + cosi(y + w3)

for x = 0 to 255

c = (cosi(x + w1) + cosi(x + y) + d) and 255
         write memblock dword 1, 12 + (x + y * 256) * 4, color(c)

next x

next y

make image from memblock 1, 1

return

+ Code Snippet

#constant freq = 32
#constant tab  = 32

sync on : sync rate 60 : color backdrop 0

dim cosi(511)
dim color(255)

w1 as byte
w2 as byte
w3 as byte

get image 1, 0, 0, 256, 256
make memblock from image 1, 1

for i = 0 to 511
 cosi(i) = cos((360 * i) / 256) * freq + tab
next i

for i = 0 to 85    : color(i) = rgb(255 - i * 3, i * 3, 0) : next i
for i = 86 to 170  : color(i) = rgb(0, 255 - i * 3, i * 3) : next i
for i = 171 to 255 : color(i) = rgb(i * 3, 0, 255 - i * 3) : next i

make object cube 1, 256
texture object 1, 1
set object light 1, 0

repeat

   turn object left 1, 0.1
   pitch object up 1, 0.2
   roll object left 1, 0.3

   gosub _plasma
   sync

until mouseclick()

end

_plasma:

   inc w1, 2
   inc w2, 2
   inc w3, 3

   for y = 0 to 255

      d = cosi(y + w2) + cosi(y + w3)

      for x = 0 to 255

         c = (cosi(x + w1) + cosi(x + y) + d) and 255
         write memblock dword 1, 12 + (x + y * 256) * 4, color(c)

      next x

   next y

   make image from memblock 1, 1

return

demo part

#constant freq = 64
#constant tab  = 32

sync on : sync rate 60 : backdrop off : autocam off

dim cosi(511)
dim color(255)

w1 as byte
w2 as byte
w3 as byte

for i = 1 to 3

make object sphere i, 128, 32, 32
   set object light i, 0

read x, y, z
   position object i, x, y, z

next i

MakeSong()

make object plain 10, 1024, 1024
pitch object up 10, 90
set reflection shading on 10

get image 11, 0, 0, 256, 256
make memblock from image 1, 11

make object sphere 11, 1024, 32, 32
set object cull 11, 0
set object light 11, 0
texture object 11, 11

for i = 0 to 511
   cosi(i) = cos((360 * i) / 256) * freq + tab
next i

for i = 0 to 85    : color(i) = rgb(255 - i * 3, i * 3, 0) : next i
for i = 86 to 170  : color(i) = rgb(0, 255 - i * 3, i * 3) : next i
for i = 171 to 255 : color(i) = rgb(i * 3, 0, 255 - i * 3) : next i

repeat

gosub _plasma

set camera to follow 0, 0, 0, a#, 400, 128 + sin(a#) * 64, 1, 0
   point camera 0, 0, 0

a# = a# + 0.7

set cursor 0, 0
   print screen fps()

inc o : if o > 3 then o = 1
   SyncCams(o)

until mouseclick()

end

_plasma:

inc w1, 2
   inc w2, 2
   inc w3, 3

for y = 0 to 255
      for x = 0 to 255

c = cosi(x + y) + cosi(x + w1) + cosi(y + w2) + cosi(y + w3) and 255
         write memblock dword 1, 12 + (x + y * 256) * 4, color(c)

next x
   next y

make image from memblock 11, 1

return

data -150, 64, 0
data 0, 64, -150
data 150, 64, 0

function SyncCams(o)

restore camdata

for c = 1 to 6

make camera c

read x, y, z
      rotate camera c, x, y, z
      position camera c, object position x(o), object position y(o), object position z(o)

set camera aspect c, 1
      set camera fov c, 90
      set camera to image c, c, 128, 128

next c

sync

for c = 1 to 6 : delete camera c : next c

set cube mapping on o, 1, 2, 3, 4, 5, 6

camdata:
   data 0, 90, 0
   data 0, 270, 0
   data 270, 0, 0
   data 90, 0, 0
   data 0, 0, 0
   data 0, 180, 0

endfunction

function Deco(d$, i)

n = asc(mid$(d$, i)) - 48
   b = (n - (n > 9) * 7) * 16
   n = asc(mid$(d$, i + 1)) - 48
   b = b + (n - (n > 9) * 7)

endfunction b

function MakeSong()

restore songdata

open to write 1,"temp.dat"

do

read d$
      if d$ = "EOF" then exit

for i = 1 to len(d$) step 2
         write byte 1, Deco(d$, i)
      next i

loop

close file 1

load music "temp.dat",1 : loop music 1 : delete file "temp.dat"

songdata:
   data "4D546864000000060000000100604D54726B000020D200FF030B4C657961277320536F6E6700FF02"
   data "14284329313939312041647269616E2053636F747400FF58040302180800FF510307A10000F00A41"
   data "10421240007F0041F760F019411042124001100203020308060000000000000000000017F700F00A"
   data "41104212400134503BF705B0790000B0000000B0200000C00500B0075500B00A6400B05B5500B05D"
   data "0005B1790000B1000000B1200000C12300B1075500B10A4000B15B0500B15D0005B2790000B20000"
   data "00B2200000C23500B2077F00B20A4000B25B6400B25D0000B20B6405B3790000B3000000B3200000"
   data "C31900B3074600B30A1400B35B4100B35D0005B4790000B4000000B4200000C43100B4076400B40A"
   data "4000B45B7F00B45D0005B5790000B5000000B5200000C57800B5072300B50A1400B55B2800B55D00"
   data "14B9790000B9000000B9200000C90000B9075A00B90A4000B95B2800B95D0000B9631D00B9622300"
   data "B90605810EFF58040402180801932B7A01911F500094323200942B2D2F933E613193477404833E40"
   data "2B933E671D834740139337600093437A30834340009345785B8345400593476E03833E4006832B40"
   data "0295427F25932B630B8337402693397A0E8542402183394000933B7830934362088347402993375E"
   data "00992A7F01892A402B833B4003933E6301904F5700992A4001892A4009953C7F26905B5A00992A20"
   data "01892A402A832B4004933C6301992A1001892A400D853C401B84324006932B5F019434320B833740"
   data "2493397A0A833C4024833E400283394000933C7A018343403093435C2F93375D30833C4000933E64"
   data "61933C6203832B4028804F4004805B4000932B62028337402E93397807833C400C833E401D933C6E"
   data "02833940088343402693436421833C400F93375D00992A7F01892A402F933E610190435600992A40"
   data "01892A402E904F5601992A2001892A401B954B7F0C832B4007933B6201905B5F00992A1001892A40"
   data "1C84344006811F400C932B7801912B4E009432320483374005833B4017854B4009833E4006933E63"
   data "028343402E93476F01924364009247780D833E40048247400582434019933E620192435000924764"
   data "0E8247400882434019834740009343790193375C019247500092433C0F824740048243401B93456E"
   data "0192473C00924328018343400E804340048243400182474003804F40189247280192431403805B40"
   data "0E824340018247400F832B40088345400693477801833E4000924714098247400195447F25932B5D"
   data "058337400C812B401D913951029339780F8544401CE1204004E1254A01933B7801E14D5A01833940"
   data "03E1787002E17F7F23E13B7703E1356B03E14E5C0093436603E1674F03E103470283474000E16142"
   data "02E1404004E100401D813940009132500593376200992A7F01892A402F933E6401833B4000992A40"
   data "01892A4000E1624402E1674F03E1506103E15B7602E17F7F23E11F7E0190435101992A2001892A40"
   data "00E1187103E1106003E1674F02E1034702E1614204E1404003E10040009550641D933C7301904F5F"
   data "00992A1001892A4004832B401984324011932B6C0194343201833C4002833740138550401A933979"
   data "2A83434001833E4005933C7801924878009243640183394011824840028243401A93436201924864"
   data "0092435016824340008248401993375D019248500092433C138243400382484019933E5F0192483C"
   data "0092432801833C4010824340038248400380434008804F4010924828019243141282434000824840"
   data "15832B4008933C62019248140092430A11824340038248401B932B692D912D510181324002933978"
   data "05833C402483434001E1044902E12E5C02833E4001E11C7901933C6E0283394000E17F7F0A833740"
   data "1CE17F7E03E1387004E16F5E0193434101E1074F02E1434603E1614204E1404002E100401C812D40"
   data "0491265004992A7F01892A4029E1024404E1285101E1536601992A4001892A4001E15D7B03E17F7F"
   data "26E13F7E04E1787001992A2001892A4000E12F5F03E1074F02E1434603E1614203E1404003E10040"
   data "15833C400C992A1001892A400A95437F0383434001E1204004E1034702E1362D03E1712203E16B17"
   data "02832B4000E1260D0184344002E1620403E100000C81264000E16409029337640093477101911F56"
   data "01E1312300E200400094323202E1393203E17C3903E15E3D03E13F3F03E100401F933E7801923B7C"
   data "0E85434022E200600093436E02833E400183474029E2004002823B4001934A7301923E7C5E823E40"
   data "0193477A01923B7C01834A40028343401D842B40198432402583474000823B400193456B0192397C"
   data "2B811F400493366401912A53038337402C933E732C8345400493426402833E402E934A641C823940"
   data "15923E7C2E823E40029345760192407C018342402C8240400292427C1295407813834A4009824240"
   data "019347780192437C018345402B812A40028336400193376501912B501685404019933E793093436E"
   data "02833E40018347402E934A6E07824340178343400F912F5502933B640192427C02812B400E833740"
   data "1F93476402834A402D82424001923E7C258347400A823E40019343670192407C2E833B4000812F40"
   data "01933C730191304E2F933E732D8343400393407802833E402F9348625E834040019343642A912F53"
   data "048130403293406E0B95477F2693396501912D5101833C4001812F402983404003933E5F0B834840"
   data "0485474003834340028240401C93407802833E402F9348672F92407C2C8340400382404001934366"
   data "01923C7C2E823C4001923E7C2F823E400293416801912B4E0092397C0A812D4019812B400B833940"
   data "0093356A019129502A83414005933C78128343400E8348401093416402833C402F9348721B823940"
   data "3E8348400693457101923B7C23812940019128530783414003823B4001923C7C2F823C4001934373"
   data "01923E7C0B8345401783354005812840019126530793326830933C5A058343402C9343622F934A70"
   data "088343405893427843953D7F05823E400F833C400993436E028342400C834A401E81264002833240"
   data "00912B5302933767019056660090516601B20B730094373C00943B3115853D4019933E7301905362"
   data "00923B7C01805140018343402B823B400293436E01923C7C01833E4026823C4008934A7201923E7C"
   data "2F992A7F01892A402E83434000823E400193476C01923B7C00992A4001892A402F992A2001892A40"
   data "2D823B400193457A0192397C01992A1001892A40008347400E805340068056400B843B4000843740"
   data "09812B4002912A53028337400193366D01905368009056660194363E00943E3C2E90516300933E66"
   data "088053400B834A40178345400693426531934A6B0782394005834240178436400C94394401923E7C"
   data "2E823E40019345770192407C2E8240400192427C19834A4016824240018345400093476E0192437C"
   data "06833E40038051400D8056400D8439400A812A40018336400293376C019056660090516801912B53"
   data "00943B3E2980514004933E79019053602F93437802833E40008347402E934A6E2083434004843B40"
   data "0B8243400391235600933B7001812B400092427C0094433800992A7F01892A400B83374017834A40"
   data "0A93476B01992A4001892A402D82424001923E7C01992A2001892A4010805640048053400F834740"
   data "0A823E40019343680192407C00992A1001892A401C843E400981234007833B400191245301933C73"
   data "01905B69009056680194403D2E933E7A0190586901833C4004805640238343400793406E02833E40"
   data "2E93486757834040099343655A81244000805B40018058400593407901912355288123400793396B"
   data "019121552C83404003933E691083484004824040138343400993406402833E402E93486912834040"
   data "1E92407C01992A7F01892A402D8240400193436201923C7C00992A4001892A4026823C4008923E7C"
   data "01992A2001892A401F8121400E823E40009124530293406F0192437C00992A1001892A401C844040"
   data "0A8124400793326F0191265400943E3E058339402783404003933C692C8343400493406E02833C40"
   data "038348402B93486E018340401B8243400381264011912656308443400192427C009342791D843E40"
   data "1294424518E1404002E11F3E03E15E3C03E13D3B03E11D3A04E17C3802E17B3602E13A3403E13831"
   data "018242400193437A0192437C0183424000E1172F02E1552B03E1722502E16E1D03E14A1503E1070E"
   data "02E1430704E1610203E100000884424000E1600103E1450A03E16B1703E153260181264002E17933"
   data "03E15D3A0193376501911F550194434400943B360183324000E11F3E02E15F3F04E1004027834840"
   data "00933E780190377609834340258037400293437801903E7901833E402C803E400193477001904379"
   data "30932B600190457E00992A7F01892A402D9345780190477C00992A4001892A400080454001834740"
   data "2D90487A01992A2001892A400A8047402493477801904A7B00992A1001892A400083454001804840"
   data "0683434010833740189337720190457C00B20B7805832B40088043402190477800933E5E02804540"
   data "128243401C8047400193436201834740009043772F93487113811F400C843B400084434009911F52"
   data "0793397901943B37009443460192437C00992A7F01892A400983374007833E401584434000843B40"
   data "0191215204811F400383484000933E7A01943C4501E2407F009445510183394000992A4001892A40"
   data "218121400384454000843C40039123540282434001E2004002934A7101933B7501943E450094474F"
   data "0192477C00992A2001892A402B8247400292487C00992A1001892A40008043400483434000833E40"
   data "15834A400584474000843E4007804A400681234001833B4003B0407F00933C6100934C7A01903C68"
   data "019124570094403C0094484500992A7F01892A402C9343730190436900992A4001892A402E934878"
   data "01904A6B00992A2001892A4000834340128124400C8043400E91245301834C4002934F6401904C6B"
   data "00992A1001892A401681244007804A400F912455018248400090546C0199257F018925402F924A7C"
   data "00934C6001992540018925402C824A400292487C00992530018925401683484012803C4005824840"
   data "01834C400192477C00934A6A01992520018925401F81244001844840008440400A91235B01833C40"
   data "04933B670094473E01943E3C00992A7F01892A4014804C40048247400BB040000780544002B0407F"
   data "0093436901903B6B0092437C01992A4001892A401D834F400F834A40019347690190436A00992A20"
   data "01892A40028343400F8123401891235705934F6801904A6C00992A1001892A400E81234010804340"
   data "0C91235804904F6C0199257F018925401E804A40108347400190536B00934A680199254001892540"
   data "09804F40198053400C90546500992530018925402E9348670190566F009925200189254000834A40"
   data "0280544001803B400782434017843E40008447400581234007B040000193396F0191215A01944555"
   data "00943C4201833B4000923E7C00992A7F01892A40288056400593437801992A4001892A4002834840"
   data "27834F400493487801904A6800992A2001892A40008343400E8121401C91215604904C6E00934F67"
   data "01992A1001892A401C81214002804A400B91265504823E400193326D0190546A0092457C0199257F"
   data "01892540008339400E804C401F83484000934A6B01904C6200992540018925401781264005843C40"
   data "0084454010804C4001824540029051690191265B0094394F0094425A0192427C0099253001892540"
   data "2B8242400192437C0093477A019925200189254002E1004103E15E3C03834F4000E13C3903E17A34"
   data "03E1372F03E1742902E1302004E14A1503E1640902E1000002844240008439400CE1620401812640"
   data "0393376E01904F6B01911F5700E14A150094435001E1552B00943B4700992A7F01892A4001805140"
   data "00E15B360183324005E17D3B02E13F3E03E15F3F03E100401683474007933E7901992A4001892A40"
   data "048054402A93436400992A2001892A4001833E401A811F400F8343400593476B01911F5300992A10"
   data "01892A4019811F4015911F550199257F018925402F992540018925400A82434010811F4002843B40"
   data "008443400C83474003833740019127550293455801933361009342630292427C00943F5500944260"
   data "00992530018925401D804F400E834A4001992520018925401F84424000843F400383424006812740"
   data "0682424002933469019128580093435F01834540008333400092407C0094434E0094404C00992A7F"
   data "01892A402C933E6901992A4001892A402E93405F01992A2001892A4000833E401583434009812840"
   data "0C824040049347640190476B0091285400992A1001892A4016812840189128580192407C0099257F"
   data "018925402E9343640190436A00E2407F00992540018925400A8340400C8047400383474014824040"
   data "00E20040029126520192437C0099253001892540028128402A8243400192457C0093406101992520"
   data "01892540208440400A8126400383344001932D62019121550094474601943D4501992A7F01892A40"
   data "2C933D6901992A4001892A40038340402B93406E00992A2001892A4001833D40038343400E804340"
   data "08812140159347600190476D0091215601992A1001892A40168121400D824540099121560192407C"
   data "0199257F018925402E9343630190436B00992540018925400C834040088047401B99253001892540"
   data "2E934063019925200189254020843D4000844740018121400C82404001933269019126520194454C"
   data "01832D400092457C00943E3F00992A7F01892A40258340400483474003933C5A01992A4001892A40"
   data "0E8043402093406401992A2001892A4000833C40078343400D8126401B9347620190476D00992A10"
   data "01892A402D9126570199257F018925402E93435B0190436A00992540018925400083404004804740"
   data "2A912D5A01992530018925400081264021E144480283474001E14E5D03E11A740180434002844340"
   data "00E17F7F0593426E0190456E0099252001892540008343400FE1176E03E14D5A03E1264C02E12245"
   data "03E1604103E1204003E100400B812D4002933957019126570194424700992A7F01892A402D933C61"
   data "01992A4001892A400C8342402293437901992A2001892A401C8126401293457A0191265C00992A10"
   data "01892A4000834340068332402893326C01904A660090426801E140400099257F0189254000804540"
   data "00E1495201E13A7405E17F7F038339400C824540188345400093477801992540018925402E934878"
   data "01992530018925400083474002E12F5F03E1074F03E1434602E161420480424000E1404003E10040"
   data "0984454000843E401599252001892540208442400D8126400193476901911F580093377801944757"
   data "01833C4000943E510094374A0099237F00992A7F01892A400089234001804A400583484001833240"
   data "25933E7A0190376B009453730192477C00992A4001892A400083374025845340089343610190436B"
   data "01E200600094547300992A2001892A4000833E40098037400B811F400D8347400484544004E20040"
   data "0382474001904A6B00934A6602911F540094567401924A7C0099232000992A1001892A4000892340"
   data "0880434016811F400E904F6D01911F54009923700099257F018923400189254009804A4014845640"
   data "0F83434000824A40019347640190536F0192477C00945373019925400189254001804F402C904F68"
   data "01992530018925401D8453400F824740018347400193457001904A68009451720192457C00992520"
   data "0189254000804F4018804A4006843740008447400580534003811F400690516C009336630290426A"
   data "01912A5600943648009445570099237F00992A7F01892A40008923402C933E7301904A6500992A40"
   data "01892A40288042400483454001834A400193427801904E6A01992A2001892A4000833E4004805140"
   data "15812A4014934A5F0190566D00912A5A0199232000992A1001892A40008923400584514000824540"
   data "15812A4013912A5C01924A7C0094566F019923700099257F01892540008923402584564007824A40"
   data "019345740194587201924C7C0099254001892540018342402484584007824C4001945A7301924E7C"
   data "019925300189254023804E4002845A4007824E4000805640019343680190436700945B7401924F7C"
   data "00992520018925400183454008804A40168436400084454005812A40078336400180434001933767"
   data "01912B560194374F0194474F0099237F00992A7F01892A40008923402C933E6001904A6B00992A40"
   data "01892A40028343402C834A4001904F690093435E00992A2001892A4015812B400D843E400E90536E"
   data "00934A6E01912B540099232000992A1001892A400089234003824F4001845B400383434001804F40"
   data "18844740008437400A812B4000924E7C02933B65019123560094434A01944A5100943B4901945A72"
   data "009923700099257F01892540008923400C83374000804A4020934363019925400189254000834A40"
   data "1E845A400D824E4003904A6401924A7C0094566F0099253001892540148053401284564001833E40"
   data "0081234006824A4001934073019123530094587001924C7C01833B40009925200189254020843B40"
   data "00844A40018443400581234002804A400590546A00933C6001904C6C019124510094484800943C47"
   data "009440460099237F00992A7F01892A40008923402C904F6700933E7901992A4001892A4005834040"
   data "00804C402993406E01904C6800992A2001892A4000833E40088343401081244015804C4001934867"
   data "01904867009124520199232000992A1001892A40008923401681244017912455019923700099257F"
   data "01892540008923402E93436401992540018925400C8340401E812440049123580199253001892540"
   data "128048401D934065019925200189254001843C40008448401E8440400A8123400493396801912156"
   data "0194395101833C4000B20B7F0094434E009448500099237F00992A7F01892A400089234003804F40"
   data "0C8054401D933E7301992A4001892A40018340401184584000824C400C8348400983434007934064"
   data "01992A2001892A4000833E40238121400B93486A019121550099232000992A100189234001892A40"
   data "1581214017C04D0190587F019121570094586B019923700099257F01892540008923402584584008"
   data "93436201805840009054690094546A01992540018925400E83404017845440088054400090567C01"
   data "94566A01992530018925401D8121400884564008934066018056400090517F009124500194516601"
   data "992520018925401491255205812440058443400084394000844840078125400893326E0191265800"
   data "943C4001944556009432520099237F00992A7F01892A4000892340018339402B933E7901992A4001"
   data "892A40008340402E93407801992A2001892A4000833E400083484001834340228126400B93486A01"
   data "9126560099232000992A100189234001892A40158126401891265900992370018923400099257F01"
   data "89254012845140158051400793426601904F7A00944F3A0199254001892540028340400383484020"
   data "844F4008804F4000904E7900944E3601992530018925401A833240169925200189254000E1204000"
   data "E1214202E15D3A04E17A3403E1172E03E0006000E1332603E12F1E02E14B1703E1281003E1250A03"
   data "E1010303844E4000E100000284454000843C40008432400881264002E1040802E16B1702932B7A01"
   data "911F560194433A0183424000E1362C00943B3F0094324100942B3C00992A7F01892A4000E17B3603"
   data "E13E3C05E17F3E03E1004021933E6100992A4001892A403093477401992A2001892A4002833E402B"
   data "933E6700992A1001892A401C834740139337600193437A0099257F018925402E8343400093456E01"
   data "992540018925402E99253002892540298345400593476E009925200189254002833E4006832B4027"
   data "932B6301992A7F01892A40098337402593397A01992A4001892A402E83394001933B7801992A2001"
   data "892A402D93436201992A1001892A40068347402893375E0199257F018925402B833B4002C0050190"
   data "4E6700933E6301992540018925402F905A6700992530018925400795447F23832B4004933C630199"
   data "25200189254019843B400D84324009932B5F0094343B01B20B5500943C3F00992A7F01892A400983"
   data "37400185444017804E400C93397A01992A4001892A4008833C4025833E400183394000933C7A0183"
   data "434000992A2001892A402E93435C00992A1001892A402F93375D0199257F018925402E833C400093"
   data "3E6401992540018925400E804E4008805A4018992530018925402F933C6201992520018925400283"
   data "2B402C932B6201992A7F01892A40018337402D93397800992A4001892A4006833C400C833E401D93"
   data "3C6E00992A2001892A4001833940088343402693436401992A1001892A401F833C400F93375D0192"
   data "407C0099257F018925402D82404001933E6101923E7C01992540018925402C823E4001923C7C0199"
   data "25300189254027832B4006823C4001933B6201923E7C009925200189254011811F4015843C400084"
   data "344008932B780194323800943B3D0483374006833B401F833E400692477C00933E63028343402D82"
   data "47400193476F0192487C0D833E401FE200400282484001933E6201924A7C2F834740009343790193"
   data "375C29824A400692477C0093456E0283434050832B4008834540058247400193477801833E400092"
   data "437C2F932B5D058337402B93397830933B78028339402E9343660191395B0783474024E1034603E1"
   data "4F5F0193376201923B7C00992A7F01892A4000E15D7B03E17F7F2A823B4001933E6401923C7C0183"
   data "3B4000992A4001892A4000E17B7701E1536603E10A5504E1644903E1024403E1404102E1204003E1"
   data "004006823E4013823C4000E0004001904F64019132540281394000923E7C00992A2001892A402B82"
   data "3E4000E1444801933C7301905B6901923B7C00992A1001892A4000E12E5C01E13A7501832B4001E1"
   data "7F7F22843B400084324007823B4000E1766C02932B6C01943C330094344401833C4000E16B570092"
   data "397C0183374000E1054B02E1624402E1604104E1204003E10040219339792B83434001833E400493"
   data "3C78028339402E9343623093375D01923E7C2F933E5F02833C4016804F4008805B4038832B400893"
   data "3C6230932B691F8132401193397801912D5A04833C402483434005833E4000E1034602E12E5C0093"
   data "3C6E0283394001E15D7B03E17F7F068337401FE15D7B02E1187103E172650093436902E12B5702E1"
   data "054B04E1624403E1604103E1204003E10040079345550283434013812D400393434B019126590183"
   data "45402CE1004102E1664C03E12F5F03E11B7703E17F7F25E1356B05E16A5402E1644903E1024402E1"
   data "404103E1204003E1004014833C400395417F0583434019E1424403E1193303E1132702832B4001E1"
   data "6D1B02E1681002E1430704E121020284344000843C400082394001E1600103E1440803E16C1802C0"
   data "7000932B5E0190624100911F5A0181264000E1162C00923B7C00943B43009432420193375901E15B"
   data "360193326702E17D3B04E13F3E03E15F3F01933B6100933E5E01E100400B9343670F854140821580"
   data "624083188443400C84324014843B400283324001833B4003833E4000823E400183374000832B4000"
   data "811F400283434004823B4008842B40098243408269FF2F00", "EOF"

endfunction

+ Code Snippet

#constant freq = 64
#constant tab  = 32

sync on : sync rate 60 : backdrop off : autocam off

dim cosi(511)
dim color(255)

w1 as byte
w2 as byte
w3 as byte

for i = 1 to 3

   make object sphere i, 128, 32, 32
   set object light i, 0

   read x, y, z
   position object i, x, y, z

next i

MakeSong()

make object plain 10, 1024, 1024
pitch object up 10, 90
set reflection shading on 10

get image 11, 0, 0, 256, 256
make memblock from image 1, 11

make object sphere 11, 1024, 32, 32
set object cull 11, 0
set object light 11, 0
texture object 11, 11

for i = 0 to 511
   cosi(i) = cos((360 * i) / 256) * freq + tab
next i

for i = 0 to 85    : color(i) = rgb(255 - i * 3, i * 3, 0) : next i
for i = 86 to 170  : color(i) = rgb(0, 255 - i * 3, i * 3) : next i
for i = 171 to 255 : color(i) = rgb(i * 3, 0, 255 - i * 3) : next i

repeat

   gosub _plasma

   set camera to follow 0, 0, 0, a#, 400, 128 + sin(a#) * 64, 1, 0
   point camera 0, 0, 0

   a# = a# + 0.7

   set cursor 0, 0
   print screen fps()

   inc o : if o > 3 then o = 1
   SyncCams(o)

until mouseclick()

end

_plasma:

   inc w1, 2
   inc w2, 2
   inc w3, 3

   for y = 0 to 255
      for x = 0 to 255

         c = cosi(x + y) + cosi(x + w1) + cosi(y + w2) + cosi(y + w3) and 255
         write memblock dword 1, 12 + (x + y * 256) * 4, color(c)

      next x
   next y

   make image from memblock 11, 1

return

data -150, 64, 0
data 0, 64, -150
data 150, 64, 0


function SyncCams(o)

   restore camdata

   for c = 1 to 6

      make camera c

      read x, y, z
      rotate camera c, x, y, z
      position camera c, object position x(o), object position y(o), object position z(o)

      set camera aspect c, 1
      set camera fov c, 90
      set camera to image c, c, 128, 128

   next c

   sync

   for c = 1 to 6 : delete camera c : next c

   set cube mapping on o, 1, 2, 3, 4, 5, 6

   camdata:
   data 0, 90, 0
   data 0, 270, 0
   data 270, 0, 0
   data 90, 0, 0
   data 0, 0, 0
   data 0, 180, 0

endfunction

function Deco(d$, i)

   n = asc(mid$(d$, i)) - 48
   b = (n - (n > 9) * 7) * 16
   n = asc(mid$(d$, i + 1)) - 48
   b = b + (n - (n > 9) * 7)

endfunction b

function MakeSong()

   restore songdata

   open to write 1,"temp.dat"

   do

      read d$
      if d$ = "EOF" then exit

      for i = 1 to len(d$) step 2
         write byte 1, Deco(d$, i)
      next i

   loop

   close file 1

   load music "temp.dat",1 : loop music 1 : delete file "temp.dat"

   songdata:
   data "4D546864000000060000000100604D54726B000020D200FF030B4C657961277320536F6E6700FF02"
   data "14284329313939312041647269616E2053636F747400FF58040302180800FF510307A10000F00A41"
   data "10421240007F0041F760F019411042124001100203020308060000000000000000000017F700F00A"
   data "41104212400134503BF705B0790000B0000000B0200000C00500B0075500B00A6400B05B5500B05D"
   data "0005B1790000B1000000B1200000C12300B1075500B10A4000B15B0500B15D0005B2790000B20000"
   data "00B2200000C23500B2077F00B20A4000B25B6400B25D0000B20B6405B3790000B3000000B3200000"
   data "C31900B3074600B30A1400B35B4100B35D0005B4790000B4000000B4200000C43100B4076400B40A"
   data "4000B45B7F00B45D0005B5790000B5000000B5200000C57800B5072300B50A1400B55B2800B55D00"
   data "14B9790000B9000000B9200000C90000B9075A00B90A4000B95B2800B95D0000B9631D00B9622300"
   data "B90605810EFF58040402180801932B7A01911F500094323200942B2D2F933E613193477404833E40"
   data "2B933E671D834740139337600093437A30834340009345785B8345400593476E03833E4006832B40"
   data "0295427F25932B630B8337402693397A0E8542402183394000933B7830934362088347402993375E"
   data "00992A7F01892A402B833B4003933E6301904F5700992A4001892A4009953C7F26905B5A00992A20"
   data "01892A402A832B4004933C6301992A1001892A400D853C401B84324006932B5F019434320B833740"
   data "2493397A0A833C4024833E400283394000933C7A018343403093435C2F93375D30833C4000933E64"
   data "61933C6203832B4028804F4004805B4000932B62028337402E93397807833C400C833E401D933C6E"
   data "02833940088343402693436421833C400F93375D00992A7F01892A402F933E610190435600992A40"
   data "01892A402E904F5601992A2001892A401B954B7F0C832B4007933B6201905B5F00992A1001892A40"
   data "1C84344006811F400C932B7801912B4E009432320483374005833B4017854B4009833E4006933E63"
   data "028343402E93476F01924364009247780D833E40048247400582434019933E620192435000924764"
   data "0E8247400882434019834740009343790193375C019247500092433C0F824740048243401B93456E"
   data "0192473C00924328018343400E804340048243400182474003804F40189247280192431403805B40"
   data "0E824340018247400F832B40088345400693477801833E4000924714098247400195447F25932B5D"
   data "058337400C812B401D913951029339780F8544401CE1204004E1254A01933B7801E14D5A01833940"
   data "03E1787002E17F7F23E13B7703E1356B03E14E5C0093436603E1674F03E103470283474000E16142"
   data "02E1404004E100401D813940009132500593376200992A7F01892A402F933E6401833B4000992A40"
   data "01892A4000E1624402E1674F03E1506103E15B7602E17F7F23E11F7E0190435101992A2001892A40"
   data "00E1187103E1106003E1674F02E1034702E1614204E1404003E10040009550641D933C7301904F5F"
   data "00992A1001892A4004832B401984324011932B6C0194343201833C4002833740138550401A933979"
   data "2A83434001833E4005933C7801924878009243640183394011824840028243401A93436201924864"
   data "0092435016824340008248401993375D019248500092433C138243400382484019933E5F0192483C"
   data "0092432801833C4010824340038248400380434008804F4010924828019243141282434000824840"
   data "15832B4008933C62019248140092430A11824340038248401B932B692D912D510181324002933978"
   data "05833C402483434001E1044902E12E5C02833E4001E11C7901933C6E0283394000E17F7F0A833740"
   data "1CE17F7E03E1387004E16F5E0193434101E1074F02E1434603E1614204E1404002E100401C812D40"
   data "0491265004992A7F01892A4029E1024404E1285101E1536601992A4001892A4001E15D7B03E17F7F"
   data "26E13F7E04E1787001992A2001892A4000E12F5F03E1074F02E1434603E1614203E1404003E10040"
   data "15833C400C992A1001892A400A95437F0383434001E1204004E1034702E1362D03E1712203E16B17"
   data "02832B4000E1260D0184344002E1620403E100000C81264000E16409029337640093477101911F56"
   data "01E1312300E200400094323202E1393203E17C3903E15E3D03E13F3F03E100401F933E7801923B7C"
   data "0E85434022E200600093436E02833E400183474029E2004002823B4001934A7301923E7C5E823E40"
   data "0193477A01923B7C01834A40028343401D842B40198432402583474000823B400193456B0192397C"
   data "2B811F400493366401912A53038337402C933E732C8345400493426402833E402E934A641C823940"
   data "15923E7C2E823E40029345760192407C018342402C8240400292427C1295407813834A4009824240"
   data "019347780192437C018345402B812A40028336400193376501912B501685404019933E793093436E"
   data "02833E40018347402E934A6E07824340178343400F912F5502933B640192427C02812B400E833740"
   data "1F93476402834A402D82424001923E7C258347400A823E40019343670192407C2E833B4000812F40"
   data "01933C730191304E2F933E732D8343400393407802833E402F9348625E834040019343642A912F53"
   data "048130403293406E0B95477F2693396501912D5101833C4001812F402983404003933E5F0B834840"
   data "0485474003834340028240401C93407802833E402F9348672F92407C2C8340400382404001934366"
   data "01923C7C2E823C4001923E7C2F823E400293416801912B4E0092397C0A812D4019812B400B833940"
   data "0093356A019129502A83414005933C78128343400E8348401093416402833C402F9348721B823940"
   data "3E8348400693457101923B7C23812940019128530783414003823B4001923C7C2F823C4001934373"
   data "01923E7C0B8345401783354005812840019126530793326830933C5A058343402C9343622F934A70"
   data "088343405893427843953D7F05823E400F833C400993436E028342400C834A401E81264002833240"
   data "00912B5302933767019056660090516601B20B730094373C00943B3115853D4019933E7301905362"
   data "00923B7C01805140018343402B823B400293436E01923C7C01833E4026823C4008934A7201923E7C"
   data "2F992A7F01892A402E83434000823E400193476C01923B7C00992A4001892A402F992A2001892A40"
   data "2D823B400193457A0192397C01992A1001892A40008347400E805340068056400B843B4000843740"
   data "09812B4002912A53028337400193366D01905368009056660194363E00943E3C2E90516300933E66"
   data "088053400B834A40178345400693426531934A6B0782394005834240178436400C94394401923E7C"
   data "2E823E40019345770192407C2E8240400192427C19834A4016824240018345400093476E0192437C"
   data "06833E40038051400D8056400D8439400A812A40018336400293376C019056660090516801912B53"
   data "00943B3E2980514004933E79019053602F93437802833E40008347402E934A6E2083434004843B40"
   data "0B8243400391235600933B7001812B400092427C0094433800992A7F01892A400B83374017834A40"
   data "0A93476B01992A4001892A402D82424001923E7C01992A2001892A4010805640048053400F834740"
   data "0A823E40019343680192407C00992A1001892A401C843E400981234007833B400191245301933C73"
   data "01905B69009056680194403D2E933E7A0190586901833C4004805640238343400793406E02833E40"
   data "2E93486757834040099343655A81244000805B40018058400593407901912355288123400793396B"
   data "019121552C83404003933E691083484004824040138343400993406402833E402E93486912834040"
   data "1E92407C01992A7F01892A402D8240400193436201923C7C00992A4001892A4026823C4008923E7C"
   data "01992A2001892A401F8121400E823E40009124530293406F0192437C00992A1001892A401C844040"
   data "0A8124400793326F0191265400943E3E058339402783404003933C692C8343400493406E02833C40"
   data "038348402B93486E018340401B8243400381264011912656308443400192427C009342791D843E40"
   data "1294424518E1404002E11F3E03E15E3C03E13D3B03E11D3A04E17C3802E17B3602E13A3403E13831"
   data "018242400193437A0192437C0183424000E1172F02E1552B03E1722502E16E1D03E14A1503E1070E"
   data "02E1430704E1610203E100000884424000E1600103E1450A03E16B1703E153260181264002E17933"
   data "03E15D3A0193376501911F550194434400943B360183324000E11F3E02E15F3F04E1004027834840"
   data "00933E780190377609834340258037400293437801903E7901833E402C803E400193477001904379"
   data "30932B600190457E00992A7F01892A402D9345780190477C00992A4001892A400080454001834740"
   data "2D90487A01992A2001892A400A8047402493477801904A7B00992A1001892A400083454001804840"
   data "0683434010833740189337720190457C00B20B7805832B40088043402190477800933E5E02804540"
   data "128243401C8047400193436201834740009043772F93487113811F400C843B400084434009911F52"
   data "0793397901943B37009443460192437C00992A7F01892A400983374007833E401584434000843B40"
   data "0191215204811F400383484000933E7A01943C4501E2407F009445510183394000992A4001892A40"
   data "218121400384454000843C40039123540282434001E2004002934A7101933B7501943E450094474F"
   data "0192477C00992A2001892A402B8247400292487C00992A1001892A40008043400483434000833E40"
   data "15834A400584474000843E4007804A400681234001833B4003B0407F00933C6100934C7A01903C68"
   data "019124570094403C0094484500992A7F01892A402C9343730190436900992A4001892A402E934878"
   data "01904A6B00992A2001892A4000834340128124400C8043400E91245301834C4002934F6401904C6B"
   data "00992A1001892A401681244007804A400F912455018248400090546C0199257F018925402F924A7C"
   data "00934C6001992540018925402C824A400292487C00992530018925401683484012803C4005824840"
   data "01834C400192477C00934A6A01992520018925401F81244001844840008440400A91235B01833C40"
   data "04933B670094473E01943E3C00992A7F01892A4014804C40048247400BB040000780544002B0407F"
   data "0093436901903B6B0092437C01992A4001892A401D834F400F834A40019347690190436A00992A20"
   data "01892A40028343400F8123401891235705934F6801904A6C00992A1001892A400E81234010804340"
   data "0C91235804904F6C0199257F018925401E804A40108347400190536B00934A680199254001892540"
   data "09804F40198053400C90546500992530018925402E9348670190566F009925200189254000834A40"
   data "0280544001803B400782434017843E40008447400581234007B040000193396F0191215A01944555"
   data "00943C4201833B4000923E7C00992A7F01892A40288056400593437801992A4001892A4002834840"
   data "27834F400493487801904A6800992A2001892A40008343400E8121401C91215604904C6E00934F67"
   data "01992A1001892A401C81214002804A400B91265504823E400193326D0190546A0092457C0199257F"
   data "01892540008339400E804C401F83484000934A6B01904C6200992540018925401781264005843C40"
   data "0084454010804C4001824540029051690191265B0094394F0094425A0192427C0099253001892540"
   data "2B8242400192437C0093477A019925200189254002E1004103E15E3C03834F4000E13C3903E17A34"
   data "03E1372F03E1742902E1302004E14A1503E1640902E1000002844240008439400CE1620401812640"
   data "0393376E01904F6B01911F5700E14A150094435001E1552B00943B4700992A7F01892A4001805140"
   data "00E15B360183324005E17D3B02E13F3E03E15F3F03E100401683474007933E7901992A4001892A40"
   data "048054402A93436400992A2001892A4001833E401A811F400F8343400593476B01911F5300992A10"
   data "01892A4019811F4015911F550199257F018925402F992540018925400A82434010811F4002843B40"
   data "008443400C83474003833740019127550293455801933361009342630292427C00943F5500944260"
   data "00992530018925401D804F400E834A4001992520018925401F84424000843F400383424006812740"
   data "0682424002933469019128580093435F01834540008333400092407C0094434E0094404C00992A7F"
   data "01892A402C933E6901992A4001892A402E93405F01992A2001892A4000833E401583434009812840"
   data "0C824040049347640190476B0091285400992A1001892A4016812840189128580192407C0099257F"
   data "018925402E9343640190436A00E2407F00992540018925400A8340400C8047400383474014824040"
   data "00E20040029126520192437C0099253001892540028128402A8243400192457C0093406101992520"
   data "01892540208440400A8126400383344001932D62019121550094474601943D4501992A7F01892A40"
   data "2C933D6901992A4001892A40038340402B93406E00992A2001892A4001833D40038343400E804340"
   data "08812140159347600190476D0091215601992A1001892A40168121400D824540099121560192407C"
   data "0199257F018925402E9343630190436B00992540018925400C834040088047401B99253001892540"
   data "2E934063019925200189254020843D4000844740018121400C82404001933269019126520194454C"
   data "01832D400092457C00943E3F00992A7F01892A40258340400483474003933C5A01992A4001892A40"
   data "0E8043402093406401992A2001892A4000833C40078343400D8126401B9347620190476D00992A10"
   data "01892A402D9126570199257F018925402E93435B0190436A00992540018925400083404004804740"
   data "2A912D5A01992530018925400081264021E144480283474001E14E5D03E11A740180434002844340"
   data "00E17F7F0593426E0190456E0099252001892540008343400FE1176E03E14D5A03E1264C02E12245"
   data "03E1604103E1204003E100400B812D4002933957019126570194424700992A7F01892A402D933C61"
   data "01992A4001892A400C8342402293437901992A2001892A401C8126401293457A0191265C00992A10"
   data "01892A4000834340068332402893326C01904A660090426801E140400099257F0189254000804540"
   data "00E1495201E13A7405E17F7F038339400C824540188345400093477801992540018925402E934878"
   data "01992530018925400083474002E12F5F03E1074F03E1434602E161420480424000E1404003E10040"
   data "0984454000843E401599252001892540208442400D8126400193476901911F580093377801944757"
   data "01833C4000943E510094374A0099237F00992A7F01892A400089234001804A400583484001833240"
   data "25933E7A0190376B009453730192477C00992A4001892A400083374025845340089343610190436B"
   data "01E200600094547300992A2001892A4000833E40098037400B811F400D8347400484544004E20040"
   data "0382474001904A6B00934A6602911F540094567401924A7C0099232000992A1001892A4000892340"
   data "0880434016811F400E904F6D01911F54009923700099257F018923400189254009804A4014845640"
   data "0F83434000824A40019347640190536F0192477C00945373019925400189254001804F402C904F68"
   data "01992530018925401D8453400F824740018347400193457001904A68009451720192457C00992520"
   data "0189254000804F4018804A4006843740008447400580534003811F400690516C009336630290426A"
   data "01912A5600943648009445570099237F00992A7F01892A40008923402C933E7301904A6500992A40"
   data "01892A40288042400483454001834A400193427801904E6A01992A2001892A4000833E4004805140"
   data "15812A4014934A5F0190566D00912A5A0199232000992A1001892A40008923400584514000824540"
   data "15812A4013912A5C01924A7C0094566F019923700099257F01892540008923402584564007824A40"
   data "019345740194587201924C7C0099254001892540018342402484584007824C4001945A7301924E7C"
   data "019925300189254023804E4002845A4007824E4000805640019343680190436700945B7401924F7C"
   data "00992520018925400183454008804A40168436400084454005812A40078336400180434001933767"
   data "01912B560194374F0194474F0099237F00992A7F01892A40008923402C933E6001904A6B00992A40"
   data "01892A40028343402C834A4001904F690093435E00992A2001892A4015812B400D843E400E90536E"
   data "00934A6E01912B540099232000992A1001892A400089234003824F4001845B400383434001804F40"
   data "18844740008437400A812B4000924E7C02933B65019123560094434A01944A5100943B4901945A72"
   data "009923700099257F01892540008923400C83374000804A4020934363019925400189254000834A40"
   data "1E845A400D824E4003904A6401924A7C0094566F0099253001892540148053401284564001833E40"
   data "0081234006824A4001934073019123530094587001924C7C01833B40009925200189254020843B40"
   data "00844A40018443400581234002804A400590546A00933C6001904C6C019124510094484800943C47"
   data "009440460099237F00992A7F01892A40008923402C904F6700933E7901992A4001892A4005834040"
   data "00804C402993406E01904C6800992A2001892A4000833E40088343401081244015804C4001934867"
   data "01904867009124520199232000992A1001892A40008923401681244017912455019923700099257F"
   data "01892540008923402E93436401992540018925400C8340401E812440049123580199253001892540"
   data "128048401D934065019925200189254001843C40008448401E8440400A8123400493396801912156"
   data "0194395101833C4000B20B7F0094434E009448500099237F00992A7F01892A400089234003804F40"
   data "0C8054401D933E7301992A4001892A40018340401184584000824C400C8348400983434007934064"
   data "01992A2001892A4000833E40238121400B93486A019121550099232000992A100189234001892A40"
   data "1581214017C04D0190587F019121570094586B019923700099257F01892540008923402584584008"
   data "93436201805840009054690094546A01992540018925400E83404017845440088054400090567C01"
   data "94566A01992530018925401D8121400884564008934066018056400090517F009124500194516601"
   data "992520018925401491255205812440058443400084394000844840078125400893326E0191265800"
   data "943C4001944556009432520099237F00992A7F01892A4000892340018339402B933E7901992A4001"
   data "892A40008340402E93407801992A2001892A4000833E400083484001834340228126400B93486A01"
   data "9126560099232000992A100189234001892A40158126401891265900992370018923400099257F01"
   data "89254012845140158051400793426601904F7A00944F3A0199254001892540028340400383484020"
   data "844F4008804F4000904E7900944E3601992530018925401A833240169925200189254000E1204000"
   data "E1214202E15D3A04E17A3403E1172E03E0006000E1332603E12F1E02E14B1703E1281003E1250A03"
   data "E1010303844E4000E100000284454000843C40008432400881264002E1040802E16B1702932B7A01"
   data "911F560194433A0183424000E1362C00943B3F0094324100942B3C00992A7F01892A4000E17B3603"
   data "E13E3C05E17F3E03E1004021933E6100992A4001892A403093477401992A2001892A4002833E402B"
   data "933E6700992A1001892A401C834740139337600193437A0099257F018925402E8343400093456E01"
   data "992540018925402E99253002892540298345400593476E009925200189254002833E4006832B4027"
   data "932B6301992A7F01892A40098337402593397A01992A4001892A402E83394001933B7801992A2001"
   data "892A402D93436201992A1001892A40068347402893375E0199257F018925402B833B4002C0050190"
   data "4E6700933E6301992540018925402F905A6700992530018925400795447F23832B4004933C630199"
   data "25200189254019843B400D84324009932B5F0094343B01B20B5500943C3F00992A7F01892A400983"
   data "37400185444017804E400C93397A01992A4001892A4008833C4025833E400183394000933C7A0183"
   data "434000992A2001892A402E93435C00992A1001892A402F93375D0199257F018925402E833C400093"
   data "3E6401992540018925400E804E4008805A4018992530018925402F933C6201992520018925400283"
   data "2B402C932B6201992A7F01892A40018337402D93397800992A4001892A4006833C400C833E401D93"
   data "3C6E00992A2001892A4001833940088343402693436401992A1001892A401F833C400F93375D0192"
   data "407C0099257F018925402D82404001933E6101923E7C01992540018925402C823E4001923C7C0199"
   data "25300189254027832B4006823C4001933B6201923E7C009925200189254011811F4015843C400084"
   data "344008932B780194323800943B3D0483374006833B401F833E400692477C00933E63028343402D82"
   data "47400193476F0192487C0D833E401FE200400282484001933E6201924A7C2F834740009343790193"
   data "375C29824A400692477C0093456E0283434050832B4008834540058247400193477801833E400092"
   data "437C2F932B5D058337402B93397830933B78028339402E9343660191395B0783474024E1034603E1"
   data "4F5F0193376201923B7C00992A7F01892A4000E15D7B03E17F7F2A823B4001933E6401923C7C0183"
   data "3B4000992A4001892A4000E17B7701E1536603E10A5504E1644903E1024403E1404102E1204003E1"
   data "004006823E4013823C4000E0004001904F64019132540281394000923E7C00992A2001892A402B82"
   data "3E4000E1444801933C7301905B6901923B7C00992A1001892A4000E12E5C01E13A7501832B4001E1"
   data "7F7F22843B400084324007823B4000E1766C02932B6C01943C330094344401833C4000E16B570092"
   data "397C0183374000E1054B02E1624402E1604104E1204003E10040219339792B83434001833E400493"
   data "3C78028339402E9343623093375D01923E7C2F933E5F02833C4016804F4008805B4038832B400893"
   data "3C6230932B691F8132401193397801912D5A04833C402483434005833E4000E1034602E12E5C0093"
   data "3C6E0283394001E15D7B03E17F7F068337401FE15D7B02E1187103E172650093436902E12B5702E1"
   data "054B04E1624403E1604103E1204003E10040079345550283434013812D400393434B019126590183"
   data "45402CE1004102E1664C03E12F5F03E11B7703E17F7F25E1356B05E16A5402E1644903E1024402E1"
   data "404103E1204003E1004014833C400395417F0583434019E1424403E1193303E1132702832B4001E1"
   data "6D1B02E1681002E1430704E121020284344000843C400082394001E1600103E1440803E16C1802C0"
   data "7000932B5E0190624100911F5A0181264000E1162C00923B7C00943B43009432420193375901E15B"
   data "360193326702E17D3B04E13F3E03E15F3F01933B6100933E5E01E100400B9343670F854140821580"
   data "624083188443400C84324014843B400283324001833B4003833E4000823E400183374000832B4000"
   data "811F400283434004823B4008842B40098243408269FF2F00", "EOF"

endfunction

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 3rd Oct 2005 15:12

Link

wow! Thats pretty cool looking! Well done

Back to top

Profile PM Email

Torrey

20

Years of Service

User Offline

Joined: 20th Aug 2004

Location: New Jersey

Posted: 3rd Oct 2005 18:29

Link

Old school plasma is still the best, great code!

The best audio plugin for DarkBASIC Pro!
Plays Ogg Vorbis,MP3,FLAC,uncompressed WAV,AIFF,MOD,S3M,XM,and IT files.

Back to top

Profile PM Email

Specters

19

Years of Service

User Offline

Joined: 30th Sep 2005

Location: idaho

Posted: 6th Oct 2005 23:24

Link

Haven't checked yet but the code seems cool, so it probably will look cool. Keep up the great work.

Current Project : Legend of Lantis

Back to top

Profile PM

Richard Davey

Retired Moderator

22

Years of Service

User Offline

Joined: 30th Apr 2002

Location: On the Jupiter Probe

Posted: 10th Oct 2005 21:29

Link

Hey that's VERY nice indeed

With some proper colour tables (for a more demo-style effect rather than a straight RGB mix) it would look even more lovely. Nice work!

People don't quit playing because they grow old.
They grow old because they quit playing.

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 10th Oct 2005 22:51

Link

Nice.

Why do the cameras have to be continually deleted and recreated? I made them permanent and got flickering spheres which eventually became totally white. What is causing that?

Back to top

Profile PM Email

Angry kreyon

19

Years of Service

User Offline

Joined: 19th Aug 2005

Location:

Posted: 11th Oct 2005 17:01

Link

@Jukuma - I have not seen a plasma effect in this code yet, I have tried all 3 peices (in DBP) and the first gets me a cube in the upper corner that does nothing, the second peice gives me a red spinning cube in the center of the screen that does nothing but spin, and the third gives me 3 sets of spheres circling an invisable cube, the spheres are white and the backdrop is red, but nothign else happens and I am not getting the color cycling that I was expecting for the plasma effect.( I have a snippet of plasma that is cool here-->:http://forum.thegamecreators.com/?m=forum_view&t=60900&b=6 --

-- But however I think that the Music section in the third snippet is awsome! I will deffinately play with that and try to make some cool music happen, I was not aware that that could even be done until I saw this post!. perhaps you could make a snippet with Just the music code and how to use it(like a tutorial)

anyway if you have ideas why the rest did not work in Pro, let me know.

Back to top

Profile PM Email

blanky

20

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: ./

Posted: 11th Oct 2005 18:03

Link

Does your graphics card support vertex and pixel shaders, Angry kreyon?

Part of the 'Emergency Response Noob Shooting Team' :: Feel free to add me to MSN, but don't expect any big favours.
I AM _NOT_ A MOD, I AM ONLY HUMAN (although I fly in my spare time).

Back to top

Profile PM Email Website

Angry kreyon

19

Years of Service

User Offline

Joined: 19th Aug 2005

Location:

Posted: 13th Oct 2005 14:59

Link

@Blanky - Not sure if it does or not, it's a great video card and I have not had any trouble with any other graphics, but I can't say for sure either way. ( it's an intel(R)82865G graphics controller. ) - I found some info on my Card from Intels website, it is as follows:

Intel® Extreme Graphics 2 Specifications

Enhanced 2D

256-bit internal path

8/16/32bpp

DirectDraw*, GDI, GDI+

Anti-aliased text support

Alpha blending

Alphas stretch blitter

Hardware alpha blended RGB cursor

Color space conversion

5x2 overlay support

Rotate, scale and translate operations

High-performance 3D

256-bit internal path

32bpp/ 24ZorW/ 8 Stencil

DX7*/DX8*/OGL*1.1

DXTn texture compression

Up to 4 textures / pixel on a single pass

Cubic reflection map

Embossed/DOT3 bump mapping

Multi-texture

DOT3 bump-mapping

Point sprites

---------------------

thats all I Can find on it, so I am still not sure but it looks like I should be able to.

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 13th Oct 2005 21:05

Link

Gr8 M8!!!

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 14th Oct 2005 01:57

Link

Nice effect, that would work really well as Water.

Back to top

Profile PM Email Website

Jukuma

21

Years of Service

User Offline

Joined: 18th Nov 2003

Location: Germany

Posted: 14th Oct 2005 12:49 Edited at: 14th Oct 2005 22:40

Link

thx to all!

@angry kreyon
i think your graphics card work in a 16 bit or 24bit mode.
change to 32 bit mode and the code would have to run. otherwise i
don't understood this problem.

@raven
nice idea! i work on it, with a realtime bump mapping, but it's
still really slowly at present.

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 14th Oct 2005 19:15

Link

I like how you made a tune!

Back to top

Profile PM Email

darkdomy

21

Years of Service

User Offline

Joined: 6th Apr 2003

Location: Italy

Posted: 31st Oct 2005 20:31

Link

Hello all

Good Samples, Very Easy Source

It compliments of new, and an optimal source very structured, and easy to understand

By Italy User.

Anxiously awaiting BlueGUI v2

it informs to me when and ended BlueGUI v2

Back to top

Profile PM Email Website

The Darthster

22

Years of Service

User Offline

Joined: 25th Sep 2002

Location: United Kingdom

Posted: 31st Oct 2005 22:09

Link

That's pretty awesome

Once I was but the learner, now, I am the Master.
See my site for amazing games and demos!

Back to top

Profile PM Email Website

MikeS

Retired Moderator

21

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: United States

Posted: 31st Oct 2005 22:39

Link

This is excellent, very nice job.

A book? I hate book. Book is stupid.
(Formerly Yellow)

Back to top

Profile PM Email

Diablos

19

Years of Service

User Offline

Joined: 15th Oct 2005

Location: meh?

Posted: 1st Nov 2005 20:14

Link

amazing code

however is there any way of getting rid of those ugly lines going through the middle?

im a noob at this and can barely get my text games to work however, so ignore me if its a stupid question.

-Pain is temporary, pride is forever.

Back to top

Profile PM Email

Jukuma

21

Years of Service

User Offline

Joined: 18th Nov 2003

Location: Germany

Posted: 2nd Nov 2005 22:11

Link

thanks all!

@diablo
can't see ugly lines in the middle

Quote: "Why do the cameras have to be continually deleted and recreated?"

to save frames for the realtime reflection on the spheres.
the cam's for the cube map shifted to the next sphere every frame,
so the all updated in a period of 3 frames.

Back to top

Profile PM

Freddy 007

19

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 6th Nov 2005 21:05 Edited at: 6th Nov 2005 21:07

Link

Can someone post a screenshot? I get some strange memblock error when compiling.

Strange! I just tried compiling again(on the same PC and everything), and no error!

It looks very awesome! What's your secret!?

Back to top

Profile PM Email

Ryan

18

Years of Service

User Offline

Joined: 29th Nov 2005

Location:

Posted: 30th Nov 2005 22:28

Link

Diablo,

Try to upgrade your video driver.

I had similar problems with the vertex shaders and the upgrade solved most of my problems.

Good Luck, Ryan

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / plasma old school