A subclass of pinboard-object that displays a line drawn around two edges of the area enclosed by the pinboard object.
capi
:type |
The type of line. |
The class right-angle-line-pinboard-object
is a 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.
:vertical-first | Draw top-left to bottom-left to bottom-right. |
:horizontal-first | 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))
CAPI User Guide and Reference Manual (Macintosh version) - 01 Dec 2021 19:31:27