I have problem with Circle() and Ellipse()
If i use SetFormStyle(#NORMAL) the circle or ellipse are not drawn correctly
If i use SetFormStyle(#ANTIALIAS) the circle or ellipse are correctly drawn
This is a problem for my project
Thank you
Code: Select all
/* Nouveau projet Hollywood */
CreateBrush(1,25,20,#BLACK, {AlphaChannel = True, Clear=True}) ; ID de la brosse courrante
; NORMAL
SelectBrush(1,#SELMODE_COMBO,2)
SetFormStyle(#NORMAL)
SetFillStyle(#FILLNONE)
Circle(#LEFT,#CENTER,5,#BLUE)
Ellipse(#RIGHT,#CENTER,5,5,#BLUE)
EndSelect
ScaleBrush(1,#KEEPASPRAT,"800%")
DisplayBrush(1,#CENTER,#CENTER-70)
/***/
CreateBrush(2,25,20,#BLACK, {AlphaChannel = True, Clear=True}) ; ID de la brosse courrante
; ANTIALIAS
SelectBrush(2,#SELMODE_COMBO,2)
SetFormStyle(#ANTIALIAS)
SetFillStyle(#FILLNONE)
Circle(#LEFT,#CENTER,5,#BLUE)
Ellipse(#RIGHT,#CENTER,5,5,#BLUE)
EndSelect
ScaleBrush(2,#KEEPASPRAT,"800%")
DisplayBrush(2,#CENTER,#CENTER+70)
EscapeQuit(True)
/* Boucle infinie */
Repeat
WaitEvent
Forever