Rem Project: RealtimeReflectionsRem Created: 12.01.2004 21:51:40 Rem ***** Main Source File *****sync rate 0 : sync on : randomize timer() : autocam off : backdrop off MakeSong() create bitmap 1,1540,1540 for x=0 to 1539 step 77 for y=0 to 1539 step 77 MakeButton(361,0,76,2,"",rgb(255,rnd(255),0)) paste image 361,x,y next ynext x get image 362,0,0,1540,1540 delete bitmap 1make object sphere 1000,1540set object cull 1000,0set object light 1000,0texture object 1000,362 rem MakeSkybox(1000) dim sphere#(8,6)for s=1 to 8 make object sphere s,100 rem fade object s,300 set object light s,0 sphere#(s,1)=rnd(400)-200 sphere#(s,2)=rnd(400)-200 sphere#(s,3)=rnd(400)-200 sphere#(s,4)=(rnd(40)-20)*0.01 sphere#(s,5)=(rnd(40)-20)*0.01 sphere#(s,6)=(rnd(40)-20)*0.01 next s repeat set cursor 0,0 print screen fps() for s=1 to 8 position object s,sphere#(s,1),sphere#(s,2),sphere#(s,3) sphere#(s,1)=sphere#(s,1)+sphere#(s,4) sphere#(s,2)=sphere#(s,2)+sphere#(s,5) sphere#(s,3)=sphere#(s,3)+sphere#(s,6) if abs(sphere#(s,1))>250 then sphere#(s,4)=0-sphere#(s,4) if abs(sphere#(s,2))>250 then sphere#(s,5)=0-sphere#(s,5) if abs(sphere#(s,3))>250 then sphere#(s,6)=0-sphere#(s,6) if object hit(s,0) sphere#(s,4)=0-sphere#(s,4) sphere#(s,5)=0-sphere#(s,5) sphere#(s,6)=0-sphere#(s,6) endif next s a#=wrapvalue(a#+0.1) set camera to follow 0,0,0,a#,500,sin(a#)*200,1,0 point camera 0,0,0 inc i,10 : if i>80 then i=10 SyncCams(i) until mouseclick()end function MakeSkybox(o) make object plain o,512,512 make mesh from object 1,o restore skybox for l=1 to 6 read x,y,z,x#,y#,z# load image "landscape"+str$(l)+".bmp",o+l add limb o,l,1 rotate limb o,l,x,y,z offset limb o,l,x#,y#,z# texture limb o,l,o+l next l delete mesh 1 hide limb o,0 set object o,1,1,0,1,0,0,0 set object texture o,2,0 set object collision off o scale object o,500,500,500 skybox:data 270,270,0,0,255.5,0data 0,0,0,0,0,255.5data 0,90,0,255.5,0,0data 0,180,0,0,0,-255.5data 0,270,0,-255.5,0,0data 90,270,0,0,-255.5,0 endfunction function SyncCams(i) restore cams for c=1 to 6 make camera c read x,y,z rotate camera c,x,y,z position camera c,object position x(i/10),object position y(i/10),object position z(i/10) set camera aspect c,1 set camera fov c,90 set camera to image c,i+c,128,128 next c sync for c=1 to 6 : delete camera c : next c set cube mapping on i/10,i+1,i+2,i+3,i+4,i+5,i+6 cams:data 0,90,0data 0,270,0data 270,0,0data 90,0,0data 0,0,0data 0,180,0 endfunction function Deco(d$,i) d=asc(mid$(d$,i)) dec d,48 if d>9 then dec d,7 endfunction d function MakeSong() restore song open to write 1,"temp.sng" do read d$ if d$="" then exit for i=1 to len(d$) step 2 d=Deco(d$,i)*16+Deco(d$,i+1) write byte 1,d next i loop close file 1 load music "temp.sng",1 loop music 1 delete file "temp.sng" song: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" endfunction function MakeButton(i,w,h,s,t$,c1) dec h,s ink c1,0 for a=0 to 359 x=newxvalue(h/4,a,h/4) y=newzvalue(h/4,a,h/4) box x,y,x+h/2,y+h/2 next a c2=c1 if rgbr(c2)>49 then c2=rgb(rgbr(c2)-50,rgbg(c2),rgbb(c2)) if rgbg(c2)>49 then c2=rgb(rgbr(c2),rgbg(c2)-50,rgbb(c2)) if rgbb(c2)>49 then c2=rgb(rgbr(c2),rgbg(c2),rgbb(c2)-50) ink c2,0 for a=0 to 359 x=newxvalue(s+h/4,a,h/4) y=newzvalue(s+h/4,a,h/4) box x,y,x+h/2,y+h/2 next a inc h,s get image i,h/2,0,h-1,h-1 ink c1,0 box h/2,0,h/2+w,h-1 ink c2,0 box h/2,s,h/2+w,h-1 paste image i,h/2+w,0 c3=c2 if rgbr(c3)>49 then c3=rgb(rgbr(c3)-50,rgbg(c3),rgbb(c3)) if rgbg(c3)>49 then c3=rgb(rgbr(c3),rgbg(c3)-50,rgbb(c3)) if rgbb(c3)>49 then c3=rgb(rgbr(c3),rgbg(c3),rgbb(c3)-50) ink c3,0 text 6,-1,t$ ink c1,0 text 6+s,s-1,t$ get image i,0,0,h+w-1,h-1 endfunction
----------------
« 1 (2)
Diskussion | Neueste zuerst Vorheriges Thema | Nächstes Thema |
Du musst dich erst registrieren bevor du Beiträge veröffentlichen kannst ________________3d games creator - Programmierung - Anfängerboard - Fertiggestellte Projekte - Noch unfertige Projekte - Bugs und Verbesserungen ________________Darkbasic - Programmierung - Anfängerboard - Fertiggestellte Projekte - Noch unfertige Projekte ________________Allgemeines zu Programmierung und Grafik - Allgemeines zur Programmierung - 2d und 3d Artwork ________________Was sonst nirgends passt - Sonstiges