;HSPスレ復活支援age！

;ver2.6x用

#include "hspext.as"
dim l,256,16:repeat 255:l.cnt=1:l.cnt.2=80:l.cnt.4=cnt/2:l.cnt.5=cnt-128:l.cnt.6=cnt/2+1
l.cnt.7=cnt-128:l.cnt.8=cnt:l.cnt.9=255-cnt:l.cnt.11=8:l.cnt.12=32:l.cnt.15=cnt
loop:screen 0,512,512:repeat:my=256-mousey/2:mx=mousex:await 1:redraw 0:color:boxf:color 64,64,64
emcos z,my:emsin n,my>>1+128:repeat 4:emsin a,cnt*64+mx:emcos b,cnt*64+mx:b=b*(256-z)>>9:line a+256,b+256,256,256
line 256,256,256,n+256:line 256,256,256,-n+256:loop:repeat 255:c=cnt:repeat l.cnt.11:emsin a,mx+l.c.1+(cnt*l.c.12)
emcos b,mx+l.c.1+(cnt*l.c.12):emcos z,my+l.c.3:b=b*(256-z)>>9:emsin n,my+l.c.3>>1+128
emsin aa,mx+l.c.2+(cnt*l.c.12):emcos bb,mx+l.c.2+(cnt*l.c.12):emcos zz,my+l.c.3:bb=bb*(256-zz)>>9
emsin nn,my+l.c.3>>1+128:color l.c.8+(cnt*l.c.13),l.c.9+(cnt*l.c.14),l.c.10+(cnt*l.c.15)
line a*l.c.4/256+256,b*l.c.4/256+256+(n*l.c.5/256),aa*l.c.6/256+256,bb*l.c.6/256+256+(nn*l.c.7/256)
loop:loop:redraw 1:loop