[CM] strange path behaviour in clm/dlocsig

[Bozelos Dimitris]

Hi all,

I do the following (using fedora 8 i386/emacs/slime/sbcl)

(let ((r 1.0)
      (path-1 (make-path :3d t
                 :polar t
                 :path '(((* 0.8  r) 45 45 1)
                    ((* 0.75 r) 45 45 1)
                    ((* 0.7  r) 45 45 1)
                    ((* 0.75 r) 45 45 1)
                    ((* 0.8  r) 45 45 1)))))
      (print path-1))

and I get

> #<OPEN-BEZIER-PATH {AEB2A71}>

so everything seems fine. But since it's a closed path I do

(let ((r 1.0)
       (path-1 (make-path :3d t
                  :polar t
                 :closed t
                  :path '(((* 0.8  r) 45 45 1)
                     ((* 0.75 r) 45 45 1)
                     ((* 0.7  r) 45 45 1)
                     ((* 0.75 r) 45 45 1)
                     ((* 0.8  r) 45 45 1)))))
       (print path-1))

(or use make-closed-path) and I have an error

> Argument X is not a NUMBER: (* 0.8 R)

And when I use a path in the first way (not defining it as closed), although the path is set, the same error comes when I use dlocsig

(multiple-value-bind (dloc beg end)
    (make-dlocsig :start-time start-time
                           :duration duration
                           :path path-1)
    ...)

Since I cannot find any obvious reason for this, does anyone knows why?
Thanx

Dimitris

       
---------------------------------
 Χρησιμοποιείτε Yahoo!
 Βαρεθήκατε τα ενοχλητικά μηνύ ματα (spam); Το Yahoo! Mail διαθέτει την καλύτερη δυνατή προστασία κατά των ενοχλητικών μηνυμάτων 
 http://login.yahoo.com/config/mail?.intl=gr 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20080323/2684d0a7/attachment.html>