How to remove circle?

Just starting out? Need help? Post your questions and find answers here.
BackupUser
PureBasic Guru
PureBasic Guru
Posts: 16777133
Joined: Tue Apr 22, 2003 7:42 pm

Post by BackupUser »

Restored from previous forum. Originally posted by cor.

How to remove a black circle if it is drawed on a line?
without removing a piece of the line.

hnd=CreateImage(0,250,200)
StartDrawing(ImageOutput())
FrontColour(255,255,255)
Box(0,0,250,200)
FrontColour(0,0,0)

xpos=50
xwidth=100
yheight=100

; draw guitar box
For y= 35 To 37
Line(50,y,xwidth,0)
Next

For y= 40 To 40
Line(50,y,xwidth,0)
Line(50,y+20,xwidth,0)
Line(50,y+40,xwidth,0)
Line(50,y+60,xwidth,0)
Line(50,y+80,xwidth,0)
Line(50,y+100,xwidth,0)
Next

For x = 50 To 50
Line(x,40,0,yheight)
Line(x+20,40,0,yheight)
Line(x+40,40,0,yheight)
Line(x+60,40,0,yheight)
Line(x+80,40,0,yheight)
Line(x+100,40,0,yheight)
Next
FrontColour(0,0,0) ; black
Circle(70,70,6)
Circle(90,70,6)
Circle(90,90,6)

StopDrawing()


Registered user of PB

C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com