立体視

  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
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111

;
;	立体視を表示するサンプル
;	（交差法）
;
;	ベース：sample_06_snow_night.hsp
;
 
#include "d3m.hsp"
 
;####################################################################
;眼球位置を考慮してd3setcamを指定する
#module
#deffunc _d3setcam2 int x1, int y1, int z1, int x2, int y2, int z2, int va, int eyel
;eyel	:左右の目の中心からのシフト距離。正のとき右目、負のとき左目
;		0または省略では通常のd3setcamと同じになります。
    if eyel = 0 : d3setcam  x1, y1, z1,  x2, y2, z2, va : return -1
    vax = x2 - x1
    vay = y2 - y1
    lna = sqrt(vax*vax+vay*vay)
    if lna = 0 : d3setcam  x1, y1, z1,  x2, y2, z2, va : return -1
    vbx = -vay * eyel / lna
    vby =  vax * eyel / lna
    d3setcam  x1+vbx, y1+vby, z1,  x2, y2, z2, va
    return
 
 
#define global d3setcam2(%1=0, %2=0, %3=0, %4=0, %5=0, %6=0, %7=1, %8=0)  _d3setcam2 %1, %2, %3, %4, %5, %6, %7, %8
 
#global
;####################################################################
 
    ;作業ウィンドウと描画ウィンドウを確保
    screen 0,640,480
    title "d3module sample - 寄り目にしてみてください（交差法）"
    buffer 1,320,480    ;作業ウィンドウ
    buffer 2,320,480    ;作業ウィンドウ
    gsel 0, 1
 
 
    ; 使用するパーティクルを作成
    d3mkparticle 0, 255, 255, 255 ; 白
    d3mkparticle 1,  64, 192, 255 ; 青
 
 
*mainloop
    ct++
 
    redraw 0
 
    ;作業ウィンドウに描画（右目と左目で見た画像をそれぞれ作成）
    wkwinid = 1
    repeat 2
    gsel wkwinid
        i = ((wkwinid=1)*2-1) * 50    ;眼球間距離
 
        ; カメラ座標を回転させる (上向き)
        r = 2000
        camx = cos(0.01 * ct) * r
        camy = sin(0.01 * ct) * r
        i = ((wkwinid=1)*2-1) * 50    ;眼球間距離
        d3setcam2 camx, camy, 0,  0, 0, 1000, , i
 
        color : boxf
 
        ;BOXを描画
        color 255,255,255
        d3box 250, 250, 1250, -250, -250, 750
 
        ; パーティクルを描画
        randomize 0
        repeat 500
    
            x = rnd(8000) - 4000
            y = rnd(8000) - 4000
            z = rnd(8000)
            v = rnd(50) + 50
    
            z = (ct * v + z) \ 8000 - 8000
    
            ; 雪の後ろの光彩
            gmode 5, , , 64
            d3particle 1,  x, y, -z, 150
    
            ; 雪パーティクル
            gmode 5, , , 255
    
            ;------------------------------------------------------------
            ; 前回描画位置にパーティクルを描画
    
            d3particlem  0, 50
    
            ;            │ └ 描画するパーティクルの半径
            ;            └ パーティクル ID
            ;------------------------------------------------------------
    
        loop
        wkwinid++
    loop
 
    ;メインウィンドウに描画（交差法）
    gsel 0
    pos 320,0 :    gcopy 1, 0,0, 320,480    ;左目
    pos   0,0 :    gcopy 2, 0,0, 320,480    ;右目
    color 127,127,127
    boxf 315,0, 325, 480
 
    redraw 1
    await 30
 
    goto *mainloop