backends/autocad/operations.ss
#lang scheme
(require "base.ss")
(require "marshal.ss")
(require "com-utils.ss")

(provide prim:move
         prim:rotate3d)

(define (prim:move object from to)
  (invoke Move
          (marshal object)
          (marshal from)
          (marshal to)))

(define (prim:rotate3d object p1 p2 angle)
  (invoke Rotate3D
          (marshal object)
          (marshal p1)
          (marshal p2)
          (marshal angle)))

;(define (prim:scale object