sample\hsp3dish\viewcalc.hsp » Plain Format
#include "hsp3dish.as" ; ; viewcalc命令サンプル ; sx=ginfo_sx: sy=ginfo_sy celload "ball64.png",3 celdiv 3,64,64 frame = 0 pos 0,80 button gosub "NORMAL",*to_1x1 button gosub "2X",*to_2x2 *main frame++ redraw 0 rgbcolor 0:boxf rgbcolor $ffffff pos 0,0 mes "Frame:"+frame pos 128,80 celput 3,(frame/60)&63,,,deg2rad(frame) redraw 1 await 1000/60 goto *main *to_2x2 viewcalc vptype_2d,2,2 return *to_1x1 viewcalc vptype_off return