(module gladia (
		prim:dot
		)
  
  (import scheme)

  ;;;Import necessesary eggs
  (require-extension random-bsd)
  (require-extension mathh-consts)
  (require-extension fmt)

  ;;;Primitives

  (define (prim:dot point)
    ;;Draws a dot at the specified co-ordinate
    (fmt #f
	 nl
	 "PU"
	 nl
	 "PD" (car point) "," (cdr point) ";"))

  ;(define (prim:path points)
   ; (define point-list
    ;  (aux:make-point-list))

  (define (aux:make-point-list points #!optional (internal-list '()))
    (if (not (null? points))
	(aux:make-point-list (cdr points)
			     (cons (cdr (car points))
				   (cons (car (car points))
					 internal-list)))
	(reverse internal-list)))

  )