#include "hspext.as"
screen 0, 158, 165
emsin sin, 0: emcos cos, 0
pos 78, 32
repeat 256, 1
if cnt < 128: n++: else: n--
emsin sin, cnt: emcos cos, cnt
line sin*n/256+78, cos*n/256+32
loop
stop