Page 1 of 1

Rotate brush is not identique to source

Posted: Fri Sep 23, 2016 4:57 pm
by sinisrus
Hello,

I have problem with rotate brush :

Code: Select all

/* Nouveau projet Hollywood */

 

@DISPLAY 1,{COLOR=#GRAY}

XScreenWidth=300

A=CreateBrush(NIL,XScreenWidth,27,#BLACK,{AlphaChannel = True, Clear=True})

SetFont(#SANS,15)
SetFontStyle(#ANTIALIAS)

SelectBrush(A,#SELMODE_COMBO,2)
  SetFillStyle(#FILLCOLOR)
  BOX(1,0,XScreenWidth,27,$6EBEFF)

  FOR i=0 TO XScreenWidth
      IF (i%2=0)
      LINE(PosX+i,PosY,PosX+i,PosY+3,COLOR1)
      LINE(PosX+i,#BOTTOM,PosX+i,#BOTTOM-3,COLOR1)
      ENDIF
  NEXT
EndSelect

/*****************************/

B=CopyBrush(A,Nil)
C=CopyBrush(B,Nil)

SelectBrush(A) Textout(#CENTER,#CENTER-1,"Original A") EndSelect

SelectBrush(B) Textout(#CENTER,#CENTER-1,"Copy A To B and rotate (not identique to A)") EndSelect
RotateBrush(B,-90)

SelectBrush(C) Textout(#CENTER,#CENTER-1,"Copy B To C and rotate (not identique to A)") EndSelect
RotateBrush(C,-360)

DisplayBrush(A,30,5)         
DisplayBrush(B,30,35)
DisplayBrush(C,30,350)

 

/* Boucle infinie */
Repeat
        WaitEvent
Forever

Re: Rotate brush is not identique to source

Posted: Thu Sep 29, 2016 5:38 pm
by airsoftsoftwair
That is a feature ;) RotateBrush() will always run its transformation code. It won't treat modulo 90, 180, 270 and 360 rotations as special cases and run special code. But you can easily implement this yourself and just call FlipBrush() or CopyBrush() in case of a special rotation angle...

Re: Rotate brush is not identique to source

Posted: Thu Sep 29, 2016 8:53 pm
by sinisrus
Rotate with copybrush()??? Is it possible???

Thann you

Re: Rotate brush is not identique to source

Posted: Thu Sep 29, 2016 10:57 pm
by airsoftsoftwair
No, what I meant was that if you pass 360 to RotateBrush(), you probably just want to do nothing because nothing will change with an angle of 360, so you shouldn't call RotateBrush() in that case.

Re: Rotate brush is not identique to source

Posted: Fri Sep 30, 2016 7:47 am
by sinisrus
it is not possible to rotate 90, 180 identical with hollywood?

Re: Rotate brush is not identique to source

Posted: Sun Oct 02, 2016 11:58 pm
by xabierpayet
try this,will work fine

SelectBrush(B) Textout(#CENTER,#CENTER-1,"Copy A To B and rotate (not identique to A)") EndSelect
RotateBrush(B,-90,1,1,true)

SelectBrush(C) Textout(#CENTER,#CENTER-1,"Copy B To C and rotate (not identique to A)") EndSelect
RotateBrush(C,-360,1,1,true)

Re: Rotate brush is not identique to source

Posted: Mon Oct 03, 2016 4:39 pm
by sinisrus
I am sorry is not identique. look carefully :-/

thanks anyway

Re: Rotate brush is not identique to source

Posted: Fri Oct 07, 2016 10:23 pm
by airsoftsoftwair
Well, I could add some code of course that treats 90, 180, 270, 360 degrees rotations as special cases and uses dedicated code for them to give the best results. I'll see what I can do.

Re: Rotate brush is not identique to source

Posted: Sun Nov 27, 2016 9:58 am
by sinisrus
Thank you for this :-)

Re: Rotate brush is not identique to source

Posted: Tue Jan 17, 2017 7:47 pm
by airsoftsoftwair

Code: Select all

- New: RotateBrush(), TransformBrush() as well as all other functions that rotate images now use
  dedicated code to handle the special cases of a rotation by 90, 180, 270, and 360 degrees to
  transform the image data; this is much faster and the transformation is also done in a lossless
  way