[CM] strange path behaviour in clm/dlocsig

Bozelos Dimitris dbozelos at yahoo.gr
Sun, 23 Mar 2008 02:41:06 +0000 (GMT)


--0-1151703061-1206240066=:78812
Content-Type: text/plain; charset=iso-8859-7
Content-Transfer-Encoding: 8bit

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 
--0-1151703061-1206240066=:78812
Content-Type: text/html; charset=iso-8859-7
Content-Transfer-Encoding: 8bit

Hi all,<br><br>I do the following (using fedora 8 i386/emacs/slime/sbcl)<br><br>(let ((r 1.0)<br>&nbsp;&nbsp;&nbsp; &nbsp; (path-1 (make-path :3d t<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; :polar t<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; :path '(((* 0.8&nbsp; r) 45 45 1)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((* 0.75 r) 45 45 1)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((* 0.7&nbsp; r) 45 45 1)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((* 0.75 r) 45 45 1)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((* 0.8&nbsp; r) 45 45 1)))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (print path-1))<br><br>and I get<br><br>&gt; #&lt;OPEN-BEZIER-PATH {AEB2A71}&gt;<br><br>so everything
 seems fine. But since it's a closed path I do<br><br>(let ((r 1.0)<br> &nbsp;&nbsp;&nbsp; &nbsp; (path-1 (make-path :3d t<br> &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; :polar t<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :closed t<br> &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; :path '(((* 0.8&nbsp; r) 45 45 1)<br> &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((* 0.75 r) 45 45 1)<br> &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((* 0.7&nbsp; r) 45 45 1)<br> &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((* 0.75 r) 45 45 1)<br> &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((* 0.8&nbsp; r) 45 45 1)))))<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (print
 path-1))<br><br>(or use make-closed-path) and I have an error<br><br>&gt; Argument X is not a NUMBER: (* 0.8 R)<br><br>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<br><br>(multiple-value-bind (dloc beg end)<br>&nbsp;&nbsp;&nbsp; (make-dlocsig :start-time start-time<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :duration duration<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :path path-1)<br>&nbsp;&nbsp;&nbsp; ...)<br><br>Since I cannot find any obvious reason for this, does anyone knows why?<br>Thanx<br><br>Dimitris<br><p>&#32;



      <hr size=1><font size=-1 face=Arial> 
Χρησιμοποιείτε Yahoo!<br> 
Βαρεθήκατε τα ενοχλητικά μηνύ ματα (spam); Το Yahoo! Mail διαθέτει την καλύτερη δυνατή προστασία κατά των ενοχλητικών μηνυμάτων <br> 
<a href="http://login.yahoo.com/config/mail?.intl=gr">http://login.yahoo.com/config/mail?.intl=gr</a> </font>
--0-1151703061-1206240066=:78812--