E|cINX @< @>?- /%ca, /%dt,SINX,%R5//%os, SINY @< @>?- /%dt,SINY,%R5//%os, SINZ @< @>?- /%dt,SINZ,%R5//%md,X/%md,Y/%/ $$$ROTATE%os, SINX @< @>?- /%ca, /%dt,SINX,%R5//%os, SINY @< @>?- /%dt,SINY,%R5//%os, SINZ @< @>?- /%dt,SINZ,%R5//%md,X/%md,Y/%md,Z/%md,P/%et,PIX/%os, PRINT @?- /%ii,%ic/,Y,!%dt,R4,!%vt,PIX////,!%et,R4///%os, /%RO1/OR5%dt,X1,%ad,,&is///%dt,X1,%fdc,X1,3//%ig,%X1/,100,!%fdc,X1,2//,!%X1///EFS%ig,,,!%su,,1//,!%S,,%ad,,2/,%ad,,%ad,,1//,%ad,,1////=aSHOW%dt,PIX,&ft,PIX/%fr,P,|,!%md,/%md,/%md,P/%*/%RI///%fr,,|/!,/%fr,,|/!,//%SHOW,,/UGR2%dt,1X,%fr,X,|,!%R3////%dt,1Y,%fr,Y,|//%dt,1Z,%fr,Z,|// %R2A/=6R2B%dt,PIX,&ft,PIX/%fr,P,|/%X1/!,/%Y1/!,//%R2/+BP||||U|||||U||||U|||||||U|||||||||||U||U||U||||U||||U||U||9Z-350||350||100|350||-350||-50|||||-150||150|150||-150||50||||-50|-50||||50|50|-100|100|-100|100|-20||20|-100|20||-20|80|-60||60||Y0|||||||||50|150||-170|170|||||||-200|50||-100||50|50||-100||50|50||-100||100|-20|-60|-20|100|-20|-60|-20|80||-60||sX250|80|-130|-200||250|80|-130|-200|350|100|80|-30|-150|150|100|-70|70|-100|-150|-600|150|450||-450|-150|150|450||-450|-150|600|||||150||-150||150||-150|150|||| X10 1Z 1Y 1XPIX0,0,0,0,0,0,0,0, Y10R2A%R2NZ/ZPLOT%dt,N,%ad,%N/,1//%tb,PIX%N/,!%PLOT1/%PLOT//,!%os,! Plot /&ft,file/ done/%ri///N]PLANE L250,500,450,500,500,100 580,500,100 450,500,450 250,500,450 250,500,550,500,500,900 580,500,900 450,500,550 250,500,550 600,550,500,700,700,500 780,700,500 750,530,500 600,700,500,750,700,350 850,700,350 780,700,500 850,700,650 750,700,650 600,700,500 0,500,500,150,550,550 600,550,550 600,450,550 150,450,550 0,500,500 150,550,450 600,550,450 600,450,450 150,450,450 0,500,500 600,550,550,600,550,450 600,450,550,600,450,450 600,550,550,750,530,530 750,470,530 600,450,550 600,550,450,750,530,470 750,470,470 600,450,450 750,530,530,750,530,470 750,470,470,750,470,530 W C800,500,500@ZOOM PNBOX @ L500,700,500,500,500,500 700,500,500 500,500,500,500,500,700 W C700,500,500@X-AXIS 500,700,500@Y-AXIS 500,500,700@Z-AXIS N @ L300,300,300,450,300,300 450,300,450 300,300,450 300,300,300 N 300,400,300 450,400,300 450,400,450 300,400,450 300,400,300 450,300,300,450,400,300 450,300,450,450,400,450 300,300,450,300,400,450 C'XYP250,0,80,,-130,,-200,,U,,250,,80,,-130,,-200,,U350,50,100,150,80,,-30,-170,U-150,170,150,,100,,-70,,70,,-100,,-150,,U-600,-200,150,50,450,,,-100,-450,,-150,50,150,50,450,,,-100,-450,,-150,50,U600,50,,,U,-100,,,U,100,150,-20,,-60,-150,-20,U,100,150,-20,,-60,-150,-20,U150,80,,,U,-60,,,YZP0,-350,,,,350,,,U,100,,350,,,,-350,,,U50,-50,150,,,,-170,,U170,,,-150,,,,150,,150,,,,-150,U-200,,50,50,,,-100,,,,50,-50,50,-50,,,-100,,,,50,50,U50,50,,-100,U-100,100,,-100,U100,100,-20,-20,-60,,-20,20,U100,-100,-20,20,-60,,-20,-20,U80,80,,-60,U-60,,,60,4XZP250,-350,80,,-130,350,-200,,U,100,250,350,80,,-130,-350,-200,,U350,-50,100,,80,,-30,,U-150,,150,-150,100,,-70,150,70,150,-100,,-150,-150,U-600,,150,50,450,,,,-450,,-150,-50,150,-50,450,,,,-450,,-150,50,U600,50,,-100,U,100,,-100,U,100,150,-20,,,-150,20,U,-100,150,20,,,-150,-20,U150,80,,-60,U,,,60,) R6300ROTEND1%et,N/%PLOT/ PIXENDU-%R6/,%WY/ PROTEND%os,! output file name @?- //%ca,!//%dt,file,&is//%ROTEND1/B,A%os,! Plane rotation ... //%ROTATE/#5R1%dt,COS,%S,%su,10000,%mu,%SIN/,%SIN/////+\RO1%RO2,X/%RO2,Y/%RO2,Z/%ig,%SINZ/,,!%dt,R2A,!%R2IZ///%R2//,!%dt,R2A,!%R2NZ///%R2///QFRO2%ig,%SIN/,,!%R1,//,!%dt,COS,100///%os,COS=.&ft,COS/ /;R2NZ%dt,X1,%di,%ad,%mu,%1X/,%COSY//,%mu,%1Z/,%SINY///,100//%dt,Y1,%di,%ad,%mu,%1Y/,%COSX//,%mu,%1Z/,%SINX///,100//%R2B/sR2IZ%dt,X1,%di,%ad,%mu,%1X/,%SINZ//,%mu,%1Y/,%COSZ///,100//%dt,Y1,%di,%ad,%mu,%1Y/,-%SINZ//,%mu,%1X/,%COSZ///,100//%dt,1X,%X1//%dt,1Y,%Y1//%R2NZ/R3%R4/%dt,N,%ad,%N/,1//%ct,PIX%N/,PIX,PIXEND/%os,! PIX/%N/ done - More @?- /%et,PIX/%ii,%ic/,Y,!%ROTATE//,!%ROTEND///y6u%ef,threed.sam/%sf,threed.sam/%bf,threed.sam/-