§ Просто логотип Отруба

1SCREEN 13
2
3DATA 4
4DATA 20,50,   20,30,   40,30,   4
5DATA 200,30,  220,30,  220,50,  4
6DATA 220,140, 220,160, 200,160, 4
7DATA 40,160,  20,160,  20,140,  4
8
9READ n
10FOR i = 0 TO n - 1
11  READ x1, y1, x2, y2, x3, y3, cl
12  Bezie x1, y1, x2, y2, x3, y3, 4
13NEXT
14
15LINE (40, 30)-(200, 30), 4
16LINE (220, 50)-(220, 140), 4
17LINE (200, 160)-(40, 160), 4
18LINE (20, 140)-(20, 50), 4
19PAINT (100, 100), 4, 4
20
21LINE (100, 70)-(150, 95), 15
22LINE (150, 95)-(100, 120), 15
23LINE (100, 70)-(100, 120), 15
24PAINT (120, 95), 15, 15
25
26COLOR 15
27LOCATE 12, 30
28PRINT "YouTube"
29
30SUB Bezie (x1, y1, x2, y2, x3, y3, cl)
31
32  FOR t = 0 TO 1 STEP .05
33
34    xa = x1*(1 - t) + x2*t
35    ya = y1*(1 - t) + y2*t
36
37    xb = x2*(1 - t) + x3*t
38    yb = y2*(1 - t) + y3*t
39
40    x = xa*(1 - t) + xb*t
41    y = ya*(1 - t) + yb*t
42
43    IF t > 0 THEN LINE (xp, yp)-(x, y), cl
44
45    xp = x
46    yp = y
47
48  NEXT
49  LINE (xp, yp)-(x3, y3), cl
50
51END SUB