Page 1 of 1

Draw Circle() or Ellipse() not good

Posted: Thu Oct 04, 2018 3:52 pm
by sinisrus
Hello,

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

Re: Draw Circle() or Ellipse() not good

Posted: Fri Oct 05, 2018 11:21 am
by airsoftsoftwair
Right, looks like a problem with very small radii. Will be fixed.

Re: Draw Circle() or Ellipse() not good

Posted: Fri Oct 05, 2018 1:15 pm
by sinisrus
Thank you :-)

Re: Draw Circle() or Ellipse() not good

Posted: Wed Feb 13, 2019 8:33 am
by sinisrus
Not fixed on Hollywood 8 :-(

Re: Draw Circle() or Ellipse() not good

Posted: Sat Feb 16, 2019 12:48 pm
by airsoftsoftwair
sinisrus wrote:
Wed Feb 13, 2019 8:33 am
Not fixed on Hollywood 8 :-(
Well, nobody said that this was fixed in Hollywood 8. You can easily work around the problem by just using the vector drawing engine. When using vector shapes circles and ellipses with small radii will look perfectly fine. Try this:

Code: Select all

ForcePathUse(True)
Circle(#LEFT,#CENTER,5,#BLUE)
Ellipse(#RIGHT,#CENTER,5,5,#BLUE)
ForcePathUse(False)
EndSelect