root/trunk/orca/gl/simple.r

ORCA [
    Purpose: {GL-Orca test}
]


;        5___6
;        |\1__\2
; Z Y    | |   |
;  \|_X  4\|_7_|
;          0   3

render-state 'model

cube-list: compile-gl [
    verts [
        0 0 0
        0 1 0
        1 1 0
        1 0 0

        0 0 1
        0 1 1
        1 1 1
        1 0 1
    ]

    normals [
        1  0  0
        0  1  0
        0  0  1
       -1  0  0
        0 -1  0
        0  0 -1
    ]

    255.100.20
    quads nv [
        5 0   5 1   5 2   5 3  ; front
        3 4   3 5   3 1   3 0  ; left side
    ]

    0.255.60
    quads nv [
        1 6   1 2   1 1   1 5  ; top
    ]

    0.60.255
    quads nv [
        0 3   0 2   0 6   0 7  ; right side
    ]

    uvs [
        0 0
        0 1
        1 1
        1 0
    ]

    255.255.255
    texture 0 %data/pool.png
    quads ntv [
        ;7  6  5  4
        2 0 7   2 1 6   2 2 5   2 3 4   ; back
    ]
]


do %demo/stars.r
do %demo/fps.r

;snd0: load %data/attn01.wav
;snd1: load %data/click01.wav
stars: make-stars 500
font: make-texfont #fontA %data/Chicago.ttf 12
display/window 640x480
fps/init

win: make widget [
    mouse-move: 
        none
        ;mouse-handler [print [mx my]]

    mouse-down: mouse-handler [
        either code == 1 [
            mouse-move: move-obj
        ][
            mouse-move: rot-obj
        ]
        ;print code
    ]

    mouse-up: mouse-handler [
        mouse-move: none
    ]

    move-obj: mouse-handler [
        move posA 0.01 * dx 0.01 * dy 0.0

        ;sx: 0.01 * dx + sx
        ;sy: 0.01 * dy + sy

        ;vec: make vec3! [0.01 * dx 0.01 * dy 0.0]
        ;trans posA vec
    ]

    rot-obj: mouse-handler [
        rotate posA y-axis dx
        rotate posA x-axis dy
    ]

    ;mouse-wheel: mouse-handler [
        ;print dy
        ;sz: 0.01 * dy + sz
    ;]

    key-down: key-handler [
        esc   [quit]
        ;up    [
        ;        sz: sz + 0.01 print sz
        ;      ]
        ;down  [
        ;        sz: sz - 0.01 print sz
        ;      ]
        ;home  [
        ;        ;set-identity posA
        ;        ;set-identity cam-pos
        ;        sx: sy: sz: 0.0
        ;      ]
        r     [recycle]
        ;s     [play snd0]
        ;d     [play snd1]
        print [save %snapshot.png screengrab]
        #"0"  [print "zero"]
        #"."  [print "period"]
        #"\"  [print "backslash"]
        #"'"  [print "apos"]
        #"`"  [print "grave"]
    ]

    render: [
        viewport self cam-pos

        render-state 'solid
        rotate posB y-axis 0.05
        push-matrix posB
        call stars
        pop

        render-state 'model
        call cube-prog

        ortho-view self none none
        render-state font
        render-text 0x0 fps/update
    ]

    posA: copy
    posB: make matrix! none
    cam-pos: make matrix! [
        1 0 0 0
        0 1 0 0
        0 0 1 0
        0 0 2 1
    ]

    cube-prog: render-prog #cube compose [
        light 0 on
        light 0 <0 1 1>
        push (posA)
        call (cube-list)
        pop
    ]
]


;play %data/soundtrack.ogg

exec win


;eof