arrows & your answer

• To: SWM@stony-brook.scrc.symbolics.com
• Subject: arrows & your answer
• From: Ralph.Hensel@gmd.de
• Date: Fri, 07 Aug 92 09:26:03 +0200
• Cc: clim@BBN.COM

Hi,
I`m working on Sun with Framz Allegro 4.01 and CLIM 1.0

You wrote that the following will work on SUN as draw-arrow:

(in-package :clim)
(define-graphics-operation draw-arrow (x1 y1 x2 y2
                                       &key (from-head nil) (to-head t)
                                            (head-length 10) (head-width 5))
  :arguments ((point x1 y1 x2 y2))
  :drawing-options :line-cap
  :method-body
    (with-transformed-arguments
      (let* ((dx (- x2 x1))
             (dy (- y2 y1))
             (norm (if (zerop dx)
                       (if (zerop dy) nil (/ 1.0 (abs dy)))
                       (if (zerop dy) (/ 1.0 (abs dx)) (/ (sqrt (+ (* dx dx) (* dy dy))))))))
        (when norm
          (let* ((length-norm (* head-length norm))
                 (ldx (* dx length-norm))
                 (ldy (* dy length-norm))
                 (base-norm (* head-width norm 0.5))
                 (bdx (* dy base-norm))
                 (bdy (* dx base-norm))
                 (ink (medium-ink stream))
                 (line-style (medium-line-style stream)))
            (draw-line-internal stream 0 0 x1 y1 x2 y2 ink line-style)
            (when from-head
              (let ((xa (+ x1 ldx)) (ya (+ y1 ldy)))
                (with-stack-list (points x1 y1 (+ xa bdx) (- ya bdy) (- xa bdx) (+ ya bdy))
                  (draw-polygon-internal stream 0 0 points t ink nil))
                (setq x1 xa y1 ya)))
            (when to-head
              (let ((xa (- x2 ldx)) (ya (- y2 ldy)))
                (with-stack-list (points x2 y2 (+ xa bdx) (- ya bdy) (- xa bdx) (+ ya bdy))
                  (draw-polygon-internal stream 0 0 points t ink nil)
                  (setq x2 xa y2 ya)))))))))

But what is (with-transformed-arguments ...). It seems that it doesn't work under CLIM 1.0
 
Ralph Hensel                            
German National Research Center for Computer Science (GMD-FIT.KI)
P.O. Box 1316, D-5205 Sankt Augustin, Germany
mail:hensel@gmdzi.gmd.de fax:+49-2241-14-2889 phone:+49-2241-14-1

• arrows & your answer
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>

• Prev: updating-output and format-graph-from-root
• Next: updating-output and recursive use of formatting-graph-from-root
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)