]> git.jsancho.org Git - gacela.git/commitdiff
Turn and rotate meshes.
authorJavier Sancho <jsf@jsancho.org>
Sun, 22 Jul 2012 06:36:09 +0000 (08:36 +0200)
committerJavier Sancho <jsf@jsancho.org>
Sun, 22 Jul 2012 06:36:09 +0000 (08:36 +0200)
src/views.scm

index 63c162a9d954e4b2a9238b7a7aaefbb721a74539..2873bdb4398c6b80b808c57c61f4d51ef36ab8f9 100644 (file)
        (case option
          ((draw)
           (video:glmatrix-block
        (case option
          ((draw)
           (video:glmatrix-block
-           (video:rotate rx ry rz)
-           (video:translate x y z)
            (video:rotate ax ay az)
            (video:rotate ax ay az)
+           (video:translate x y z)
+           (video:rotate rx ry rz)
            (primitive)))
          ((translate)
           (set! x (+ x (car params)))
           (set! y (+ y (cadr params)))
           (set! z (+ z (caddr params))))
            (primitive)))
          ((translate)
           (set! x (+ x (car params)))
           (set! y (+ y (cadr params)))
           (set! z (+ z (caddr params))))
+         ((turn)
+          (set! ax (+ ax (car params)))
+          (set! ay (+ ay (cadr params)))
+          (set! az (+ az (caddr params))))
+         ((rotate)
+          (set! rx (+ rx (car params)))
+          (set! ry (+ ry (cadr params)))
+          (set! rz (+ rz (caddr params))))
          ((get-properties)
           (get-properties))
          ((get-property)
           (assoc-ref (get-properties) (car params))))))))
 
          ((get-properties)
           (get-properties))
          ((get-property)
           (assoc-ref (get-properties) (car params))))))))
 
-(define* (show-mesh mesh #:optional (view default-view))
+(define* (show mesh #:optional (view default-view))
   (let ((id (mesh 'get-property 'id)))
     (if (not (hash-ref view id))
        (hash-set! view id mesh))))
 
   (let ((id (mesh 'get-property 'id)))
     (if (not (hash-ref view id))
        (hash-set! view id mesh))))
 
-(define* (hide-mesh mesh #:optional (view default-view))
+(define* (hide mesh #:optional (view default-view))
   (hash-remove! view (mesh 'get-property 'id)))
 
 (define* (translate mesh x y #:optional (z 0))
   (mesh 'translate x y z)
   mesh)
 
   (hash-remove! view (mesh 'get-property 'id)))
 
 (define* (translate mesh x y #:optional (z 0))
   (mesh 'translate x y z)
   mesh)
 
+(define (turn mesh . params)
+  (if (>= (length params) 3)
+      (apply mesh (cons 'turn params))
+      (mesh 'turn 0 0 (car params)))
+  mesh)
+
+(define (rotate mesh . params)
+  (if (>= (length params) 3)
+      (apply mesh (cons 'rotate params))
+      (mesh 'rotate 0 0 (car params)))
+  mesh)
+
 (define-macro (define-primitives . symbols)
   (cond ((null? symbols)
         `#t)
 (define-macro (define-primitives . symbols)
   (cond ((null? symbols)
         `#t)