Screen 19
Color ,7
Cls
Sub Taijitu(x As Integer, y As Integer, r As Integer)
Circle(x, y), 2 * r, 0,,,, F
Line (x, y - 2 * r) - (x, y + 2 * r), 7, B
Paint (x - r, y), 15, 7
Circle(x, y - r), r - 1, 15,,,, F
Circle(x, y + r), r - 1, 0,,,, F
Circle(x, y - r), r / 3, 0,,,, F
Circle(x, y + r), r / 3, 15,,,, F
End Sub
Taijitu(110, 110, 45)
Taijitu(500, 300, 138)
sleep
Hi! thank for sharing it. I include a "move effect" without flickering screen using SCREENCOPY function.
the current issue is the paint fails when two objects are in same space.
happy coding
Screen 19, , 2
SCREENSET 1, 0 'to activate double-paging
Color ,7
Cls
Sub Taijitu(x As Integer, y As Integer, r As Integer)
Circle(x, y), 2 * r, 0,,,, F
Line (x, y - 2 * r) - (x, y + 2 * r), 7, B
Paint (x - r, y), 15, 7
Circle(x, y - r), r - 1, 15,,,, F
Circle(x, y + r), r - 1, 0,,,, F
Circle(x, y - r), r / 3, 0,,,, F
Circle(x, y + r), r / 3, 15,,,, F
End Sub
dim x as integer
for x = 1 to 300 step 5
cls
Taijitu(x, 110, 45)
Taijitu(500, x ,138)
SCREENCOPY
sleep 100
if inkey$<>"" then exit for
next
print "Press any key to close program"
sleep