ф* ╦MК************************************╦MК** PYRAMID 3D GRAPHIC PYRAMID ***╦MК** CREATED 07/05/84 BY A.G. ***(╦MК***********************************,2╦MА A-Z : А A,D,I,J,K : А : А1"CALC.";7<╘MА SP%(912),E%(6,3),V(4,3),SV%(4,2),S%(4,4),N(4,3).F╘MRH=15 : D=4000 : AD=1 : CX%=400 : CY%=5002P°MS1=Ж(.5) : C1=Ж(.5) : S2=Ж(.9) : C2=Ж(.9)3Z4NCT=Ж(.1) : ST=Ж(.1) : SO=Ж(-.1): CO=Ж(-.1)dpNSP=Ж(-.1): CP=Ж(-.1)nОNА 0, 0, 1.75xОNА 1, 0, 0ВОNА -.2, 1, 0МОNА -.2,-1, 0ЦОNА I=1 К 49аФN А X,Y,Z : V(I,1)=X : V(I,2)=Y : V(I,3)=Z : А zк√NА┤OА 1,4,2,1╛OА 1,2,3,1╚OА 1,3,4,1╥OА 2,4,3,2▄OА I=1 К 4ц O А J=1 К 4ЁO А S%(I,J)·(O А J 4OА I@OА IR = 1 К 36FO А I=1 К 6"LO E%(I,3)=0,_O А I6kO А I=1 К 4%@qO U1=V(S%(I,2),1)-V(S%(I,1),1)%J╜O U2=V(S%(I,2),2)-V(S%(I,1),2)%T P U3=V(S%(I,2),3)-V(S%(I,1),3)%^]P V1=V(S%(I,3),1)-V(S%(I,1),1)%hйP V2=V(S%(I,3),2)-V(S%(I,1),2)%r∙P V3=V(S%(I,3),3)-V(S%(I,1),3)A|IQ N(I,1)=U2*V3-V2*U3:N(I,2)=U3*V1-V3*U1:N(I,3)=U1*V2-V1*U2ЖR А I+Р(R XE=RH*S2*C1 : YE=RH*S2*S1 : ZE=RH*C2ЪЧR N%=1дЭR А I=1 К 4огR E2%=S%(I,1)9╕╢R WX=XE-V(E2%,1) : WY=YE-V(E2%,2) : WZ=ZE-V(E2%,3)0┬&S А А N(I,1)*WX+N(I,2)*WY+N(I,3)*WZ > 0╠нS E1%=S%(I,1)╓└S А J=2 К 4р╞S E2%=S%(I,J)ъ▄S А K=1 К N%BЇтS А E%(K,1)=E2% К E%(K,2)=E1% К E%(K,3)=2 : А ■;T А K5HT E%(N%,1)=E1% : E%(N%,2)=E2% : E%(N%,3)=1БT N%=N%+1ЕT E1%=E2%&ЛT А J0ЪT А А:ЪT А IDйT А I=1 К 6NпT А А E%(I,3) X╟T J=E%(I,1) : K=E%(I,2)2bэT SP%(AD )=SV%(J,1) : SP%(AD+1)=SV%(J,2)2l&U SP%(AD+2)=SV%(K,1) : SP%(AD+3)=SV%(K,2)vdU А ААdU AD=AD+4 КiU АФxU А I=1 К 4EЮ~U T1=CP*CT*V(I,1)-(ST*CP+SO*SP)*V(I,2)+(SO*ST*CP-SP*CO)*V(I,3)/иiV T2=ST*V(I,1)+CO*CT*V(I,2)-SO*CT*V(I,3)H▓W T3=SP*CT*V(I,1)+(SO*CP-CO*ST*SP)*V(I,2)+(ST*SO*SP+CO*CP)*V(I,3)?╝·W V(I,1)=T1 : V(I,2)=T2 : V(I,3)=T3 : X=T1 : Y=T2 : Z=T3╞pX А z ╨sX А┌ВX А B:А:А1"*";фСXАюаXА I=1 К 48°жX SP%(I+864)=SP%(I) ╛XА I$╩XAD=1 : M=M+1 : А M > 15 К M=0&YА- M : А1 @(0,0) "MODE";M : А1 И3BYА Ж("*") : А 4: А 0 : AD=AD-24 : А 4 _YА X:А AD=865 К *sYА 4vYА I=1 К 6>|Y А А SP%(AD)4HНY А SP%(AD),SP%(AD+1) К SP%(AD+2),SP%(AD+3)R╞Y А А\╞Y AD=AD+4f╦YАp╫YАz╪YXE=-X*S1+Y*C1ДZYE=-X*C1*C2-Y*S1*C2+Z*S2 ОГZZE=-X*S2*C1-Y*S2*S1-Z*C2+RHШ[SV%(I,1)= D*XE/ZE+CX%вE[SV%(I,2)=-D*YE/ZE+CY%мО[А