SCREEN 13

DATA 4
DATA 20,50,   20,30,   40,30,   4
DATA 200,30,  220,30,  220,50,  4
DATA 220,140, 220,160, 200,160, 4
DATA 40,160,  20,160,  20,140,  4

READ n
FOR i = 0 TO n - 1
  READ x1, y1, x2, y2, x3, y3, cl
  Bezie x1, y1, x2, y2, x3, y3, 4
NEXT

LINE (40, 30)-(200, 30), 4
LINE (220, 50)-(220, 140), 4
LINE (200, 160)-(40, 160), 4
LINE (20, 140)-(20, 50), 4
PAINT (100, 100), 4, 4

LINE (100, 70)-(150, 95), 15
LINE (150, 95)-(100, 120), 15
LINE (100, 70)-(100, 120), 15
PAINT (120, 95), 15, 15

COLOR 15
LOCATE 12, 30
PRINT "YouTube"

SUB Bezie (x1, y1, x2, y2, x3, y3, cl)

  FOR t = 0 TO 1 STEP .05

    xa = x1*(1 - t) + x2*t
    ya = y1*(1 - t) + y2*t

    xb = x2*(1 - t) + x3*t
    yb = y2*(1 - t) + y3*t

    x = xa*(1 - t) + xb*t
    y = ya*(1 - t) + yb*t

    IF t > 0 THEN LINE (xp, yp)-(x, y), cl

    xp = x
    yp = y

  NEXT
  LINE (xp, yp)-(x3, y3), cl

END SUB
25 июл, 2020
© 2007-2022 Мочил простой восток