hsp3dish

block3.hsp
title "ブロック崩し" cls 4 *gstart clrflag=0 クリアフラグ blsize=16 ボールのサイズ blspd=10 ボールのスピード blx=200:bly=200 ボールの座標 bpx=4:bpy=4 XY方向のボール座標加算値 bk=0 ブロックを崩すフラグ(1=崩す) mblsize=-blsize barsize=64 バーのサイズ barx=240:bary=540 バーの座標 barhalf=barsize/2 blhalf=blsize/2
sample\hsp3dish\block3.hsp - 2014/09/19

button_test.hsp
#include "hsp3dish.as" gradf命令サンプル sx=ginfo_sx: sy=ginfo_sy screen 0,sx,sy celload "chr.png" info_os = sysinfo(0) info_user = sysinfo(1) info_name = sysinfo(2) flag_ios=0:flag_and=0:flag_win=0 if instr(info_os,0,"iOS")>=0 : flag_ios=1 if
sample\hsp3dish\button_test.hsp - 2014/09/19

ease_test1.hsp
#include "hsp3dish.as" イージング関数の設定 setease 100,400,ease_cubic_inout i=0 repeat 51 redraw 0 color 0,0,0:boxf 画面をクリア x = getease(i,50) イージング値の取得(整数) color 255,255,255 pos x,100 : mes "●" pos 16,16 : mes "i="+i+" x="+x redraw 1 await 30 i=i+1 loop
sample\hsp3dish\ease_test1.hsp - 2014/09/19

ease_test2.hsp
#include "hsp3dish.as" イージング関数の設定 i=0 repeat redraw 0 color 0,0,0:boxf 画面をクリア color 255,255,255 y=20 setease 100,400,ease_linear+ease_loop x = getease(i,50) イージング値の取得(整数) pos 100,y : mes "ease_linear" pos x,y+20 : mes "●" y+=50 setease
sample\hsp3dish\ease_test2.hsp - 2014/09/19

gradf.hsp
#include "hsp3dish.as" gradf命令サンプル sx=480: sy=800 screen 0,sx,sy それぞれの頂点座標と色を配列に代入 x(0)=0 : y(0)=0 : col(0)=$0000ff x(1)=sx : y(1)=0 : col(1)=$00ffff x(2)=sx : y(2)=sy : col(2)=$ff0000 x(3)=0 : y(3)=sy : col(3)=$ff00ff repeat py=sin(0.1*cnt)*32
sample\hsp3dish\gradf.hsp - 2014/09/19

grotate.hsp
title "grotate" celload "hsp3dish.png",3 cls 4 font "Arial",14 m="HSP3 grotate sample" maxx=ginfo_winx-32 maxy=ginfo_winy-32 max=20 dim xx,max dim yy,max dim px,max dim py,max dim rot,max dim prot,max repeat max xx.cnt=rnd(maxx) yy.cnt=rnd(maxy)
sample\hsp3dish\grotate.hsp - 2014/09/19

gsquare.hsp
title "gsquare" randomize celload "hsp3dish.png",3 screen 0,480,800,0 gmode 0,640,200 tx.0=0:ty.0=0 tx.1=640:ty.1=0 tx.2=640:ty.2=200 tx.3=0:ty.3=200 col.0=0xff0000 col.1=0x00ff00 col.2=0x0000ff col.3=0xffffff sw=0 repeat redraw 0 stick key if
sample\hsp3dish\gsquare.hsp - 2014/09/19

hsplogo.hsp
#include "hsp3dish.as" #cmpopt varname 1 #module "sprmod" #define global ROT4096 0.00153398078125 標準命令による簡易スプライトモジュール #deffunc init_sprite int _p1, int _p2, int max スプライト初期化 sprsx=_p1:sprsy=_p2 dim sprflg,max dim sprx,max dim spry,max dim sprpx,max
sample\hsp3dish\hsplogo.hsp - 2014/09/19

mtouch.hsp
title "Dish Test" repeat stick key,15 if key&128 : end redraw 0 gmode 0 color 0,0,128 boxf color 255,255,255 pos 0,0:mes "("+mousex+","+mousey+")" y=16 mtlist touchid num=stat repeat num id = touchid(cnt) mtinfo touch,id mes
sample\hsp3dish\mtouch.hsp - 2014/09/19

obaqtest.hsp
title "OBAQ Test" qreset OBAQの初期化 frame=0 boxmax=30 boxnum=0 *main メインループ redraw 0 画面の更新を開始 gradf ,,,,1,0,128 画面クリア qexec OBAQによるオブジェクトの更新 stick key,15 キーの取得 if key&128 : end [ESC]キーで終了 一定時間ごとに出現 if boxnum<boxmax { if frame\30=0 { qaddpoly my, 4,
sample\hsp3dish\obaqtest.hsp - 2014/09/19

test1.hsp
title "Dish Test" celload "chr.png",1 celdiv 1,16,16,0,0 celload "hsp3dish.png",2 celdiv 2,640,200,320,100 ang=0.0 font "Arial",32,1 repeat stick key,15 if key&128 : end redraw 0 gmode 0 color 0,0,128 boxf gmode 0 pos 0,20+16:celput 1,$1f gmode
sample\hsp3dish\test1.hsp - 2014/09/19

xsample_gcube.hsp
title "S.Programs Glass-Cube" version 1.0/sample_ver http: sprocket.babyblue.jp/ /* ・Glass-Cube ガラスのキューブがバウンドしながら転がっていく様子を描画します。 単一のオブジェクトをローカル座標変換して、回転させたり、鏡像にしたり、影にしたりして描画しています。
sample\hsp3dish\xsample_gcube.hsp - 2014/09/19