|
|
> No.769[元記事へ]
!以下の２例で、文字の大きさが 1.5倍、実行速度が２００倍ほど違いますが、
!私の環境（Win98SE）だけでしょうか？ (Ver.7.4.0 の PLOT TEXT)
!
SET TEXT font "",14
SET TEXT background "OPAQUE"
SET WINDOW -1,1,-1,1
DIM m(4,4)
!
MAT m=IDN
!
LET t0=TIME
FOR i=1 TO 5000
DRAW new_text WITH m
NEXT i
PRINT USING"###.###sec":TIME-t0
!
LET m(1,1)=-1
!
LET t0=TIME
FOR i=1 TO 5000
DRAW new_text WITH m
NEXT i
PRINT USING"###.###sec":TIME-t0
PICTURE new_text
PLOT TEXT,AT 0,0,USING"#####":STR$(i)
END PICTURE
END
|
|