2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
8 DECLARE SUB pp (x1, y1, x2, y2, c!)
\r
17 FOR x = -320 / mul TO 320 / mul STEP 1 / mul
\r
19 y = 1 - (COS(x * 2)) + (SIN(x * 2)) ' <<Type your formula there!
\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
39 LINE (0, 240)-(639, 240), 3
\r
40 LINE (320, 0)-(320, 479), 3
\r
43 SUB pp (x, y, x1, y1, c)
\r
45 x2 = (x * mul) + 320
\r
46 y2 = 240 - (y * mul)
\r
47 x3 = (x1 * mul) + 320
\r
48 y3 = 240 - (y1 * mul)
\r
49 IF x2 < 0 THEN GOTO 1
\r
50 IF y2 < 0 THEN GOTO 1
\r
51 IF x2 > 639 THEN GOTO 1
\r
52 IF y2 > 479 THEN GOTO 1
\r
53 IF x3 < 0 THEN GOTO 1
\r
54 IF y3 < 0 THEN GOTO 1
\r
55 IF x3 > 639 THEN GOTO 1
\r
56 IF y3 > 479 THEN GOTO 1
\r
57 LINE (x2, y2)-(x3, y3), 14
\r