For Gradient and Edge
Os4 (no fix)
Os3.9 WinUAE (no fix)
Code: Select all
/* Test Gradient and EDGE */
SetFormStyle(#ANTIALIAS)
SetFillStyle(#FILLGRADIENT, #CONICAL, $00FF00, $000000)
;SetFormStyle(#SHADOW, $A9A9A9, 21, #SHDWSOUTHEAST)
SetFormStyle(#EDGE, $000000, 1)
/**********************************************************************************/
CreateBrush(1,350,100,#WHITE)
SelectBrush(1)
BOX(50,#CENTER,50,50,#BLACK)
Circle(#CENTER,#CENTER,25,#BLACK)
v = {}
v[0] = 0 ;X1
v[1] = 50 ;Y1
v[2] = 25 ;X2
v[3] = 0 ;Y2
v[4] = 50 ;X3
v[5] = 50 ;Y3
v[6] = 0 ;X4
v[7] = 50 ;Y4
Polygon(#RIGHT-50, #CENTER, v, 4, #BLACK)
EndSelect
/**********************************************************************************/
DIST=0 ROT=0
Function p_Loop()
;SetFormStyle(#SHADOW, $A9A9A9, DIST, #SHDWSOUTHEAST)
SetFormStyle(#EDGE, $000000, DIST)
CreateBrush(1,350,100,#WHITE)
SelectBrush(1)
BOX(50,#CENTER,50,50,#BLACK)
Circle(#CENTER,#CENTER,25,#BLACK)
v = {}
v[0] = 0 ;X1
v[1] = 50 ;Y1
v[2] = 25 ;X2
v[3] = 0 ;Y2
v[4] = 50 ;X3
v[5] = 50 ;Y3
v[6] = 0 ;X4
v[7] = 50 ;Y4
Polygon(#RIGHT-50, #CENTER, v, 4, #BLACK)
EndSelect
DisplayBrush(1,#CENTER,#CENTER)
IF (ROT=0)&(DIST<50)
DIST=DIST+5
IF (DIST=50) THEN ROT=1
ENDIF
IF (ROT=1)&(DIST>0)
DIST=DIST-5
IF (DIST=0) THEN ROT=0
ENDIF
EndFunction
/**********************************************************************************/
SetInterval(1, p_Loop, 1000/25)
/**********************************************************************************/
/* Boucle infinie */
Repeat
WaitEvent
Forever