HSPTV!掲示板

buffer 3
picload "ooo"
screen 0,640,480

x1=0 : y1=0
x2=640 : y2=480

mx=320.0
my=240.0
msp=4.0
mr=0.0
mrsp=0.1
*main
redraw 0

picload "oooooo"

gmode 2,64,64
pos mx,my
grotate 3,0,0,mr

redraw 1
await 20

stick key,15

if key&1 : mr-=mrsp
if key&4 : mr+=mrsp
if key&2 : mgo=msp : goto *main2
if key&8 : mgo=-msp : goto *main2

goto *main
*main2
rot=mr-1.57079632
mx=limitf( mx+cos(rot)*mgo, x1, x2 )
my=limitf( my+sin(rot)*mgo, y1, y2 )

goto *main

このスクリプトにpicloadで画像を読み込むと、かなりちらつくのですが、
どうしたらちらつきをなおせるのでしょうか

buffer 3
picload "ooo" 

buffer 4
picload "oooooo"  

screen 0,640,480

x1=0 : y1=0 
x2=640 : y2=480 

mx=320.0 
my=240.0 
msp=4.0 
mr=0.0 
mrsp=0.1 
*main

redraw 0 

gmode 0
pos 0,0
gcopy 4,0,0,640,480

gmode 2,64,64 
pos mx,my
grotate 3,0,0,mr 

redraw 1 
await 20

stick key,15 

if key&1 : mr-=mrsp
if key&4 : mr+=mrsp
if key&2 : mgo=msp : goto *main2
if key&8 : mgo=-msp : goto *main2

goto *main
*main2 
rot=mr-1.57079632
mx=limitf( mx+cos(rot)*mgo, x1, x2 )
my=limitf( my+sin(rot)*mgo, y1, y2 )

goto *main

何度も描き込む場合はバッファを使って下さい。

過去ログまたはスレッド一覧のしたにある記事検索から「ちらつき」で検索…。




それともあの説明ではわかりにくかったと言うこと…なのだろうか。(-_-;;うーん

redraw int

解決しました　Ｖeさん、ありがとうございました