View.Set ("graphics:max,max")

proc yinyang (x, y, size : int)

var radius : int:= size div 2
drawfillarc (x,y,size,size,270,90,black)
drawfilloval(x,y+radius,radius, radius, white)
drawfilloval(x,y+radius,size div 10,size div 10, black)

end yinyang

yinyang (maxx div 2, maxy div 2, 400)