'初二，今天老师在讲轴对称的时候顺便课外扩充了一下圆的组成

‘（围绕一个点并以一定长度为距离旋转一周所形成的封闭曲线叫作圆）

'然后就顺便说到了在数学中，只要确定圆心坐标,角度和半径就可以通过正弦函数和余弦函数获取圆上任意一点坐标

'我就突然想到了，计算机和数学应该是相通的，这玩意好像可以拿来画加载中的旋转圆圈

'帧率还不够，等周末优化一下封装成一个命令

#code=936
ENVI^ ForceLocal=1
ENVI^ EnviMode=1
ENVI^ Alias -opt Ellipse=CALL $--qd#  --ret:* Gdi32,Ellipse,*dummy,
’LOGS * CONOUT$

SET &I=0
ENVI angle=1
SET &w=10
SET &h=10 
SET &x0=130
SET &y0=130
SET &aw=2
SET &ah=2
TEAM set &L=| SET &T=| SET &R=| SET &B=
TEAM SET &L0=0| SET &T0=0
SET &angle=1

//决定旋转速度
ENVI num=5

CALL WIN1 

 

_SUB WIN1,W260H320,加载条演示,
    Envi @this.Paint=OnPaint
    TIME &Timer1,50, ENVI @this.InvalidateRect=;;;230;  //0
_END

 

_SUB OnPaint
    CALC w=15
    CALC h=15
    CALC x0=130 + 60 * cos(%angle% * PI / 180)
    CALC y0=130 + 60 * sin(%angle% * PI / 180)
    CALC angle=%angle% + %num%
    CALC #L=%x0%-%w% - %L0%
    CALC #T=%y0%-%h%
    CALC #R=%x0%+%w% - %L0%
    CALC #B=%y0%+%h%    
    Ellipse %1,%L%,%T%,%R%,%B%

    CALC angle=%angle%+60
    CALC w=12
    CALC h=12
    CALC x0=130 + 60 * cos(%angle% * PI / 180)
    CALC y0=130 + 60 * sin(%angle% * PI / 180)
    CALC angle=%angle% + %num%
    CALC #L=%x0%-%w% - %L0%
    CALC #T=%y0%-%h%
    CALC #R=%x0%+%w% - %L0%
    CALC #B=%y0%+%h%    
    Ellipse %1,%L%,%T%,%R%,%B%
    CALC angle=%angle%-60

    CALC angle=%angle%+120
    CALC w=9
    CALC h=9
    CALC x0=130 + 60 * cos(%angle% * PI / 180)
    CALC y0=130 + 60 * sin(%angle% * PI / 180)
    CALC angle=%angle% + %num%
    CALC #L=%x0%-%w% - %L0%
    CALC #T=%y0%-%h%
    CALC #R=%x0%+%w% - %L0%
    CALC #B=%y0%+%h%    
    Ellipse %1,%L%,%T%,%R%,%B%
    CALC angle=%angle%-120

    CALC angle=%angle%+180
    CALC w=9
    CALC h=9
    CALC x0=130 + 60 * cos(%angle% * PI / 180)
    CALC y0=130 + 60 * sin(%angle% * PI / 180)
    CALC angle=%angle% + %num%
    CALC #L=%x0%-%w% - %L0%
    CALC #T=%y0%-%h%
    CALC #R=%x0%+%w% - %L0%
    CALC #B=%y0%+%h%    
    Ellipse %1,%L%,%T%,%R%,%B%
    CALC angle=%angle%-180

    CALC angle=%angle%+240
    CALC w=6
    CALC h=6
    CALC x0=130 + 60 * cos(%angle% * PI / 180)
    CALC y0=130 + 60 * sin(%angle% * PI / 180)
    CALC angle=%angle% + %num%
    CALC #L=%x0%-%w% - %L0%
    CALC #T=%y0%-%h%
    CALC #R=%x0%+%w% - %L0%
    CALC #B=%y0%+%h%    
    Ellipse %1,%L%,%T%,%R%,%B%
    CALC angle=%angle%-240
_END