| 幻魔の公子です。
以外といっても、PaintPicture以外では、画像描画に使える命令は現在のところありません。もしくは、少なくとも、HELPに載っていません。Forを使っているというのは、PaintPictureをFor文で回しているだけのことでしょう。 どのくらい滑らかなものを期待されているのかはわかりませんが……等間隔(時間、座標とも)で動かせばある程度滑らかに見えるものだと思います。
Forを使っているのは、座標指定を(i * 20)などと指定して同じ間隔で描画させるためでしょう。ウェイトも常に同じ数字が指定されるので、時間的にも同じ周期となります。 連続して動かすのに便利なわけです。
つまり、
PaintPicture 10 10 Op.bmp Refresh
Wait 1
ClearPicture PaintPicture 20 30 Op.bmp Refresh
Wait 1
ClearPicture PaintPicture 30 50 Op.bmp Refresh
Wait 1
などと言った動かし方をする場合、以下のように書いた方が効率がいいでしょう、ということです。
For i = 1 To 3 ClearPicture PaintPicture (i * 10) (((i - 1) * 20) + 10) Op.bmp Refresh Wait 1 Next
特に、滑らかに動かそうと思えば10段階程度は必要になると思われが、それをそのまま打ち込むのは容量に無駄が多いですし。
なお、実際にどんなスクリプトでどんなアニメーションをさせようとしているのか提示していただければもうちょっと細かく直せるかと思われます。
それでは。
|