ô Graphics Demo ,Ý ò_exit ë 0:Û:ñ"Thanks for watching!":à >î … ÿ"REFRESH ON":ç Ÿ=17 ò_exit ‹ ë 0:Û:ö:ñ" at line ";ž:à (: 2ô Initialisation U<ç ¦-256=&83 „ ¦-256=&84 Œ ë 4:ÿ"GSCALE 16" ‹ ã C%=0 ¸ 15:û C%,C%*17,C%*17,C%*17:í Fï 23,1,0;0;0;0; Pô Demo loop Zã demo%=1 ¸ 5 dW%=¹ 6nî demo% ò_colours,ò_fill,ò_pyramid,ò_rose,ò_sphere xç W% W%=¦(400) ‚í demo% Œò_exit –:  Ý ò_rose ªï 29,768;512;:æ0:æ143:Ú ´S%=5:DA=0:R=500 ¾õ Èã A%=1 ¸ S% =ÒA0=(A%-.5)/S%*2*¯+DA:A1=A%/S%*2*¯+DA:A2=(A%+.5)/S%*2*¯+DA -ÜìR*µA0,R*›A0:ìR*µA1,R*›A1:ð85,R*µA2,R*›A2 æí A% ðDA=DA+¯/S%:R=R*›(¯/S%) úý R<96 á : Ý ò_fill "ï 29,768;512;:æ128:Ú ,ã C%=1 ¸ 3 6æ 15 @ã S%=0 ¸ 32 JA=S%/16*¯ TR=60*C%*(3+µ(A*8)) ^X=R*µ(A):Y=R*›(A) hç S%=0 ì X,Y ‹ ß X,Y rí S% |í C% †æ 13:ð 133,0,0 æ 7:ð 133,0,220 šæ 2:ð 133,0,430 ¤á ®: ¸Ý ò_colours Âï 5 Ìã Y%=3 ¸ 0 ˆ -1:ã X%=0 ¸ 3 Öï 29,X%*384;Y%*256; àC%=(3-Y%)*4+X%:æ C% êì0,0:ð97,383,255 ôC$=ÃC% +þï 29,X%*384+64+(2-©(C$))*64;Y%*256+176; *REFRESH OFF æ 0 ã A%=-1 ¸ 1:ã B%=-1 ¸ 1 &ì A%*16,B%*16:ñC$; 0í B%:í A% :æ 15:ì 0,0:ñC$; D*REFRESH ON Ní X%:í Y% Xï 4 bá l: vÝ ò_sphere €ï 29,768;512;:æ 143:Ú Šã C%=15 ¸ 0 ˆ -1 ”æ C% žs=500*µ(C%/32*¯) ¨ì0,-450:ð0,s,s/2:ð201,0,0 ²í C% ¼ã C%=0 ¸ 15 Ææ C% &Ðì-C%*5,C%*10:ð153,0,450*›(C%/32*¯) Úí C% äá î: øÝ ò_pyramid ï 29,768;512;:æ135  Þ pyr(6,2) Ñ=0  *REFRESH OFF *õ 4Ú:R=‘/200 >ã S%=0 ¸ 3 )HA=S%/3*2*¯+R:pyr(S%,0)=-16*›(A+1.047) Rç pyr(S%,0)<0 pyr(S%,0)=0 \ç pyr(S%,0)>15 pyr(S%,0)=15 )fpyr(S%,1)=500*µA:pyr(S%,2)=150*›A-300 pí S% )zpyr(4,0)=0:pyr(5,0)=0:pyr(6,1)=0:D%=0 „ã S%=0 ¸ 2 >Žç pyr(S%,1)˜ç pyr(S%,1)>pyr(5,0) pyr(5,0)=pyr(S%,1):pyr(5,1)=pyr(S%,2) >¢ç pyr(S%,2)pyr(S%+1,1)D%=D%+1:æpyr(S%,0):ì0,400:ìpyr(S%,1),pyr(S%,2):ð85,pyr(S%+1,1),pyr(S%+1,2) ¶í S% Àæ0 Êì0,400:ßpyr(4,0),pyr(4,1) Ôç D%=2:ßpyr(6,0),pyr(6,1) Þßpyr(5,0),pyr(5,1):ß0,400 è*REFRESH òý ‘>1200 ü*REFRESH ON W%=£ á ÿÿ