ACLS
XSCREEN 1
XON MOTION
GPAGE 0,4
GCLS 0
GPUTCHR 0,0,"い",21,21
GPAGE 0,0
SPSET 0,0,0,168,168,1
SPHOME 0,84,84
SPOFS 0,200,120
VAR AX#,AY#,AZ#,AXD#,AYD#,AZD#
VAR C#=0.5 '要調整
REPEAT
WAIT 1
ACCEL OUT AX#,AY#,AZ#
SPROT 0,MIN(MAX(DEG(ATAN(AX#+C#*AXD#,AY#+C#*AYD#))*2,-90),90)
AXD#=AX#:AYD#=AY#:AZD#=AZ#
UNTIL 0