Circle.Bas

Circle.sdlbas

• 昔のベーシックのプログラム例

circle.bas †

10 rem 5 circle
20 screen 3:cls 3
30 circle(180,150),80,0
40 circle(310,150),80,2
50 circle(450,150),80,1
60 circle(220,250),80,6
70 circle(410,250),80,4
80 end

sdlBasic †

setdisplay(640,480,32,1):paper(0xFFFFFF):ink(0):pen(0):cls

ink(rgb(0,0,0))
circle(180,150,80)
ink(rgb(255,0,0))
circle(310,150,80)
ink(rgb(0,0,255))
circle(450,150,80)
ink(rgb(127,127,0))
circle(220,250,80)
ink(rgb(0,255,0))
circle(410,250,80)

waitkey