それは、即日、記載しよっと
BBBにBMPのファイルをバイナリで読込み
for x1＝0 to 3839 '∵4K静止画専用
for y1＝0 to 1079 '∵4K静止画専用
r = 1+0.3*sin(θ°*π/180)
x2 = x1 * power(sqrt(r),x1) '秘伝の強引近似数式
x3 = cos(θ°*π/180) * x2 '∵ペチャンコ設計
y2 = power(r,x1)*y1
y3 = y2 'そのまま∵ペチャンコは水平方向だけ
i1 = とにかくx1,y1に対応するbmpのインデックス
i3 = とにかくx3,y3に対応するbmpのインデックス
BBB3(i3)=BBB1(i1)
next
next
BBB3をバイナリで書込む
y3 = y2
