diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-04-22 05:05:31 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-04-22 05:05:31 -0400 |
| commit | 158564b28f4316b4c140457d543ec4d65391a043 (patch) | |
| tree | 7889891c8112bfa05af8bd94d6d8de053f617456 /hello_obj2.lc | |
| parent | a5be1222b3522dd9e58a10dfb4d3210970faab02 (diff) | |
Pass entire model-view-projection matrix from haskell.
Diffstat (limited to 'hello_obj2.lc')
| -rw-r--r-- | hello_obj2.lc | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/hello_obj2.lc b/hello_obj2.lc index 7adf8b1..5a95ad7 100644 --- a/hello_obj2.lc +++ b/hello_obj2.lc | |||
| @@ -1,12 +1,6 @@ | |||
| 1 | deg30 = 0.5235987755982988 -- pi/6 | ||
| 2 | 1 | ||
| 3 | coordmap (cam::Mat 4 4 Float) (p::Vec 4 Float) | 2 | coordmap (cam::Mat 4 4 Float) (p::Vec 4 Float) |
| 4 | = perspective 0.1 -- near plane | 3 | = cam *. p |
| 5 | 100 -- far plane | ||
| 6 | deg30 -- y fov radians | ||
| 7 | 1 -- aspect ratio w/h | ||
| 8 | *. cam | ||
| 9 | *. p | ||
| 10 | 4 | ||
| 11 | blendplane = -- NoBlending -- BlendLogicOp Xor | 5 | blendplane = -- NoBlending -- BlendLogicOp Xor |
| 12 | Blend (FuncAdd,FuncAdd) | 6 | Blend (FuncAdd,FuncAdd) |