1 ' Svjatoslav Agejenko 2000
\r
4 DECLARE SUB lu (x%, y%, l%, c2%)
\r
16 y = SQR((200 - x) * x) / 2
\r
17 lu x + 200, y + 200, y * 2, t
\r
18 LINE (x + 200, y + 202)-(x + 200, y + 250), t
\r
20 LINE (300 + ((x - 100) / 2), y / 2 + 328)-(x + 200, y + 252), t
\r
22 LINE (300 + ((x - 100) / 2), y / 2 + 330)-(300 + ((x - 100) / 2), y / 2 + 370), t
\r
25 SUB lu (x, y, l, c2)
\r
29 IF c > 30 THEN c = c - 30: GOTO 1
\r
31 IF c2 > 15 THEN c2 = 30 - c2
\r
33 FOR y1 = y TO y - l STEP -1
\r
35 IF c1 > 15 THEN c1 = 30 - c1
\r
38 IF c > 30 THEN c = c - 30
\r