e3dhsp3_0.hsp

３Ｄモデルを表示するだけのサンプルです。（最小構成）

e3dhsp3_0.hsp

#include "e3dhsp3.as"
#module
#deffunc waitbyfps int p1, var fps
    E3DWaitbyFPS@ p1, fps
    await 0
    return
#global
 
    dim keybuf, 256
;file ??ath ?p??o?b?t?@?[????
    pathlen = 2048
    sdim mediadir, pathlen
    mediadir = dir_cur + "\\Media"
    sdim pathbuf, pathlen, 2
    screenw = 640 : screenh = 480
    screen 0, screenw, screenh, 1
    title "Easy3D for HSP3 sample"
;???
    E3DEnableDbgFile
    E3DInit 0, -1, 0, 16, 0, scid1,1
;?J??????????
    camposx = 0.0 : camposy = 800.0 : camposz = -2000.0
    E3DSetCameraPos camposx, camposy, camposz    
    camdegxz = 180.0 : camdegy = 0.0
    E3DSetCameraDeg camdegxz, camdegy
;projection???X????????A????Q?s??L?????????B
    proj_near = 100.0 : proj_far = 30000.0 : proj_fov = 60.0
    E3DSetProjection proj_near, proj_far, proj_fov
//?L?f?[?^??????
    pathbuf.0 = mediadir + "\\bbs_bone1_red2.sig"
    E3DSigLoad pathbuf.0, hsid1
    E3DSetPos hsid1, 0.0, 0.0, 0.0
//???C?g????
    lightdirx1 = 0.0
    lightdiry1 = 0.0
    lightdirz1 = 1.0
    lightr1 = 255
    lightg1 = 255
    lightb1 = 255
    E3DCreateLight lid1
    E3DSetDirectionalLight lid1, lightdirx1, lightdiry1, lightdirz1, lightr1, lightg1, lightb1
    chkfps1 = 0
*main
; keybuf?????A???C?????[?v??O??Adim keybuf, 256 ????A?m???????????B
    E3DGetKeyboardState keybuf
    if keybuf.VK_ESCAPE = 1 : goto *bye ; [ESC]??I??
    E3DBeginScene scid1
    E3DChkInView scid1, hsid1
;?s???????`?????
    E3DRender scid1, hsid1, 0, 0, 0
;????????`?????
    E3DRender scid1, hsid1, 1, 0, 0, 0, 0, 1
    E3DEndScene
    E3DPresent scid1
    waitbyfps 60, chkfps1
    goto *main
*bye
    E3DBye
    end