逆時針旋轉

定義 以 x: (x :: custom-arg) y: (y :: custom-arg) 為中心 逆時針旋轉 (角度 :: custom-arg) 度
變數 [x 偏移量 v] 設為 ((x 座標) - (x :: custom-arg))
變數 [y 偏移量 v] 設為 ((y 座標) - (y :: custom-arg))
x 改變 ((((x 偏移量) * ([cos v] 數值 (角度 :: custom-arg))) - ((y 偏移量) * ([sin v] 數值 (角度 :: custom-arg)))) - (x 偏移量))
y 改變 ((((x 偏移量) * ([sin v] 數值 (角度 :: custom-arg))) + ((y 偏移量) * ([cos v] 數值 (角度 :: custom-arg)))) - (y 偏移量))