common/additional-operations.ss
#lang scheme
(require "csg.ss"
         "operations.ss"
         "point.ss"
         "primitives.ss"
         "vector.ss")
(require "../utils.ss")

;(provide cylinder-from-to)
;(define (cylinder-from-to from to radius)

;; Nop. these should be seperated: vrotate, vtranslate, vscale (que faz mirror)
;; vtransform: transforms a vector in another...
;; First it rotates, then scales, then translates


(provide loft-objects)
(define (loft-objects . objects)
  (make-loft first
             objects
             rest
             ;; null? wasn't working...
             (lambda (l)
               (not (and (pair? l) (list? l))))))