Below is a neat one-liner from Jamie Wynn of London. The routine will ask for a number enabling it to calculate the cross-hatching required for the curve. 1 ' Curve 2 ' by Jamie Wynn 3 ' Amstrad Action May 87 10 INK 1,26:MODE 1:INPUT a:MOVE 1,1:DRAW 400,1:DRAW 400,400:FOR x=1 TO 400 STEP a:DRAW 400,x:MOVE x,1:NEXT:WHILE INKEY$="":WEND:GOTO 10AA
|