Scratchの向きと三角関係について

あまプロではScratchを使ってプログラミングをお教えする事が有ります。
先日、スクラッチの角度（向き）ではまったので、あメログ。

Scratchではスプライトの角度（向き）は算数（数学）の角度と少し違います。
一周360°は同じなんですが、

　算数　　　　　　　Scratch　　
　　90°　　　　　　　　0°　　　
180° ┼ 0°(360°)　　-90° ┼ 90°　　
　　270°　　　　　　　180°(-180°)

こんな感じです。
算数は左回りで増えるんですが、Scratchは右回りで増えるんですね…。
ちなみに、スプライトの向きの初期値は90°（右向き）です。

 で、問題は三角関係を使う時なんです。
スプライトを円運動さしたり、上下さしたり、左右さしたりしたい時にsinやcosを使います。
上でScratchの向きは算数と違うと書きましたが、三角関数の時は算数と同じになるんですね…。

つまり、
90°のsinは0
ではなくて1になります。
なもんで90°のcosは0になります。

ややこしい！
サンプルはこちらです。

LibreOfficeBasicの配列追加について

あまプロではLibreOfficeBasicを使ってマクロを作る事が有ります。
LibreOfficeBasicの配列追加で少し嵌まったんであメログ。

LibreOfficeBasicで配列を追加するにはReDim Preserveを使います。
例えば配列の末尾に一つ追加するのはこちら。

Sub test
    Dim stringArray( 0) As String
    stringArray( 0) = "文字列0"
    Redim Preserve stringArray( Ubound( stringArray) + 1)
    stringArray( 1) = "文字列1"
    
    Msgbox stringArray( 0) &" "& stringArray( 1)
End Sub

↑を実行するとこうなります。

意図した通りです。

なんですが、Functionの戻り値で配列を受け取る時は要注意です。
String型なんで、配列の戻り値もStringにすんのかなと考え

Function addArray( stringArray As String) As String
    Redim Preserve stringArray( Ubound( stringArray) + 1)
    addArray = stringArray
End Function

Sub test
    Dim stringArray( 0) As String
    stringArray( 0) = "文字列0"
    stringArray = addArray( stringArray)
    stringArray( 1) = "文字列1"
    
    Msgbox stringArray( 0) &" "& stringArray( 1)
End Sub

↑を実行してみると

実行エラーになります。
ほなVariant型にすんのかなと考え

Function addArray( stringArray As String) As Variant
    Redim Preserve stringArray( Ubound( stringArray) + 1)
    addArray = stringArray
End Function

Sub test
    Dim stringArray( 0) As Variant
    stringArray( 0) = "文字列0"
    stringArray = addArray( stringArray)
    stringArray( 1) = "文字列1"
    
    Msgbox stringArray( 0) &" "& stringArray( 1)
End Sub

↑を実行しても同じく

実行エラー…。
色々試した挙げ句VariantをStringで受け取ると良ぇ様です。

Function addArray( stringArray As String) As Variant
    ReDim Preserve stringArray( Ubound( stringArray) + 1)
    addArray = stringArray
End Function

Sub test
    Dim stringArray( 0) As String
    stringArray( 0) = "文字列0"
    stringArray = addArray( stringArray)
    stringArray( 1) = "文字列1"
    
    Msgbox stringArray( 0) &" "& stringArray( 1)
End Sub

↑を実行すると

意図した通りになりました。
でも、VariantをVariantで受け取っても動く場合が有るんすよね…良ぉ解らん。

マクロ本体はGithubで公開しています。

環境はバージョン: 6.4.7.2　Build ID: 1:6.4.7-0ubuntu0.20.04.1です。