2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
8 DECLARE SUB fp (x1, y1, x2, y2, x3, y3, c)
\r
22 fp x1, y1, x2, y2, x3, y3, RND * 255
\r
23 IF INKEY$ <> "" THEN SYSTEM
\r
26 SUB fp (x1, y1, x2, y2, x3, y3, c)
\r
47 IF my2 < my1 THEN SWAP my1, my2: SWAP mx1, mx2
\r
48 FOR y = my1 TO my2 - 1
\r
49 x = mx1 + (mx2 - mx1) * ((y - my1) / (my2 - my1))
\r
53 LINE (x, y)-(yb(y), y), c
\r