arrow-pinboard-object

arrow-pinboard-object Class

Summary

A pinboard-object that draws itself as an arrow.

Package

capi

Superclasses

line-pinboard-object

Subclasses

double-headed-arrow-pinboard-object
labelled-arrow-pinboard-object

Initargs

`:head`	A keyword specifying the position of the arrowhead on the line.
`:head-direction`	A keyword specifying the direction of the arrowhead.
`:head-length`	The length of the arrowhead.
`:head-breadth`	The breadth of the arrowhead, or `nil`.
`:head-graphics-args`
	A graphics args plist.

Description

An instance of the class arrow-pinboard-object is a pinboard-object that draws itself as an arrow.

head must be :end, :middle or:start. The default is :end.

head-direction must be :forwards, :backwards or :both. The default is :forwards.

head-length is the length of the arrowhead in pixels. It defaults to 12.

head-breadth is the breadth of the arrowhead in pixels, or nil which means that the breadth is half of head-length. The default is nil.

head-graphics-args is a plist of graphics state parameters and values used when drawing the arrow head. For information about the graphics state, see graphics-state.

Examples

(capi:contain
 (make-instance
  'capi:pinboard-layout
  :description
  (list
   (make-instance 'capi:arrow-pinboard-object 
                  :start-x 5 :start-y 10 
                  :end-x 105 :end-y 60 )
   (make-instance 'capi:arrow-pinboard-object 
                  :start-x 5 :start-y 110 
                  :end-x 105 :end-y 160 
                  :head :middle)
   (make-instance 'capi:arrow-pinboard-object
                  :start-x 5 :start-y 210 
                  :end-x 105 :end-y 260
                  :head-direction :both )
   (make-instance 'capi:arrow-pinboard-object 
                  :start-x 5 :start-y 310 
                  :end-x 105 :end-y 360
                  :head-graphics-args 
                  '(:foreground :pink)
                  :head-length 30)
   (make-instance 'capi:arrow-pinboard-object 
                  :start-x 5 :start-y 410 
                  :end-x 105 :end-y 460  
                  :head-length 30 :head-breadth 5)
   (make-instance 'capi:arrow-pinboard-object 
                  :start-x 5 :start-y 510 
                  :end-x 105 :end-y 560 
                  :head-breadth 10 
                  :head-direction :backwards))
  :visible-min-width 120
  :visible-min-height 620))