Swing dance (スウィングダンス)

 

Sample Program (サンプルプログラム)

R LUA -90
R RUA 60
SET DLUA 0
SET DLLA 0
SET DRUA 0
SET DRLA 0
REPEAT 500
SET DLUA [DLUA – COS(ANGLE(‘LUA’))]

SET DLLA [DLLA – COS(ANGLE(‘LLA’))]

SET DRUA [DRUA – COS(ANGLE(‘RUA’))]

SET DRLA [DRLA – COS(ANGLE(‘RLA’))]

R LUA DLUA 0.02
R LLA DLLA 0.02
R RUA DRUA 0.02
RW RLA DRLA 0.02
END

回転 左上腕 ー90
回転 右上腕 60
代入 変化左上腕 0
代入 変化左前腕 0
代入 変化右上腕 0
代入 変化右前腕 0
繰返し 500
代入 変化左上腕 「変化左上腕 ー 余弦(角度(”左上腕”))」
代入 変化左前腕 「変化左前腕 ー 余弦(角度(”左前腕”))」
代入 変化右上腕 「変化右上腕 ー 余弦(角度(”右上腕”))」
代入 変化右前腕 「変化右前腕 ー 余弦(角度(”右前腕”))」
回転 左上腕 変化左上腕 0.02
回転 左前腕 変化左前腕 0.02
回転 右上腕 変化右上腕 0.02
回転待ち 右前腕 変化右前腕 0.02
終わり