もう終わってるのかな…でも思いついたので書きます:) フォント展開部分とか色々省略して書くけど、 '元のやりかた FOR M=0 TO H-1:FOR N=0 TO W-1 GRP[M,N]=CC[M,N] NEXT:NEXT GLOAD X,Y,W,H,GRP,0,FALSE '上の処理を高速化 VAR I=0,SZ=W*H,GRP[SZ] REPEAT GRP[I]=I:I=I+1 UNTIL SZ<=I GLOAD X,Y,W,H,GRP,CC,FALSE