HGIMG3でテクスチャのUV座標を変化させてスクロール | 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
; HSP 3.4
#include "hgimg3.as"
    hgini
    setfont 16, 16, 12, 1
    texload dir_exe + "/sample/hgimg3/fontchr.bmp"
    texload dir_exe + "/hsptv/hsptv_img.bmp"
    addplate id, 0, 400, 300, 0, 0, 120, 90, stat
    regobj bg, id
    setpos bg, , , -300
    setcolor 250, 250, 100
    addbox id, 10, 10
    regobj box, id
    clscolor $000080
*mainLoop
    delevent ev
    newevent ev
    event_uv ev, sin(0.022 * frm) * 100, cos(0.033 * frm) * 100
    setevent bg, ev
    setang bg, sin(0.0045 * frm), cos(0.0067 * frm), sin(0.0089 * frm)
    addang box, 0.02, 0.03, 0.04
    hgdraw
    fprt "" + frm, 10, 10
    hgsync 16
    frm++
    goto *mainLoop
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX