Lۈӈ!#T]w!#T]'w-   1 UP SCHNELL-CLS e ## PROJEKTIONEN ## 0,31,0,39 : 7,0 : :  11);"## PROJEKTIONEN ##" : 11);(18,"-")( AP(50,3),EP(50,3),AD(50,3),ED(50,3)2 AUSWAHL DER OBJEKTE3< (5,1);"WELCHES OBJEKT SOLL DARGESTELLT WERDEN?"UF (7,5);"1 FRUEHBEETKASTEN"xP (9,5);"2 MASCHINENELEMENT"Z (11,5);"3 GEBAEUDE"d (13,5);"4 FREI WAEHLBARES OBJEKT"n 15,1 : "BITTE KENNZAHL EINGEBEN:";KEx KE1 KE4 110  KE1 4000 : 3000= KE2 5000 : 3000Z KE3 6000 : 3000n KE4 1500y 406 (5,1);"WELCHE DARSTELLUNGSART WIRD GEWUENSCHT?" (7,5);"1 FRONTALDIMETRIE" (9,5);"2 DIMETRISCHE PROJEKTION"& (11,5);"3 ISOMETRISCHE PROJEKTION"K (13,5);"4 ZENTRALPROJEKTION"x 15,1 : "BITTE KENNZAHL EINGEBEN:";KE KE1 KE4 230 406 : KE 300,500,700,900, FRONTALDIMETRIE6 : "FRONTALDIMETRIE"@ "MASSSTAB (z.B. 1) =";MA)J "X-WINKEL (z.B. 45grad) =";WIXT "X-VERKUERZUNG (z.B. 0.5) =";VE : 406u^ 10);"FRONTALDIMETRIE"h "MASSSTAB=";MA;" WINKEL=";WI;" VERK.=";VEr I1 AN|XA(AP(I,2)AP(I,1)VE(WIǯ180))MA YA(AP(I,3)AP(I,1)VE(WIǯ180))MA5 XE(EP(I,2)EP(I,1)VE(WIǯ180))MA` YE(EP(I,3)EP(I,1)VE(WIǯ180))MA XAXA160 : YAYA120 : XEXE160 : YEYE120  9000  I  2000  DIMETRISCHE PROJEKTION  : "DIMETRISCHE PROJEKTION"  "WINKEL UND VERKUERZUNGEN LIEGEN FEST"E  "MASSSTAB (z.B. 1) =";MA : 406h  8);"DIMETRISCHE PROJEKTION"} & "MASSSTAB=";MA 0 I1 AN :XA(AP(I,2)(63)8AP(I,1)38)MA DYA(AP(I,3)AP(I,2)8AP(I,1)(7)8)MA NXE(EP(I,2)(63)8EP(I,1)38)MA6 XYE(EP(I,3)EP(I,2)8EP(I,1)(7)8)MAh bXAXA160 : YAYA120 : XEXE160 : YEYE120s l 9000{ v I  2000  ISOMETRISCHE PROJEKTION  : "ISOMETRISCHE PROJEKTION"  "WINKEL UND VERKUERZUNGEN LIEGEN FEST"  "MASSSTAB (z.B. 1) =";MA : 406A  8);"ISOMETRISCHE PROJEKTION"V  "MASSSTAB=";MAe  I1 AN XA(AP(I,2)(3)2AP(I,1)(3)2)MA YA(AP(I,3)AP(I,2)2AP(I,1)2)MA XE(EP(I,2)(3)2EP(I,1)(3)2)MA YE(EP(I,3)EP(I,2)2EP(I,1)2)MA; *XAXA160 : YAYA120 : XEXE160 : YEYE120F 4 9000N > IY H 2000q  ZENTRALPROJEKTION  : "ZENTRALPROJEKTION"  "DREHWINKEL Y-ACHSE (z.B.0 grad) =";WY : BYWYǯ180 "DREHWINKEL Z-ACHSE (z.B.15 grad) =";WZ : BZWZǯ180A "DREHWINKEL X-ACHSE (z.B.0 grad) =";WX : BXWXǯ180` : 23;"BITTE WARTEN!" : "ICH BERECHNE DIE GESAMTDREHUNG" I1 AN DREHUNG Y-ACHSEY5AP(I,2) : Y7EP(I,2)Z5AP(I,3)(BY)AP(I,1)(BY)Z7EP(I,3)(BY)EP(I,1)(BY)5X5AP(I,1)(BY)AP(I,3)(BY)XX7EP(I,1)(BY)EP(I,3)(BY)n DREHUNG Z-ACHSEY6Y5(BZ)X5(BZ)$Y8Y7(BZ)X7(BZ).Z6Z5 : Z8Z78X6X5(BZ)Y5(BZ)BX8X7(BZ)Y7(BZ)L DREHUNG X-ACHSEVAD(I,2)Y6(BX)Z6(BX)7`ED(I,2)Y8(BX)Z8(BX) UjAD(I,3)Z6(BX)Y6(BX)stED(I,3)Z8(BX)Y8(BX)~AD(I,1)X6 : ED(I,1)X8 I  406 10);"ZENTRALPROJEKTION" "DREHWINKEL Y-ACHSE=";WY;"grad" "DREHWINKEL Z-ACHSE=";WZ;"grad"8 "DREHWINKEL X-ACHSE=";WX;"grad" : _ "FUER DIE DARSTELLUNG SIND NOCH" "FOLGENDE ANGABEN ERFORDERLICH:" "MASSSTAB (z.B.250) =";MA "ENTFERNUNG (z.B.300) =";EN "SEITENABSTAND (z.B.70) =";SE "AUGENHOEHE (z.B.120) =";AU 4068  10);"ZENTRALPROJEKTION"d "MASSSTAB=";MA;20);"ENTFERNUNG=";EN  "SEITENABSTAND=";SE;20);"AUGENHOEHE=";AU( I1 AN2XA((AD(I,2)SE)(ENAD(I,1)))MA<XAXASEENMAFYA((AD(I,3)AU)(ENAD(I,1)))MAPYAYAAUENMA;ZXE((ED(I,2)SE)(ENED(I,1)))MANdXEXESEENMAtnYE((ED(I,3)AU)(ENED(I,1)))MAxYEYEAUENMAXAXA160 : YAYA120 : XEXE160 : YEYE120 9000 I "WEITERE VAR. MIT GLEICHER DREHUNG (J/N)?";J$ J$"J" 1170 : 2000? UP FREI WAEHLBARES OBJEKTN 406 : t "VOM GEWAEHLTEN OBJEKT MUESSEN" "DIE KOORDINATEN X,Y,Z DER AN" "FANGS- UND ENDPUNKTE DER DAR-" "ZUSTELLENDEN LINIEN EINGEGE-"  "BEN WERDEN (MAX.50 PAARE)!" : /" I208 239 : 272,I,7 : IR, I248 272 : I,I64 : Iv6 I272 295 : I,480I : I@ (1,34);"Z" : (8,30);"X" : (8,37);"Y"J "EMPFEHLUNGEN FUER DEN WERTE-"T "BEREICH" : "X= 0 BIS 150"^ "Y= 0 BIS 100" : "Z= 0 BIS 100" : @h "ABSCHLUSS DURCH EINGABE VON"`r "X-,Y-,Z-AP= 999,0,0" : | "GEBEN SIE NUN DIE ANFANGS-" "(AP) UND ENDPUNKTE (EP) EIN:" 19,30,0,39I1 : ZL0 I : ZL,5 "X-,Y-,Z-AP=";AP(I,1),AP(I,2),AP(I,3) AP(I,1)999 1780, ZL1,12Q "-EP=";EP(I,1),EP(I,2),EP(I,3)eII1 : ZLZL2y ZL11 ZL10 1700II1 : ANI : 0,31,0,39 PROGRAMMWIEDERHOLUNGEN "FORTSETZUNG DER BEARBEITUNG (J/N) ?";J$ 406 J$"N" 1 "SOLL AM GLEICHEN OBJEKT"\ "WEITERGEARBEITET WERDEN (J/N) ?";J$u  J$"J" 170 :  UP DATA-ZEILEN LADEN (MAX.50) AN I1 AN AP(I,1),AP(I,2),AP(I,3),EP(I,1),EP(I,2),EP(I,3) I  FRUEHBEETKASTEN 12( 0,0,0,150,0,0? 150,0,0,150,50,0U 150,50,0,0,50,0h 0,50,0,0,0,0{ 0,0,0,0,0,40 150,0,0,150,0,40 150,50,0,150,50,30 0,50,0,0,50,30 0,0,40,150,0,40 150,0,40,150,50,30 150,50,30,0,50,30" 0,50,30,0,0,403 MASCHINENELEMENT< 19O 0,0,0,0,90,0e 0,90,0,150,90,0| 150,90,0,150,0,0 150,0,0,0,0,0 150,0,0,150,0,30 150,90,0,150,90,30 0,90,0,0,90,30 0,40,30,150,40,30 150,0,30,150,90,30 150,90,30,0,90,304 0,90,30,0,40,30J  0,40,30,0,40,75] 0,0,0,0,0,75t 150,0,30,90,0,75( 150,40,30,90,40,752 90,40,75,0,40,75< 0,40,75,0,0,75F 0,0,75,90,0,75P 90,0,75,90,40,75p GEBAEUDEz 33 0,0,0,160,0,0( 160,0,0,160,90,0> 160,90,0,0,90,0Q 0,90,0,0,0,0f 0,90,0,0,90,90y 0,0,0,0,0,90 160,0,0,160,0,90 160,90,0,160,90,90 0,0,90,160,0,90 160,0,90,160,90,90 160,90,90,0,90,90 0,90,90,0,0,90 65,90,0,65,120,04 65,120,0,95,120,0K 95,120,0,95,90,0b 95,90,0,95,90,30{$ 95,120,0,95,120,30. 65,120,0,65,120,308 65,90,0,65,90,30B 65,90,30,95,90,30L 95,90,30,95,120,30V 95,120,30,65,120,30` 65,120,30,65,90,30%j 55,0,0,55,-25,0>t 55,-25,0,105,-25,0V~ 105,-25,0,105,0,0m 105,0,0,105,0,90 105,-25,0,105,-25,90 55,0,0,55,0,90 55,-25,0,55,-25,90 55,0,90,55,-25,90 55,-25,90,105,-25,90 105,-25,90,105,0,90(# UP ZEICHENROUTINEF2# XA0 XA319 YA0 YA255 9040q<# XE0 XE319 YE0 YE255 9040F# XA,YA,XE,YE,7P#ICHENROUTINEF2# XA0 XA319 YA0 YA255 9040q<# XE0 XE319 YE0 YE255 9040F# XA,YA,XE