[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> (path-1 (make-path :3d t<br> :polar t<br> :path '(((* 0.8 r) 45 45 1)<br> ((* 0.75 r) 45 45 1)<br> ((* 0.7 r) 45 45 1)<br> ((* 0.75 r) 45 45 1)<br> ((* 0.8 r) 45 45 1)))))<br> (print path-1))<br><br>and I get<br><br>> #<OPEN-BEZIER-PATH {AEB2A71}><br><br>so everything
seems fine. But since it's a closed path I do<br><br>(let ((r 1.0)<br> (path-1 (make-path :3d t<br> :polar t<br> :closed t<br> :path '(((* 0.8 r) 45 45 1)<br> ((* 0.75 r) 45 45 1)<br> ((* 0.7 r) 45 45 1)<br> ((* 0.75 r) 45 45 1)<br> ((* 0.8 r) 45 45 1)))))<br> (print
path-1))<br><br>(or use make-closed-path) and I have an error<br><br>> 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> (make-dlocsig :start-time start-time<br> :duration duration<br> :path path-1)<br> ...)<br><br>Since I cannot find any obvious reason for this, does anyone knows why?<br>Thanx<br><br>Dimitris<br><p> 
<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--