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