Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun set-viewport (w h)
- (gl:viewport 0 0 w h)
- (gl:matrix-mode :projection)
- (gl:load-identity)
- (gl:ortho -50 50 -50 50 -1 1)
- (gl:matrix-mode :modelview)
- (gl:load-identity)
- (gl:rotate 35 1 1 0)
- (gl:rotate -45 0 1 50))
- (defun render ()
- (gl:clear :color-buffer)
- (gl:with-pushed-matrix
- (gl:color 1 0 0)
- (gl:rect -25 -25 25 25)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement