このスレ最高。プログラミング設計レビュー
も、人工知能なのか❓。早朝から捗る
で、修正した。第２版だ

bbb1へ変換前ファイルのをゲット

r＝1+0.3*sin(θ°*π/180)
FOR x0＝0 TO 3839 '∵4K静止画専用
　FOR y0＝0 TO 1079 '∵4K静止画専用
　　　i <- x0,y0より🔵のインデックスだ
　　　GOSUB GOD_LINE
　　　j <- x4,y4 より🔵のインデックスだ　　　
　　　bbb4(j+0) = bbb1(i+0) '🔵
　　　bbb4(j+1) = bbb1(i+1) '🟢
　　　bbb4(j+2) = bbb1(i+2) '🔴
　NEXT
NEXT
bbb4から変換後ファイル書込みプット
EXIT SUB

GOD_LINE:
　x1 = (x0 - 1919.5) / 1079.5
　y1 = (1079.5 - y0) / 1079.5
　x2 = x1 * POWER(SQRT(r),x1)
　y2 = y1 * POWER(r,x1)

　x3 = COS(θ°*π/180) * x2 '''ペチャンコ
　y3 = y2 '''垂直方向はペチャンコなし

　x4 = 1079.5*x3 + 1919.5
　y4 = 1079.5*(1 - y3)
RETURN