雑なプログラムですがこんな方法も。
簡単に説明すると、
大きめの文字を用意し、一時バッファに回転して描画。
それをgzoomのハーフトーンありで縮小してメインウィンドウに描画する、
という物です。
xx=4
w5=40
screen 0,200*xx,100*xx : title "コピー元"
boxf
color 255,255,255 : pos 0,0 : font "メイリオ",w5*xx : mes "テスト文字列"
screen 1,250*xx,250*xx : title "一時バッファ"
gmode 2,200*xx,100*xx
; テストの為アンチエイリアスの部分を白で塗潰す
repeat 100
PPosy=cnt
repeat 200
pget cnt,PPosy
if (ginfo_r=0)&(ginfo_g=0)&(ginfo_b=0) : continue; color 255,255,255 : pset cnt,PPosy
if (ginfo_r!255) {
color 255,255,255 : pset cnt,PPosy
}
loop
loop
screen 2,500,500 : title "コピー先"
repeat
mx=mousex:my=mousey
color 255,0,0 : boxf
gsel 1
color 255,0,0 : boxf
pos double(250*xx)/2.0,double(250*xx)/2.0:grotate 0, 0,0, rad, 200*xx,100*xx
gsel 2
pos mx-125,my-125
gzoom 250,250,1,0,0,250*xx,250*xx,1
counter+1 : rad = 0.1*counter ; 回転角度
wait 10
loop
綺麗な回転ができません(ギザギザしてしまう)
