A subclass of
pinboard-object
that displays a line drawn around two edges of the area enclosed by the pinboard object.
A subclass of line-pinboard-object which displays a line around the edge of the pinboard object rather than diagonally.
type can be one of two values.
Draw top-left to bottom-left to bottom-right.
Draw top-left to top-right to bottom-right.
The main use of this class is to produce graphs with right-angled edges rather than diagonal ones.
(capi:contain
(make-instance
'capi:right-angle-line-pinboard-object
:start-x 20 :start-y 20
:end-x 280 :end-y 100))
(capi:contain
(make-instance
'capi:right-angle-line-pinboard-object
:start-x 20 :start-y 120
:end-x 280 :end-y 200
:type :horizontal-first))