%" I" m" PLOTTER PROGRAMMING " " ::" " FILE OPENING CONVENTIONS - " 3 :N " FILE NUMBERX " v " DEVICE ADDRESS " " SECONDARY ADDRESS " (PORT SELECT) " "  " PORT FUNCTION& " H  4,6 : ASCII DATA STRINGf  1,6,1 : PLOT COMMANDS  2,6,2 : PEN COLOR SELECT  3,6,3 : SELECT CHAR SIZE  44,6,4 : CHAR ROTATION  5,6,5 : DASH LINE SELECT  6,6,6 : UPPER/LOWER CASE&  7,6,7 : PLOTTER RESET, :P " t " CHARACTER PRINTING " :  PRINTING IS THROUGH PORT 0,  USING FILE NUMBER #4. THE  SYNTAX IS THE SAME AS FOR$  THE STANDARD PRINTER.* :M  PRINTING WITH QUOTED STRINGSS :s : 4,"QUOTED TEXT STRING"y :  PRINTING WITH STRING VARIABLES : : S$"STRING VARIABLE" : 4,S$ :  PRINTING WITH CHR$ CODES : : 4,(67)(72);( : 4,(82)(36);? : 4,(32)(67);V : 4,(79)(68);l : 4,(69)(83)r :  PRINTING WITH TAB AND SPC !: ": 4,">"10); #: 4,"I TABBED TO HERE" $: %: 4,">"10);&: 4,"I SPACED TO HERE"':,(" P)" USING THE OTHER PORTS t*" WITH CHARACTER PRINTING +" ,:-" ." SELECTING PEN COLOR /"0:01 SELECTING DIFFERENT PENS2 COLORS IS DONE BY PRINTINGv3 THE PEN COLOR CODE THROUGH4 PORT 2 USING FILE #2.5:6 PEN COLOR CODES ARE:7:8 "0" = BLACK9 "1" = BLUE: "2" = GREEN; "3" = RED<:7=: BLACK,BLUE,GREEN,RED=>:O?: I0 3_@: S$A: 2,I : CHANGE COLORB: 4,"THIS PEN IS "S$C: ID:E RESET PEN COLOR TO DEFAULTF:G: 2,"0" : BLACK PENH:I" AJ" SELECTING CHARACTER SIZE eK" kL:M SELECTING OTHER CHARACTERN SIZES IS DONE BY PRINTINGO THE CHARACTER SIZE THROUGHP PORT 3 USING FILE #3.Q:R CHARACTER SIZE CODES ARE:S:AT "0" = 80 CHARACTERS/LINEdU "1" = 40 CHARACTERS/LINEV "2" = 20 CHARACTERS/LINEW "3" = 10 CHARACTERS/LINEX:Y: 80,40,20,10Z:[: I0 3\: S$ ]: 3,I : CHANGE SIZE&^: 4,((I),1);A_: 4,"="S$"/LINE"O`: 4[a: Iab:}c RESET SIZE TO DEFAULTd:e: 3,"1" : 40/LINEf:g" h" CHARACTER ROTATION i" j::k CHARACTERS TO BE PRINTED MAY_l BE ROTATED 90 DEGREES TO THEm RIGHT BY PRINTING THE VALUEn OF ROTATION THROUGH PORT 4o USING FILE #44.p:q ROTATION CODES ARE:r:s "0" = NORMAL HORIZONTAL+t "1" = 90 DEGREE ROTATION1u:Iv: V,E,R,T,I,C,A,LOw:jx: 4,"HORIZONTAL LINE"py:z: 44,"1" : SET ROTATION{:|: 4,"E N I L D E T A T O R"}:~: I1 8: S$: 4,S$: I: RESTORE DEFAULT ORIENTATION!:?: 44,"0" : HORIZONTALE:i" " DASHED LINE CHARACTERS " : CHARACTERS MAY BE PRINTED USING DASHED LINES BY PRINTING THE LINE SEGMENT: SIZE CODE THROUGH PORT 5X USING FILE NUMBER #5.z ALLOWABLE VALUES ARE 0 TO 15. SIZE CODES ARE:: 0 = SOLID LINE 1 = SMALLEST SEGMENT 2 = LARGER SEGMENT .  .' 15 = LARGEST SEGMENT-:H USE LARGE CHARACTERSN:g: 3,"3" : 10/LINEq: 4w: PRINT EVERY THIRD SIZE LINE:: I0 15 3: 5,I : CHANGE LINE: 4,"DASHED": I: RESTORE DEFAULT SIZE AND LINE$:=: 3,"1" : 40/LINEY: 5,"0" : SOLID LINE_:" " UPPER AND LOWER CASE " : UPPER AND LOWER CASE CAN BE PRINTED AT ALL TIMES. THE7 DEFAULT IS TO PRINT ALLZ NORMAL CHARACTERS IN UPPER~ CASE AND SHIFTED CHARACTERS IN LOWER CASE. THIS CAN BE REVERSED BY PRINTING THE CASE SELECT CODE THROUGH PORT 6 USING FILE NUMBER #6.:- CASE SELECT CODES ARE:3:Q "0" = DEFAULT CASEo "1" = REVERSE CASEu:: 4: 4,"DEFAULT CASE:": 1228 : PRINT CHARS:: 6,"1" : REVERSE CASE:: 4 : 4,"REVERSE CASE:"(: 1228 : PRINT CHARS.:P: 1240 : JUMP SUBROUTINEV:p PRINT CHARACTER SETv:: I64 95: 4,(I);: I: 4: I192 223: 4,(I);: I: 4: :! RESTORE DEFAULT CASE':F: 6,"0" : DEFAULT CASEL:p" " PLOTTING LINES " : LINES OF ANY LENGTH CAN BE DRAWN IN ANY DIRECTION AND( THE PEN CAN BE MOVED TO ANYK POINT IN THE PLOTTING AREAo BY PRINTING THE APPROPRIATE COMMAND THROUGH PORT 1 USING FILE NUMBER #1.: THE FORMAT FOR THE PRINT STATEMENT WHEN PRINTING TO  PORT 1 IS::* PRINT#1,"C",X,Y0:? WHERE:E:g C = ONE OF THE COMMANDS X = THE X COORDINATE Y = THE Y COORDINATE: COMMANDS ARE:: "I" = SET RELATIVE ORIGIN  "H" = MOVE HOME ABSOLUTE3  "M" = MOVE ABSOLUTE TO X,YX  "R" = MOVE RELATIVE TO X,Y}  "D" = DRAW ABSOLUTE TO X,Y  "J" = DRAW RELATIVE TO X,Y :  NOTE: :  MOVE - IMPLIES PEN UP  DRAW - IMPLIES PEN DOWN!! ABSOLUTE - REFERENCED TOD! HOME POSITIONg! RELATIVE - REFERENCED TO! RELATIVE ORIGIN! SET WITH "I"!:!" !" PLOTTING AREA BOUNDS "" &":I"  THE PLOTTING AREA IS ABOUTk"  3 3/4 INCES WIDE BY ABOUT"  15 3/4 INCHES LONG. IS IS"  GRADUATED AS FOLLOWS:" :" 0,998 479,998"" #" @#" d# / /#" #" 0,0 (HOME) 479,0#" #" $" <$ / /`$" $" 0,-998 479,-998$" $:$" $" PLOTTING WITH ABSOLUTE %" COORDINATE REFERENCES >% " D%!:g%" ABSOLUTE PLOT COMMANDS ARE%# REFERENCED RELATIVE TO THE%$ HOME POSITION (X=0, Y=0).%% HOME POSITION IS ESTABLISHED%& UPON POWER ON OR BY PRINTING&' A CARRIAGE RETURN THROUGH7&( PORT 0, FILE NUMER #4.=&):_&* MOVE THE PEN TO AREA BOTTOMe&+:{&,: 1,"M",0,998&-:&. ESTABLISH NEW HOME POSITION&/:&0: 4&1:&2" '3" DRAW BOUNDS OF PLOT AREA &'4" ,'5:D'6: 1,"D", 0,998\'7: 1,"D",479,998t'8: 1,"D",479, 998'9: 1,"D", 0, 998':: 1,"D", 0, 0';: 1,"D",479, 0'<:'=" (>" PLOTTING AND PRINTING .(?" 4(@:U(A CHARACTER SET DIMENSIONS[(B:{(C WHEN COMBINING PLOTTING(D WITH PRINTING AS IN THE(E EXAMPLE BELOW, THE SIZE OF(F THE PRINTED CHARACTERS MUST)G BE KNOWN IN TERMS OF THE()H PLOTTING AREA UNITS. A TABLEL)I OF CHARACTER SIZE CODES ANDq)J THEIR CORRESPONDING PLOTTING)K AREA DIMENSIONS FOLLOWS:)L:)M SIZE CHARACTER)N CODE DIMENSION)O" )P: *Q "0" 10 HIGH BY 6 WIDEC*R "1" 20 HIGH BY 12 WIDEf*S "2" 40 HIGH BY 24 WIDE*T "3" 80 HIGH BY 48 WIDE*U:*V" *W" LABEL POINTS OF PLOT AREA*X" +Y: +Z MOVE TO TOP OF PLOT AREA&+[:>+\: 1,"M", 0, 998D+]:`+^ PRINT TOP COORDINATESf+_:q+`: 4+a: 4," 0,998";+b: 4,27)"479,998"+c:+d PRINTING WITH CARRIAGE RETURN+e CAUSED A NEW HOME TO BE,f DEFINED, SO MOVE TO MIDDLE,,g OF PLOT AREA WHILE BACKING UPP,h THE HEIGHT OF ONE PRINT LINE.V,i:q,j: 1,"M", 0,99820w,k:,l PRINT MIDDLE COORDINATES,m:,n: 4," 0,0 (HOME)";,o: 4,24)"479,0",p:,q MOVE TO BOTTOM OF PLOT AREA-r WHILE BACKING UP THE HEIGHT OF;-s ONE PRINT LINE, AS BEFORE.A-t:\-u: 1,"M", 0,99820b-v:-w PRINT THE BOTTOM COORDINATES-x:-y: 4," 0,-998";-z: 4,25)"479,-998"-{: 4-|:-}" .~" PLOTTING FUNCTIONS 8." >.:a. THE FOLLOWING TWO EXAMPLES. DEMONSTRATE PLOTTING OF. FUNCTIONS. THE FIRST EXAMPLE. PLOTS A SINE CURVE USING. THE ABSOLUTE COORDINATE / REFERENCE RELATIVE TO HOME./:5/" Y/" PLOTTING A SINE CURVE }/" /:/ EJECT ENOUGH PAPER/:/: 1,"M", 0,200/:/ ESTABLISH NEW HOME POSITION/:/: 4/:0 DRAW BOX 400 HIGH BY 479 WIDE#0:;0: 1,"D", 0, 200S0: 1,"D",479, 200k0: 1,"D",479,2000: 1,"D", 0,2000: 1,"D", 0, 00: 1,"D",479, 00:0 RETURN TO HOME0:0: 1,"H"0: 1 DRAW A SINE WAVE IN THE BOX.1:11 THE VARIABLE I WILL TAKET1 VALUES FROM 0 TO 360 DEGREESx1 (2* RADIANS). THE STEP VALUE1 WILL PRODUCE 200 SAMPLES1 ALONG THE X AXIS VARYING FROM1 0 TO 479. THE SINE WILL VARY2 BETWEEN +1 AND -1. THE VALUE&2 OF Y, THEREFORE VARIES BETWEEN;2 +200 AND -200.A2:]2: I0 2 100v2: XI479(2)2: Y(I)2002: 1,"D",X,Y2: I2:2 EJECT THE DRAWING2:2: 1,"M", 0,3002:3 ESTABLISH NEW HOME POSITION3:#3: 4)3:M3" q3" PLOTTING A CIRCLE 3" 3:3 EJECT ENOUGH PAPER3:3: 1,"M", 0,239203:3 ESTABLISH NEW HOME POSITION4:4: 44:74 DRAW A SQUARE BOX 479 BY 479=4:U4: 1,"D", 0, 239m4: 1,"D",479, 2394: 1,"D",479,2394: 1,"D", 0,2394: 1,"D", 0, 04: 1,"D",479, 04:4 MOVE TO CENTER OF THE CIRCLE4:5: 1,"M",239, 05:<5 ESTABLISH A RELATIVE ORIGINB5:Q5: 1,"I"W5:|5 DRAW A CIRCLE IN THE BOX USING5 THE "J" COMMAND, REFERENCING5 THE RELATIVE ORIGIN. BEFORE5 PLOTTING THE FIRST POINT (WHEN6 I=0) USE THE "R" COMMAND TO*6 MOVE WITH THE PEN UP TO THEN6 FIRST POINT ON THE CIRCLE, SOr6 WE DON'T DRAW FROM THE CENTER6 TO THE FIRST POINT. THE SINE6 AND COSINE WILL VARY BETWEEN6 +1 AND -1 YIELDING VALUES FOR7 X AND Y BETWEEN +239 AND -239.7:#7: I0 2 10097: X(I)239O7: Y(I)239m7: I0 1,"R",X,Y7: 1,"J",X,Y7: I7:7 EJECT THE DRAWING7:7: 1,"M", 0,239807:7 ESTABLISH NEW HOME POSITION7:8: 4 8:18" U8" PLOT POSITIONING y8" 8:8 THE FOLLOWING EXAMPLES8 DEMONSTRATE POSITIONING8 THE PLOT ON THE PLOTTER BED.8: 9" 19" PLOTTING A GIANT LETTER U9" [9:x9 (0,0) (240,0)9" 9" 9" (80,80) 9" :" 0:" (80,160) M:" (240,80)d:" |: " : " (160,160): " : " : " (80,240) (160,240):" ;" (80,400)!;" /;" :;" L; (0,400)R;:q; GIANT LETTER DATA POINTSw;:; X , Y;" ;: 0, 0;: 240, 0;: 240, 80;: 80, 80;: 80,160<: 160,160<: 160,240,< : 80,240>9: 4,"INITIAL POSITION:">::,>;: 1,"D",479, 0D><: 1,"D",479,479\>=: 1,"D", 0,479t>>: 1,"D", 0, 0z>?:>@ MOVE TO THE INITIAL POINT>A:>B: 1,"M",X(1),Y(1)>C:>D PLOT THE POINTS FROM THE ARRAY>E:>F: I1 11?G: 1,"D",X(I),Y(I)$?H: *?I:B?J EJECT THE DRAWINGH?K:`?L: 1,"M", 0,479f?M:?N ESTABLISH NEW HOME POSITION?O:?P: 4?Q:?R" ?S" PLOT THE GIANT LETTER @T" ON THE RIGHT SIDE OF /@U" THE PLOTTER BED. S@V" Y@W:|@X DRAW A SQUARE BOX 479 BY 479@Y:@Z: 4@[: 4,"X-AXIS MOVED RIGHT:"@\:@]: 1,"D",479, 0@^: 1,"D",479,479@_: 1,"D", 0,479A`: 1,"D", 0, 0Aa:?Ab ADD 240 TO THE X-AXIS AND MOVE[Ac TO THE INITIAL POINT.aAd:Ae: 1,"M",X(1)240,Y(1)Af:Ag PLOT THE POINTS FROM THE ARRAYAh ADDING 240 TO THE X-AXIS VALUEAi:Aj: I1 11Bk: 1,"D",X(I)240,Y(I)Bl: Bm:0Bn EJECT THE DRAWING6Bo:NBp: 1,"M", 0,479TBq:vBr ESTABLISH NEW HOME POSITION|Bs:Bt: 4Bu:Bv" Bw" PLOT THE GIANT LETTER Bx" ON THE BOTTOM OF THE Cy" PLOTTER BED. ACz" GC{:jC| DRAW A SQUARE BOX 479 BY 479pC}:{C~: 4C: 4,"Y-AXIS MOVED DOWN:"C:C: 1,"D",479, 0C: 1,"D",479,479C: 1,"D", 0,479D: 1,"D", 0, 0D:&D ADD 80 TO THE Y-AXIS ANDGD MOVE TO THE INITIAL POINT.MD:lD: 1,"M",X(1),(Y(1)80)rD:D PLOT THE POINTS FROM THE ARRAYD ADDING 80 TO THE Y-AXIS.D:D: I1 11D: 1,"D",X(I),(Y(I)80)D: E:E EJECT THE DRAWINGE:6E: 1,"M", 0,479:S?" S@" PLOT ORIENTATION TA" TB:.TC THE FOLLOWING EXAMPLEPTD DEMONSTRATES PLOTTING THEqTE FIGURE AT AN ORIENTATIONTF THAT IS VERTICAL RATHERTG THAN HORIZONTAL.TH:TI" TJ" PLOT THE GIANT LETTER UK" ORIENTED VERTICALLY. @UL" FUM:iUN DRAW A SQUARE BOX 479 BY 479oUO:yUP: 4UQ: 4,"VERTICAL ORIENTATION:"UR:US: 1,"D",479, 0UT: 1,"D",479,479UU: 1,"D", 0,479UV: 1,"D", 0, 0VW:&VX USE THE X-AXIS VALUE FOR THEHVY Y-AXIS AND THE Y-AXIS VALUEiVZ FOR THE X-AXIS AND MOVE TOV[ THE INITIAL POSITION.V\:V]: 1,"M",Y(1),X(1)V^:V_ PLOT THE POINTS FROM THE ARRAYV` USING THE X-AXIS VALUES FORWa THE Y-AXIS AND THE Y-AXIS/Wb VALUES FOR THE X-AXIS.;Wc NOTE:WWd THIS WILL INTRODUCE AuWe REFLECTION WHICH CAN BEWf ELIMINATED BY INVERTING THEWg X- OR Y-AXIS.Wh:Wi: I1 11Wj: 1,"D",Y(I),X(I)Wk: Wl:Xm EJECT THE DRAWINGXn:&Xo: 1,"M", 0,479,Xp:NXq ESTABLISH NEW HOME POSITIONTXr:_Xs: 4eXt:Xu" Xv" PLOT SCALING Xw" Xx:Xy THE FOLLOWING EXAMPLESYz DEMONSTRATE PLOTTING THE8Y{ SAME FIGURE IN DIFFERENTOY| SIZE SCALINGS.UY}:yY~" Y" PLOT THE GIANT LETTER Y" SCALED DOWN IN SIZE Y" ALONG THE X-AXIS ONLY. Z" Z:2Z DRAW A SQUARE BOX 479 BY 4798Z:CZ: 4`Z: 4,"REDUCED X-AXIS:"fZ:~Z: 1,"D",479, 0Z: 1,"D",479,479Z: 1,"D", 0,479Z: 1,"D", 0, 0Z:Z DIVIDE THE X-AXIS VALUE BY 2 [ AND MOVE TO THE INITIAL[ POSITION.#[:?[: 1,"M",X(1)2,Y(1)E[:j[ PLOT THE POINTS FROM THE ARRAY[ DIVIDING THE X-AXIS VALUES[ BY 2.[:[: I1 11[: 1,"D",X(I)2,Y(I)[: [:[ EJECT THE DRAWING[:\: 1,"M", 0,479\:<\ ESTABLISH NEW HOME POSITIONB\:M\: 4S\:w\" \" PLOT THE GIANT LETTER \" SCALED DOWN IN SIZE \" ALONG THE Y-AXIS ONLY. ]" ]:0] DRAW A SQUARE BOX 479 BY 4796]:A]: 4^]: 4,"REDUCED Y-AXIS:"d]:|]: 1,"D",479, 0]: 1,"D",479,479]: 1,"D", 0,479]: 1,"D", 0, 0]:] DIVIDE THE Y-AXIS VALUE BY 2 ^ AND MOVE TO THE INITIAL^ POSITION.!^:=^: 1,"M",X(1),Y(1)2C^:h^ PLOT THE POINTS FROM THE ARRAY^ DIVIDING THE Y-AXIS VALUES^ BY 2.^:^: I1 11^: 1,"D",X(I),Y(I)2^: ^:^ EJECT THE DRAWING^:_: 1,"M", 0,479_::_ ESTABLISH NEW HOME POSITION@_:K_: 4Q_:u_" _" PLOT THE GIANT LETTER _" SCALED DOWN IN SIZE _" ALONG THE X-AXIS AND `" ALONG THE Y-AXIS. )`" /`:R` DRAW A SQUARE BOX 479 BY 479X`:c`: 4i`:t`: 4`: 4,"REDUCED X-AXIS AND"`: 4,"REDUCED Y-AXIS:"`:`: 1,"D",479, 0`: 1,"D",479,479`: 1,"D", 0,479a: 1,"D", 0, 0a:=a DIVIDE THE X-AXIS AND THE_a Y-AXIS VALUES BY 2 AND MOVE~a TO THE INITIAL POSITION.a:a: 1,"M",X(1)2,Y(1)2a:a PLOT THE POINTS FROM THE ARRAYa DIVIDING THE X-AXIS AND THE b Y-AXIS VALUES BY 2.b:"b: I1 11Bb: 1,"D",X(I)2,Y(I)2Lb: Rb:jb EJECT THE DRAWINGpb:b: 1,"M", 0,479b:b ESTABLISH NEW HOME POSITIONb:b: 4b:b" c" PLOT ROTATION 3c" 9c:Xc THE FOLLOWING EXAMPLESyc DEMONSTRATE PLOTTING THEc SAME FIGURE ROTATED THROUGHc ANY ANGLE.c:c" c" PLOT THE GIANT LETTER "d" ROTATED THROUGH AN Fd" ANGLE OF 45 DEGREES. jd" pd:d DRAW A SQUARE BOX 479 BY 479d:d: 4d: 4,"45 DEGREE ROTATION,"d: 4,"WITH X-AXIS OFFSET:"d:e : 1,"D",479, 0e : 1,"D",479,4794e : 1,"D", 0,479Le : 1,"D", 0, 0Re :re DEFINE THE ROTATION ANGLEe FUNCTIONS:e:e: RA45 : ANGLEe: CF180 : RADIAN FACTORe: RARACF : CONVERT ANGLEf: SR(RA) : ANGLE SINE2f: CR(RA) : ANGLE COSINE8f:Zf ROTATE THE POINTS USING THEsf FOLLOWING FORMULA:f XP=CR*X-SR*Yf YP=SR*X+CR*Yf:f MOVE TO THE INITIAL POINTf:f: XPCRX(1)SRY(1)f: YPSRX(1)CRY(1)g : 1,"M",XP,YPg!:@g" PLOT THE POINTS FROM THE ARRAYag# ROTATING THE X- AND Y-AXISg$ POINTS BY THE ROTATION ANGLEg% NOTE:g& ROTATION AROUND THE ORIGINg' WILL CAUSE MOST OF THE LETTERg( TO MOVE OUT OF THE PLOTh) WINDOW. THEREFORE, THE LETTER:h* WILL BE PLOTTED WITH OFFSET.Yh+ ADDING 240 TO THE X-AXIS{h, WILL KEEP THE LETTER WITHINh- VIEW.h.:h/: I1 11h0: XPCRX(I)SRY(I)h1: YPSRX(I)CRY(I)h2: 1,"D",XP240,YPi3: i4:i5 EJECT THE DRAWING$i6:" PLOT THE GIANT LETTER i?" ROTATED AROUND ANGLES j@" WHICH ARE MULTIPLES OF /jA" 45 DEGREES, WITH SjB" SCALING AND OFFSETS. wjC" }jD:jE DRAW A SQUARE BOX 479 BY 479jF:jG: 4jH: 4,"ROTATION, SCALING AND"jI: 4,"X AND Y-AXIS OFFSETS:"jJ:kK: 1,"D",479, 0(kL: 1,"D",479,479?kM: 1,"D", 0,479VkN: 1,"D", 0, 0\kO:|kP DEFINE THE ROTATION ANGLEkQ FUNCTIONS AND STORE THEMkR INTO AN ARRAY.kS:kT DEFINE ARRAYS TO HOLD FUNCTIONSkU:lV: SR(8) : SINE ARRAY"lW: CR(8) : COSINE ARRAY(lX:IlY LOAD FUNCTIONS INTO ARRAYSOlZ:tl[: CF180 : RADIAN FACTORl\: I1 8l]: RAI45 : NEXT ANGLEl^: RARACF : CONVERT ANGLEl_: SR(I)(RA) : SINE m`: CR(I)(RA) : COSINEma: mb:Bmc DEFINE THE SCALING AND OFFSETSHmd:jme: SF.5 : SCALING FACTORmf: XO240 : X-AXIS OFFSETmg: YO240 : Y-AXIS OFFSETmh:mi LOOP EIGHT TIMES, DRAWINGmj A ROTATED LETTER EACH TIME.mk: nl: I1 8!nm: J1 11>nn: ROTATE X AND Yeno: XPCR(I)X(J)SR(I)Y(J)np: YPSR(I)X(J)CR(I)Y(J)nq: SCALE X AND Ynr: XPXPSFns: YPYPSFnt: OFFSET X AND Y ou: XPXPXO!ov: YPYPYOCow: MOVE TO FIRST POINT^ox: J1 2171zoy: 1,"M",XP,YPoz: DRAW LINE OF A LETTERo{: 1,"D",XP,YPo|: : Jo}: : Io~:o EJECT THE DRAWINGp:p: 1,"M", 0,479p:@p ESTABLISH NEW HOME POSITIONFp:Qp: 4Wp:{p" p" COMBINED FUNCTIONS p" p:p THE FOLLOWING EXAMPLES q DEMONSTRATE PLOTTING THE-q SAME FIGURE ROTATED THROUGHQq POINTS ON THE CIRCUMFERENCEfq OF A CIRCLE.lq:q" q" PLOT THE GIANT LETTER q" ROTATED THROUGH ANGLES q" OF 45 DEGREES WHILE r" THE POINT OF ORIGIN Dr" MOVES AROUND THE CIR- hr" CUMFERENCE OF A CIRCLE. r" r:r DRAW A SQUARE BOX 479 BY 479r:r: 4r: 4,"ROTATION, SCALING,"s: 4,"OFFSETS AND RELATIVE"'s: 4,"ORIGIN REFERENCE:"-s:Es: 1,"D",479, 0]s: 1,"D",479,479us: 1,"D", 0,479s: 1,"D", 0, 0s:s DEFINE THE SCALING FACTOR ANDs AND CIRCLE PARAMETERS.s:s: SF.25 : SCALING FACTOR t: CR120 : RADIUS OF CIRCLEDt: XC239 : X-AXIS OF CENTERht: YC239 : Y-AXIS OF CENTERnt:t LOOP EIGHT TIMES, DRAWINGt A ROTATED LETTER EACH TIME.t ROTATE THE POINTS USING THEt FOLLOWING FORMULA:u XP=CR*X-SR*Yu YP=SR*X+CR*Yu:-u: I1 8Qu: COMPUTE POINT ON CIRCLElu: XPCR(I)CRXCu: YPSR(I)CRYCu: MOVE TO CIRCLE POINTu: AND ESTABLISH A RELATIVEu: ORIGIN OF REFERENCE.v: 1,"M",XP,YPv: 1,"I"0v: J1 11Mv: ROTATE X AND Ytv: XPCR(I)X(J)SR(I)Y(J)v: YPSR(I)X(J)CR(I)Y(J)v: SCALE X AND Yv: XPXPSFv: YPYPSF w: DRAW LINE OF A LETTER.w: USING THE "J" COMMAND,Lw: REFERENCING THEow: RELATIVE ORIGIN (THEw: POINT ON THE CIRCLE).w: 1,"J",XP,YPw: : Jw: : Iw:w EJECT THE DRAWINGw: x: 1,"M", 0,479x:5x ESTABLISH NEW HOME POSITION;x:Fx: 4Lx:px" x" RESETTING THE PLOTTER x" x:x THE PLOTTER CAN BE RESET ATy ANY TIME BY PRINTING A BLANK)y LINE THROUGH PORT 7 USINGMy FILE NUMER #7. THE POWER ONqy CYCLE WILL THEN TAKE PLACE.y ALL PARAMETERS WILL BE RESETy TO THEIR DEFAULT VALUES ANDy THE POWER ON TEST PATTERNy WILL BE DRAWN.y:z: 4&z: 4,"RESETTING PLOTTER..."1z: 77z:[z" z" CLOSING PLOTTER FILES z" z:z: I1 7z: Iz: Iz: 44z:z: