2 DECLARE SUB pp (x1, y1, x2, y2, c!)
\r
11 FOR x = -320 / mul TO 320 / mul STEP 1 / mul
\r
14 t = x ^ 3 - (3 * x) '<< Type your formula there
\r
17 pp x, t, ox, tol, 10
\r
30 IF x / mul = x \ mul THEN LINE (x + 320, 0)-(x + 320, 479), 1
\r
34 IF y / mul = y \ mul THEN LINE (0, y + 240)-(639, y + 240), 1
\r
38 IF x / (mul * 5) = x \ (mul * 5) THEN LINE (x + 320, 0)-(x + 320, 479), 4
\r
42 IF y / (mul * 5) = y \ (mul * 5) THEN LINE (0, y + 240)-(639, y + 240), 4
\r
47 LINE (0, 240)-(639, 240), 3
\r
48 LINE (320, 0)-(320, 479), 3
\r
51 SUB pp (x, y, x1, y1, c)
\r
53 x2 = (x * mul) + 320
\r
54 y2 = 240 - (y * mul)
\r
55 x3 = (x1 * mul) + 320
\r
56 y3 = 240 - (y1 * mul)
\r
57 IF x2 < 0 THEN GOTO 1
\r
58 IF y2 < 0 THEN GOTO 1
\r
59 IF x2 > 639 THEN GOTO 1
\r
60 IF y2 > 479 THEN GOTO 1
\r
61 IF x3 < 0 THEN GOTO 1
\r
62 IF y3 < 0 THEN GOTO 1
\r
63 IF x3 > 639 THEN GOTO 1
\r
64 IF y3 > 479 THEN GOTO 1
\r
65 LINE (x2, y2)-(x3, y3), c
\r