XProfan

WindowTitle "Hypno-2":Windowstyle 24:Window 0,0-%maxx,%maxy
declare xh&,yh&,sw!,ew!,r&,n&,dr&,f!,i!,j!,k!,d!:xh&=width(%hwnd)\2
yh&=height(%hwnd)\2:f!=Pi()/180:repeat:whileloop 0,360,3:k!=&Loop/360
r&=yh&:n&=7:dr&=r&\n&:MCLS 2*xh&,2*yh&,0:StartPaint -1:usepen 0,2,rgb(255,255,255)

Whileloop 0,n&:i!=&Loop/n&:Whileloop 0,359,30:j!=&Loop*f!:usebrush 8,rgb(\

    (128-127*cos(j!       -k!*1.83*pi()))*2^(2.3*i!),\
    (128-127*cos(j!+120*f!-k!*1.83*pi()))*2^(2.3*i!),\
    (128-127*cos(j!+270*f!-k!*1.83*pi()))*2^(2.3*i!))
    Sw!=f!*(&Loop+30*k!):Ew!=Sw!+f!*30:PIE xh&+r&,yh&+r& - xh&-r&,yh&-r&;\
    900*r&*cos(Sw!),900*r&*sin(-Sw!);900*r&*cos(Ew!),900*r&*sin(-Ew!)
    endwhile:r&=r&-dr&:endwhile:EndPaint:MCopyBMP 0,0 - 2*xh&,2*yh& >0,0;0
    endwhile:until %key:end