/  CAD3D%LIEBOLD, 13.10.1987<0,31,0,39:15,1:N(0,6;"CAD3D"~2:"Mit dem Programm k|nnen beliebige K|r-"4"per dreidimensional dargestellt werden."6:"Dabei sind Drehungen um alle Achsen,"8"Verschiebungen auf dem Bildschirm und"3:"Vergr|~erungen bzw. Verkleinerungen"C<"m|glich."r>:"Prinzipiell sind Parallelprojektionen"@"und Zentralprojektionen darstellbar."B:"F}r die Darstellung eines K|rpers wer-"D"den seine Punktkoordinaten (x,y,z) und")F"die entsprechenden Verbindungslinien" XH"ben|tigt. Beides kann }ber die Tastatur"J"eingegeben werden. Ein Auslagern und"L"Einlesen dieser Daten ist weiterhin"N"m|glich."P:"S{mtliche Darstellungen und Datens{tze"R"k|nnen }ber einen Drucker ausgegeben"*T"werden."UV:"Beim Start des Programms wird ein"X"Demonstrationsbeispiel (Haus) initiali-"Z"siert."dX(50),Y(50),Z(50)nXS(50),YS(50),ZS(50)xXP(50),YP(50)V(100),B(100)I0:SP$(39,(32))VX100:VY100:M154W45:V.5:E15:S5:H2<B$CPNI1PbX(I),Y(I),Z(I)hoLzI1LV(I),B(I)HAUS100,0,0,0,10,0,5,10,0,5,0,0"0,0,5,0,10,5,5,10,5,5,0,5,2.5,2,10,2.5,8,10617 @1,2,2,3,3,4,4,1( J1,5,2,6,3,7,4,8= T5,6,6,7,7,8,8,5T ^5,9,8,9,6,10,7,10^ h9,10| r0,6;(30,0);"< ENTER >" |յ(13)380 (30,0);SP$  0,31,0,39:15,1: 0,6;(2,5);"CAD3D" (5,5);"Hauptmen}" (10,5);"1 INPUT" &(12,5);"2 LOAD"> 0(14,5);"3 Parallelprojektion"a :(16,5);"4 Zentralprojektion"w D(18,5);"5 SAVE" N(20,5);"6 END" X()1000,2000,3000,4000,5000,620 b600 l: INPUT  0,6;(30,0);"Alten Datensatz l|schen? (Y)" I$:I$""1030, (30,0);SP$> I$"Y"1130P $B$"":P0:L0\ .I150u 8X(I)0:Y(I)0:Z(I)0{ B LI1100 VV(I)0:B(I)0 ` j10000 t(8,0);"Bezeichnung : ";B$ ~8,13:"";B$ 9,31,0,39:15,1: (10,0);"Punktanzahl :";P" 1,13:"";PV (12,0);"Punkt ( x , y , z ) Korrektur"m (13,0);(40,"_")} 14,31,0,39 I1P  I;10);X(I);15);Y(I);20);Z(I);26); "";X(I),Y(I),Z(I)  9,31,0,39:15,1: (10,0);"Verbindungen:";L 1,13:"";LP (12,0);"Linie von Pkt. bis Pkt. Korrektur"g (13,0);(40,"_")w (14,31,0,39 2I1L < FI;9);V(I);19);B(I);26); P"";V(I),B(I) Z d0,31,0,39:15,1: n0,6;(30,0);"Drucker (Y)" xI$:I$""1400(30,0);SP$.I$"Y"5004Q#2;"Bezeichnung : ";B$c#2;(80,"-")o#2:#2#2;"Punktanzahl : ";P#2I1P"#2;X(I)7);Y(I);14);Z(I),6#2:#2@#2;"Verbindungen: ";LJ#2TI1L^#2;V(I);7);B(I)h&r#2;(12)/|5009LOAD?n0,6;(30,0);"LOAD: Recorder fertig? (Y)"I$:I$""2030(30,0);SP$I$"Y"500 I#1"CAD3DF"#1B$:#1P:#1L I1P*#1X(I)4#1Y(I)>#1Z(I)H RI1L\#1V(I)"f#1B(I)(p1zI#1:500R Parallelprojektionb 6000:7000l 9000 0,6;(30,0);" 1 Ver{nderungen 2 Drucker 3 fertig " ()3000,3060,500 3040 (30,0);SP$ 14856,9:(15) #2;"Parallelprojektion: ";B$# #2;(80,"-")+ #2;& 6500:7500E0 3030\Zentralprojektionl6000:8000v90000,6;(30,0);" 1 Ver{nderungen 2 Drucker 3 fertig "()4000,4060,5004040(30,0);SP$14856,9:(15)#2;"Zentralprojektion: ";B$,#2;(80,"-")4#2D6500:8500N4030XSAVE^0,6;(30,0);"SAVE: Recorder fertig? (Y)"I$:I$""5030(30,0);SP$I$"Y"500O#1"CAD3DF"#1B$:#1P:#1LI1P#1X(I) #1Y(I)#1Z(I)) I1L5#1V(I)A#1B(I)G(P2O#1Y<500_pezp10000(10,3);"Drehwinkel x-Achse Wx:" (12,3);"Drehwinkel y-Achse Wy:" (14,3);"Drehwinkel z-Achse Wz:"(10,26);WXFS26:(WX)0FS25 10,FS:"";WXBSX(WXǯ180):CX(WXǯ180)S(12,26);WYlFS26:(WY)0FS25~12,FS:"";WYSY(WYǯ180):CY(WYǯ180)(14,26);WZFS26:(WZ)0FS2514,FS:"";WZSZ(WZǯ180):CZ(WZǯ180) $I1P.X0X(I),8Y0Y(I)CXZ(I)SXCBZ0Z(I)CXY(I)SXVLX1X0CYZ0SY`VY1Y0s`Z1Z0CYX0SYjXS(I)X1CZY1SZtYS(I)Y1CZX1SZ~ZS(I)Z1(16,2);"Koordinatenursprung Vx:" (18,2);"Koordinatenursprung Vy:" )(20,2);"Vergr|~erungsfaktor M :":(16,26);VXU16,26:"";VX:VX(VX)f(18,26);VY18,26:"";VY:VY(VY)(20,26);M20,26:"";M:M(M)dn#2;"Wx: ";WX;15);"Wy: ";WY;30);"Wz: ";WZx#2;"Vx: ";VX;15);"Vy: ";VY;30);"M : ";M XEb(22,4);"Verzerrungswinkel W :"nl(24,0);"Verzerrungsverh{ltnis V :"~v(22,26);WFS26:(W)0FS25 22,FS:"";W(24,26);V24,26:"";V:V(V)I1PXP(I)(YS(I)VXS(I)(Wǯ180))MVX/YP(I)(ZS(I)VXS(I)(Wǯ180))MVY5;AL`V#2;"W : ";W;15);"V : ";Vn`#2;(12)tjz@J(22,11);"Entfernung E :"T(24,8);"Seitenabstand S :"^(26,5);"Betrachtungsh|he H :"h(22,26);Er22,26:"";E:E(E)|(24,26);S.FS26:(S)0FS25?24,FS:"";SO(26,26);HhFS26:(H)0FS25 y26,FS:"";HI1PXP(I)(YS(I)S)(EXS(I))MSEMVXYP(I)(ZS(I)H)(EXS(I))MHEMVY4!>!#2;"E : ";E;15);"S : ";S;30);"H : ";H#H!#2;(12))R!/(#52#@<#I1LlF#XP(V(I)),YP(V(I)),XP(B(I)),YP(B(I)),15rP#Z#VX,VY,31d#''(1,12);"Koordinatensystem"$'240,198,258,216,15.'258,216,290,216,158'258,216,258,248,15B'(6,29);"x"L'(3,36);"y"(V'(0,31);"z".`'240,198,258,216,15.'258,216,290,216,158'258,216,258,248,15B'(6,2