【HSP3】構造体を戻り値とするDXライブラリの関数をHSPで呼び出すテスト | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
// http://sprocket.babyblue.jp/html/hsp_koneta3.htm
#module
#defcfunc todouble int p1
    temp = 0.0
    lpoke temp, 4, (p1 & 0x80000000) | (((p1 & 0x7fffffff) >> 3) + ((p1 & 0x7fffffff) ! 0) * 0x38000000)
    lpoke temp, 0, p1 << 29
return temp
#global
;
#runtime "hsp3cl"
#include "DxLib.as"
;
// 【参考】元の形式
; #func global ConvWorldPosToScreenPos "dx_ConvWorldPosToScreenPos" float,float,float
;
// 第一引数に戻り値を格納するポインタを指定する（そのため、引数が1つずれます）
#func global _ConvWorldPosToScreenPos "dx_ConvWorldPosToScreenPos" var,float,float,float
;
    ChangeWindowMode TRUE           // ウィンドウモードになる
    SetDoubleStartValidFlag TRUE    // 多重起動を許可
;
    DxLib_Init
;
    px = 0.0f
    py = 0.0f
    pz = 100.0f
;
    ; 戻り値を格納するVECTOR構造体(12bytes)
    dim VECTOR, 3
    _ConvWorldPosToScreenPos VECTOR, VGet(px, py, pz)
;
    ; ポインタ（同じ値を指します）
    mes "ptr:" + stat
    mes "ptr:" + varptr(VECTOR)
;
    ; 結果
    mes todouble(vector.0)
    mes todouble(vector.1)
    mes todouble(vector.2)
;
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX