' Plygon mapping ' made by Svjatoslav Agejenko ' in 2001 ' H-Page: svjatoslav.eu ' E-Mail: svjatoslav@svjatoslav.eu DEFINT A-Z DECLARE SUB fp (x1, y1, x2, y2, x3, y3, c) SCREEN 13 2 x1 = RND * 318 + 1 y1 = RND * 198 + 1 x2 = RND * 318 + 1 y2 = RND * 198 + 1 x3 = RND * 318 + 1 y3 = RND * 198 + 1 fp x1, y1, x2, y2, x3, y3, RND * 255 IF INKEY$ <> "" THEN SYSTEM GOTO 2 SUB fp (x1, y1, x2, y2, x3, y3, c) DIM yb(-10 TO 210) mx1 = x1 my1 = y1 mx2 = x2 my2 = y2 GOSUB mkl mx1 = x1 my1 = y1 mx2 = x3 my2 = y3 GOSUB mkl mx1 = x3 my1 = y3 mx2 = x2 my2 = y2 GOSUB mkl GOTO 1 mkl: IF my2 < my1 THEN SWAP my1, my2: SWAP mx1, mx2 FOR y = my1 TO my2 - 1 x = mx1 + (mx2 - mx1) * ((y - my1) / (my2 - my1)) IF yb(y) = 0 THEN yb(y) = x ELSE LINE (x, y)-(yb(y), y), c END IF NEXT y RETURN 1 END SUB