ф ANIMATION ф л2:ы15 ф *LOAD Code.PlanScr ф GOTO 100 (сЉ6)"ANIMATION":п5 2тsphere(150,900,100,-Ї/6) <тsphere(1190,945,75,-5*Ї/4) Fтsphere(620,512,400,9*Ї/8) Pтsphere(200,-292,900,Ї/12) Zтstars:тpath d)п19,1,3;0;19,2,1;0;19,15,10;0;29,0;0; nгI%=9ё14:п19,I%,0;0;:н xх ‚гI%=3ё8 ЊJ%=I%-1:з J%=2 J%=8 –п19,J%,1;0;19,I%,3;0; п19,J%+6,0;0;19,I%+6,7;0; ЄK9=¦(5) ґн ѕэЈ ИЭ тsphere(X%,Y%,R%,Tilt) Тп18;2,29,X%;Y%;:м0,R% ЬгPhi=0ё6.4 € .15 жм0,0:р85,R%*µ Phi,R%*› Phi рн ъ Col%=3 гPhi=0ё3.1 €.1 ж0,Col% #тarc(R%*›Phi,R%,0,Ї/2+Tilt,Ї/2) "Col%=Col%+1:зCol%=9Col%=3 ,н 6ж0,1 @гTheta=.5ё2.5 €.5 J3тarc(-R%/4*µTheta,R%*µTheta,R%*›Theta,Tilt,1.5) Tн ^б hЭ тarc(H%,W%,D%,Alpha,Beta) rS=µ Alpha:C=› Alpha | X%=W%*µ Beta:Y%=D%+H%*› Beta †м C*X%+S*Y%,C*Y%-S*X% ђгGamma=-Beta ё Beta+.1€.25 љ#X%=-W%*µ Gamma:Y%=D%+H%*› Gamma ¤ЯC*X%+S*Y%,C*Y%-S*X% ®н ёб ВЭ тpath М X%=1179:Y%=130:R%=100:Col%=9 ЦгTilt=3.6ё0 €-.15 а"ж0,Col%:тsquare(X%,Y%,R%,Tilt) к&X%=.9*X%+80:Y%=.5*Y%+440:R%=R%*.92 ф Col%=Col%-1:з Col%=8 Col%=14 ю н б Э тsquare(X%,Y%,R%,Tilt) п29,X%;Y%; &S=µ Tilt:C=› Tilt 0мR%*(C+S),R%*(C-S) :,ЯR%*(C-S),R%*(-C-S):Я R%*(-C-S),R%*(S-C) D*ЯR%*(S-C),R%*(C+S):Я R%*(C+S),R%*(C-S) Nб XЭ тstars bп29,0;0; lгI%=0ё40 v< X%=1279:Y%=25*I%:X1%=-8*(2+і(2)):Y1%=3-і(5):Col%=і(6)+8 { X%=X%+32 Ђ"х Col%=Col%-1:з Col%=8 Col%=14 Љ( P%=°X%,Y%):з P%=0 ж0,Col%:р69,X%,Y% ”X%=X%+X1%:Y%=Y%+Y1% ћ эX%<1 Ён Іб я