17 lines
398 B
Text
17 lines
398 B
Text
graphsize 800, 600
|
|
clg
|
|
|
|
subroutine Taijitu(x, y, r)
|
|
color black: circle(x, y, 2*r+1)
|
|
chord x-2*r, y-2*r, 4*r, 4*r, radians(0), radians(180)
|
|
color white
|
|
chord x-2*r, y-2*r, 4*r, 4*r, radians(180), radians(180)
|
|
circle(x, y-r, r-1)
|
|
color black: circle(x, y+r, r-1)
|
|
circle(x, y-r, r/3)
|
|
color white: circle(x, y+r, r/3)
|
|
end subroutine
|
|
|
|
call Taijitu(110, 110, 45)
|
|
call Taijitu(500, 300, 138)
|
|
end
|