依頼インクル動作確認中の遊び

　
実行するとなんか幸せになれるコード

For i = 1 To 23
　
　x0 = ( i * 20 )
　y0 = ( i * 20 )
　ang = ( i * 10 )
　
　x1 = ( x0 + 680 * Cos( 3.141592 * ang / 180 ) )
　y1 = ( y0 - 680 * Sin( 3.141592 * ang / 180 ) )
　x2 = ( x0 - 680 * Cos( 3.141592 * ang / 180 ) )
　y2 = ( y0 + 680 * Sin( 3.141592 * ang / 180 ) )
　Line x1 y1 x2 y2
　circle x0 y0 3
　
　Refresh
　
Next
Wait click

　
本当は680(≒ 480 * √2)なんて場当たり的な数を指定したくなかったけど
Tan()の動きが何かおかしいから仕方ない。