nake
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Начало наскрёб...
Код:
SCREEN 8
DIM c%
c% = 1
FOR i% = 1 TO 20
FOR j% = 0 TO 1
CIRCLE (60 + 25 * i%, 10 + j% * 170), 20, c%, , , .2
PAINT (60 + 25 * i%, 10 + j% * 170), c%
NEXT j%
IF c% = 15 THEN c% = 1 ELSE c% = c% + 1
NEXT i%
FOR i% = 1 TO 20
FOR j% = 0 TO 1
CIRCLE (25 + 600 * j%, 20 + i% * 7), 12, c%, , , .6
PAINT (25 + 600 * j%, 20 + i% * 7), c%
NEXT j%
IF c% = 15 THEN c% = 1 ELSE c% = c% + 1
NEXT i%
c% = 5
FOR j% = 0 TO 1
CIRCLE (320, 20 + j% * 150), 100, c%, , , .03
PAINT (320, 20 + j% * 150), c%
NEXT j%
c% = 4
FOR j% = 0 TO 1
CIRCLE (60 + j% * 530, 100), 50, c%, , , 5
PAINT (60 + j% * 530, 100), c%
NEXT j%
PI = 3.14
c% = 15
FOR j% = 0 TO 1
CIRCLE (185 + j% * 280, 70), 100, c%, PI / 2 - PI / 2 * j%, PI - PI / 2 * j%, .4
CIRCLE (185 + j% * 280, 120), 100, c%, PI + PI / 2 * j%, PI * 3 / 2 + PI / 2 * j%, .4
NEXT j% |
