Here's a handy program for anyone with a plotter: it generates patterns and gives you the option of sending it to a Tandy plotter. Paul Bridel of Cullompton, Devon, is the man to thank. If you have a different plotter, a breakdown of the codes may help you write your own plotter driver: - CHR$ (17) sets text mode
- CHR$(18) sets graphics mode
- S0 gives 80 columns
- P lets you mix text and graphics
- M means move pen
- I sets the origin
- D for draw
- A to return to text mode
1 ' Pattern plotter 2 ' by Paul Bridel 3 ' Amstrad Action September 87 20 ' For Tandy CGP-115 plotters & compatibles 30 MODE 2: INPUT"Step Value (0.1 to 4 are best) ";stp 40 ' Screen-draw routine 50 ORIGIN 320,200: FOR a=0 TO 230 STEP stp 60 DRAW a*SIN(a),a*COS(a): NEXT a 70 INPUT "Do you want a plot-out of this? ";plt$ 80 IF plt$="Y" OR plt$="y" THEN 100 ELSE 30 90 ' Plot Routine 100 PRINT#8,CHR$(17): PRINT#8: PRINT#8,CHR$(18) 110 PRINT#8,"S0": PRINT#8,"Pstep Value: ";stp 120 PRINT#8,"M240,-240": PRINT#8,"1" 130 FOR a=0 TO 230 STEP stp 140 PRINT#8,"D";a*SIN(a);",";a*COS(a): NEXT a 150 PRINT#8,"A": GOTO 20AA |