7 lines
515 B
Plaintext
7 lines
515 B
Plaintext
10 GR : GOSUB 330: END
|
|
330 COLOR= 15:CX = 20:CY = 20:R = 18: GOSUB 350"CIRCLE"
|
|
340 COLOR= 0:CX = 15:CY = 15:R = 6
|
|
350 F = 1 - R:X = 0:Y = R:DX = 0:DY = - 2 * R: PLOT CX,CY + R: PLOT CX,CY - R: HLIN CX - R,CX + R AT CY: IF X > = Y THEN RETURN
|
|
360 FOR I = 0 TO 1: IF F > = 0 THEN Y = Y - 1:DY = DY + 2:F = F + DY
|
|
370 X = X + 1:DX = DX + 2:F = F + DX + 1: HLIN CX - X,CX + X AT CY + Y: HLIN CX - X,CX + X AT CY - Y: HLIN CX - Y,CX + Y AT CY + X: HLIN CX - Y,CX + Y AT CY - X:I = X > = Y: NEXT I: RETURN
|