(defpackage "SILEX-PROTO/GEOMETRY" (:documentation "Geometry Substrate") ;; Regions (:export "REGION" ; defprotoclass "REGIONP" ; defpredicate "PATH" ; defprotoclass "PATHP" ; defpredicate "AREA" ; defprotoclass "AREAP" ; defpredicate "COORDINATE" ; deftype "COORDINATE" ; defun "+EVERYWHERE+" ; defconst "+NOWHERE+" ; defconst "REGION-EQUAL" ; defgeneric "REGION-CONTAINS-REGION-P" ; defgeneric "REGION-CONTAINS-POSITION-P" ; defgeneric "REGION-INTERSECTS-REGION-P" ; defgeneric "REGION-SET" ; defprotoclass "REGION-SET-P" ; defpredicate "STANDARD-REGION-UNION" ; defclass "STANDARD-REGION-INTERSECTION" ; defclass "STANDARD-REGION-DIFFERENCE" ; defclass "REGION-SET-REGIONS" ; defgeneric "MAP-OVER-REGION-SET-REGIONS" ; defgeneric "REGION-UNION" ; defgeneric "REGION-INTERSECTION" ; defgeneric "REGION-DIFFERENCE" ; defgeneric "POINT" ; defprotoclass "POINTP" ; defpredicate "STANDARD-POINT" ; defclass "MAKE-POINT" ; defun "POINT-POSITION" ; defgeneric "POINT-X" ; defgeneric "POINT-Y" ; defgeneric "POLYLINE" ; defprotoclass "POLYLINEP" ; defpredicate "STANDARD-POLYLINE" ; defclass "MAKE-POLYLINE" ; defun "MAKE-POLYLINE*" ; defun "POLYGON" ; defprotoclass "POLYGONP" ; defpredicate "STANDARD-POLYGON" ; defclass "MAKE-POLYGON" ; defun "MAKE-POLYGON*" ; defun "POLYGON-POINTS" ; defgeneric "MAP-OVER-POLYGON-COORDINATES" ; defgeneric "MAP-OVER-POLYGON-SEGMENTS" ; defgeneric "POLYLINE-CLOSED" ; defgeneric "LINE" ; defprotoclass "LINEP" ; defpredicate "STANDARD-LINE" ; defclass "MAKE-LINE" ; defun "MAKE-LINE*" ; defun "LINE-START-POINT*" ; defgeneric "LINE-END-POINT*" ; defgeneric "LINE-START-POINT" ; defgeneric "LINE-END-POINT" ; defgeneric "RECTANGLE" ; defprotoclass "RECTANGLEP" ; defpredicate "STANDARD-RECTANGLE" ; defclass "MAKE-RECTANGLE" ; defun "MAKE-RECTANGLE*" ; defun "RECTANGLE-EDGES*" ; defgeneric "RECTANGLE-MIN-POINT" ; defgeneric "RECTANGLE-MAX-POINT" ; defgeneric "RECTANGLE-MIN-X" ; defgeneric "RECTANGLE-MIN-Y" ; defgeneric "RECTANGLE-MAX-X" ; defgeneric "RECTANGLE-MAX-Y" ; defgeneric "RECTANGLE-WIDTH" ; defgeneric "RECTANGLE-HEIGHT" ; defgeneric "RECTANGLE-SIZE" ; defgeneric "ELLIPSE" ; defprotoclass "ELLIPSEP" ; defpredicate "STANDARD-ELLIPSE" ; defclass "MAKE-ELLIPSE" ; defun "MAKE-ELLIPSE*" ; defun "ELLIPTICAL-ARC" ; defprotoclass "ELLIPTICAL-ARC-P" ; defpredicate "STANDARD-ELLIPTICAL-ARC" ; defclass "MAKE-ELLIPTICAL-ARC" ; defun "MAKE-ELLIPTICAL-ARC*" ; defun "ELLIPSE-CENTER-POINT*" ; defgeneric "ELLIPSE-CENTER-POINT" ; defgeneric "ELLIPSE-RADII" ; defgeneric "ELLIPSE-START-ANGLE" ; defgeneric "ELLIPSE-END-ANGLE" ; defgeneric ) ;; Bounding Rectangles (:export "BOUNDING-RECTANGLE" ; defprotoclass "BOUNDING-RECTANGLE-P" ; defpredicate "STANDARD-BOUNDING-RECTANGLE" ; defclass "MAKE-BOUNDING-RECTANGLE" ; defun "BOUNDING-RECTANGLE*" ; defgeneric "BOUNDING-RECTANGLE" ; defgeneric "WITH-BOUNDING-RECTANGLE*" ; defmacro "BOUNDING-RECTANGLE-POSITION" ; defgeneric "BOUNDING-RECTANGLE-MIN-X" ; defgeneric "BOUNDING-RECTANGLE-MIN-Y" ; defgeneric "BOUNDING-RECTANGLE-MAX-X" ; defgeneric "BOUNDING-RECTANGLE-MAX-Y" ; defgeneric "BOUNDING-RECTANGLE-WIDTH" ; defgeneric "BOUNDING-RECTANGLE-HEIGHT" ; defgeneric "BOUNDING-RECTANGLE-SIZE" ; defgeneric ) ;; Affine Transformations (:export "TRANSFORMATION" ; defprotoclass "TRANSFORMATIONP" ; defpredicate "+IDENTITY-TRANSFORMATION+" ; defconst "TRANSFORMATION-ERROR" ; deferror "TRANSFORMATION-UNDERSPECIFIED" ; deferror "REFLECTION-UNDERSPECIFIED" ; deferror "SINGULAR-TRANSFORMATION" ; deferror "MAKE-TRANSLATION-TRANSFORMATION" ; defun "MAKE-ROTATION-TRANSFORMATION" ; defun "MAKE-ROTATION-TRANSFORMATION*" ; defun "MAKE-SCALING-TRANSFORMATION" ; defun "MAKE-SCALING-TRANSFORMATION*" ; defun "MAKE-REFLECTION-TRANSFORMATION" ; defun "MAKE-REFLECTION-TRANSFORMATION*" ; defun "MAKE-TRANSFORMATION" ; defun "MAKE-3-POINT-TRANSFORMATION" ; defun "MAKE-3-POINT-TRANSFORMATION*" ; defun "TRANSFORMATION-EQUAL" ; defgeneric "IDENTITY-TRANSFORMATION-P" ; defgeneric "INVERTIBLE-TRANSFORMATION-P" ; defgeneric "TRANSLATION-TRANSFORMATION-P" ; defgeneric "REFLECTION-TRANSFORMATION-P" ; defgeneric "RIGID-TRANSFORMATION-P" ; defgeneric "EVEN-SCALING-TRANSFORMATION-P" ; defgeneric "SCALING-TRANSFORMATION-P" ; defgeneric "RECTILINEAR-TRANSFORMATION-P" ; defgeneric "COMPOSE-TRANSFORMATIONS" ; defgeneric "INVERT-TRANSFORMATION" ; defgeneric "COMPOSE-TRANSLATION-WITH-TRANSFORMATION" ; defun "COMPOSE-SCALING-WITH-TRANSFORMATION" ; defun "COMPOSE-ROTATION-WITH-TRANSFORMATION" ; defun "COMPOSE-TRANSFORMATION-WITH-TRANSLATION" ; defun "COMPOSE-TRANSFORMATION-WITH-SCALING" ; defun "COMPOSE-TRANSFORMATION-WITH-ROTATION" ; defun "TRANSFORM-REGION" ; defgeneric "UNTRANSFORM-REGION" ; defgeneric "TRANSFORM-POSITION" ; defgeneric "UNTRANSFORM-POSITION" ; defgeneric "TRANSFORM-DISTANCE" ; defgeneric "UNTRANSFORM-DISTANCE" ; defgeneric "TRANSFORM-RECTANGLE*" ; defgeneric "UNTRANSFORM-RECTANGLE*" ; defgeneric )) (defpackage "SILEX-PROTO/WINDOWING" (:documentation "Windowing Substrate") ;; Properties of Sheets (:export "SHEET" ; defprotoclass "SHEETP" ; defpredicate "BASIC-SHEET" ; defclass "SHEET-PARENT" ; defgeneric "SHEET-CHILDREN" ; defgeneric "SHEET-ADOPT-CHILD" ; defgeneric "SHEET-DISOWN-CHILD" ; defgeneric "SHEET-SIBLINGS" ; defgeneric "SHEET-ENABLED-CHILDREN" ; defgeneric "SHEET-ANCESTOR-P" ; defgeneric "RAISE-SHEET" ; defgeneric "BURY-SHEET" ; defgeneric "REORDER-SHEETS" ; defgeneric "SHEET-ENABLED-P" ; defgeneric ;;"(SETF SHEET-ENABLED-P)" ; defgeneric "SHEET-VIEWABLE-P" ; defgeneric "SHEET-OCCLUDING-SHEETS" ; defgeneric "MAP-OVER-SHEETS" ; defgeneric "SHEET-PARENT-MIXIN" ; defclass "SHEET-LEAF-MIXIN" ; defclass "SHEET-SINGLE-CHILD-MIXIN" ; defclass "SHEET-MULTIPLE-CHILD-MIXIN" ; defclass "SHEET-TRANSFORMATION" ; defgeneric ;;"(SETF SHEET-TRANSFORMATION)" ; defgeneric "SHEET-REGION" ; defgeneric ;;"(SETF SHEET-REGION)" ; defgeneric "MOVE-SHEET" ; defgeneric "RESIZE-SHEET" ; defgeneric "MOVE-AND-RESIZE-SHEET" ; defgeneric "MAP-SHEET-POSITION-TO-PARENT" ; defgeneric "MAP-SHEET-POSITION-TO-CHILD" ; defgeneric "MAP-SHEET-RECTANGLE*-TO-PARENT" ; defgeneric "MAP-SHEET-RECTANGLE*-TO-CHILD" ; defgeneric "MAP-OVER-SHEETS-CONTAINING-POSITION" ; defgeneric "MAP-OVER-SHEETS-OVERLAPPING-REGION" ; defgeneric "CHILD-CONTAINING-POSITION" ; defgeneric "CHILDREN-OVERLAPPING-REGION" ; defgeneric "CHILDREN-OVERLAPPING-RECTANGLE*" ; defgeneric "SHEET-DELTA-TRANSFORMATION" ; defgeneric "SHEET-ALLOCATED-REGION" ; defgeneric "SHEET-IDENTITY-TRANSFORMATION-MIXIN" ; defclass "SHEET-TRANSLATION-MIXIN" ; defclass "SHEET-Y-INVERTING-TRANSFORMATION-MIXIN" ; defclass "SHEET-TRANSFORMATION-MIXIN" ; defclass ) ;; Sheet Protocols (:export "SHEET-EVENT-QUEUE" ; defgeneric "PROCESS-NEXT-EVENT" ; defgeneric "PORT-KEYBOARD-INPUT-FOCUS" ; defgeneric ;;"(SETF PORT-KEYBOARD-INPUT-FOCUS)" ; defgeneric "DISTRIBUTE-EVENT" ; defgeneric "DISPATCH-EVENT" ; defgeneric "QUEUE-EVENT" ; defgeneric "HANDLE-EVENT" ; defgeneric "EVENT-READ" ; defgeneric "EVENT-READ-NO-HANG" ; defgeneric "EVENT-PEEK" ; defgeneric "EVENT-UNREAD" ; defgeneric "EVENT-LISTEN" ; defgeneric "STANDARD-SHEET-INPUT-MIXIN" ; defclass "IMMEDIATE-SHEET-INPUT-MIXIN" ; defclass "SHEET-MUTE-INPUT-MIXIN" ; defclass "DELEGATE-SHEET-INPUT-MIXIN" ; defclass "DELEGATE-SHEET-DELEGATE" ; defgeneric ;;"(SETF DELEGATE-SHEET-DELEGATE)" ; defgeneric "EVENT" ; defprotoclass "EVENTP" ; defpredicate "EVENT-TIMESTAMP" ; defgeneric "EVENT-TYPE" ; defgeneric "DEVICE-EVENT" ; defclass "EVENT-SHEET" ; defgeneric "EVENT-MODIFIER-STATE" ; defgeneric "KEYBOARD-EVENT" ; defclass "KEYBOARD-EVENT-KEY-NAME" ; defgeneric "KEYBOARD-EVENT-CHARACTER" ; defgeneric "KEY-PRESS-EVENT" ; defclass "KEY-RELEASE-EVENT" ; defclass "POINTER-EVENT" ; defclass "POINTER-EVENT-X" ; defgeneric "POINTER-EVENT-Y" ; defgeneric "POINTER-EVENT-NATIVE-X" ; defgeneric "POINTER-EVENT-NATIVE-Y" ; defgeneric "POINTER-EVENT-POINTER" ; defgeneric "POINTER-BUTTON-EVENT" ; defclass "POINTER-EVENT-BUTTON" ; defgeneric "POINTER-BUTTON-PRESS-EVENT" ; defclass "POINTER-BUTTON-RELEASE-EVENT" ; defclass "POINTER-BUTTON-HOLD-EVENT" ; defclass "POINTER-CLICK-EVENT" ; defclass "POINTER-DOUBLE-CLICK-EVENT" ; defclass "POINTER-CLICK-AND-HOLD-EVENT" ; defclass "POINTER-MOTION-EVENT" ; defclass "POINTER-BOUNDARY-EVENT" ; defclass "POINTER-BOUNDARY-EVENT-KIND" ; defgeneric "POINTER-ENTER-EVENT" ; defclass "POINTER-EXIT-EVENT" ; defclass "WINDOW-EVENT" ; defclass "WINDOW-EVENT-REGION" ; defgeneric "WINDOW-EVENT-NATIVE-REGION" ; defgeneric "WINDOW-EVENT-MIRRORED-SHEET" ; defgeneric "WINDOW-CONFIGURATION-EVENT" ; defclass "WINDOW-REPAINT-EVENT" ; defclass "WINDOW-MANAGER-EVENT" ; defclass "WINDOW-MANAGER-DELETE-EVENT" ; defclass "TIMER-EVENT" ; defclass "+POINTER-LEFT-BUTTON+" ; defconst "+POINTER-MIDDLE-BUTTON+" ; defconst "+POINTER-RIGHT-BUTTON+" ; defconst "+SHIFT-KEY+" ; defconst "+CONTROL-KEY+" ; defconst "+META-KEY+" ; defconst "+SUPER-KEY+" ; defconst "+HYPER-KEY+" ; defconst "MEDIUM" ; defprotoclass "MEDIUMP" ; defpredicate "BASIC-MEDIUM" ; defclass "MEDIUM-FOREGROUND" ; defgeneric ;;"(SETF MEDIUM-FOREGROUND)" ; defgeneric "MEDIUM-BACKGROUND" ; defgeneric ;;"(SETF MEDIUM-BACKGROUND)" ; defgeneric "MEDIUM-INK" ; defgeneric ;;"(SETF MEDIUM-INK)" ; defgeneric "MEDIUM-TRANSFORMATION" ; defgeneric ;;"(SETF MEDIUM-TRANSFORMATION)" ; defgeneric "MEDIUM-CLIPPING-REGION" ; defgeneric ;;"(SETF MEDIUM-CLIPPING-REGION)" ; defgeneric "MEDIUM-LINE-STYLE" ; defgeneric ;;"(SETF MEDIUM-LINE-STYLE)" ; defgeneric "MEDIUM-TEXT-STYLE" ; defgeneric ;;"(SETF MEDIUM-TEXT-STYLE)" ; defgeneric "MEDIUM-DEFAULT-TEXT-STYLE" ; defgeneric ;;"(SETF MEDIUM-DEFAULT-TEXT-STYLE)" ; defgeneric "MEDIUM-MERGED-TEXT-STYLE" ; defgeneric "STANDARD-SHEET-OUTPUT-MIXIN" ; defclass "SHEET-MUTE-OUTPUT-MIXIN" ; defclass "SHEET-WITH-MEDIUM-MIXIN" ; defclass "PERMANENT-MEDIUM-SHEET-OUTPUT-MIXIN" ; defclass "TEMPORARY-MEDIUM-SHEET-OUTPUT-MIXIN" ; defclass "WITH-SHEET-MEDIUM" ; defmacro "WITH-SHEET-MEDIUM-BOUND" ; defmacro "SHEET-MEDIUM" ; defgeneric "MEDIUM-SHEET" ; defgeneric "MEDIUM-DRAWABLE" ; defgeneric "PORT" ; defmethod "ALLOCATE-MEDIUM" ; defgeneric "DEALLOCATE-MEDIUM" ; defgeneric "MAKE-MEDIUM" ; defgeneric "ENGRAFT-MEDIUM" ; defgeneric "DEGRAFT-MEDIUM" ; defgeneric "QUEUE-REPAINT" ; defgeneric "HANDLE-REPAINT" ; defgeneric "REPAINT-SHEET" ; defgeneric "STANDARD-REPAINTING-MIXIN" ; defclass "IMMEDIATE-REPAINTING-MIXIN" ; defclass "SHEET-MUTE-REPAINTING-MIXIN" ; defclass "NOTE-SHEET-GRAFTED" ; defgeneric "NOTE-SHEET-DEGRAFTED" ; defgeneric "NOTE-SHEET-ADOPTED" ; defgeneric "NOTE-SHEET-DISOWNED" ; defgeneric "NOTE-SHEET-ENABLED" ; defgeneric "NOTE-SHEET-DISABLED" ; defgeneric "NOTE-SHEET-REGION-CHANGED" ; defgeneric "NOTE-SHEET-TRANSFORMATION-CHANGED" ; defgeneric ) ;; Ports, Grafts, and Mirrored Sheets (:export "PORT" ; defprotoclass "PORTP" ; defpredicate "BASIC-PORT" ; defclass "FIND-PORT" ; defun "*DEFAULT-SERVER-PATH*" ; defvar "PORT" ; defgeneric "WITH-PORT-LOCKED" ; defmacro "MAP-OVER-PORTS" ; defun "PORT-SERVER-PATH" ; defgeneric "PORT-NAME" ; defgeneric "PORT-TYPE" ; defgeneric "PORT-PROPERTIES" ; defgeneric ;;"(SETF PORT-PROPERTIES)" ; defgeneric "RESTART-PORT" ; defgeneric "DESTROY-PORT" ; defgeneric "SHEET-GRAFTED-P" ; defgeneric "FIND-GRAFT" ; defun "GRAFT" ; defgeneric "MAP-OVER-GRAFTS" ; defun "WITH-GRAFT-LOCKED" ; defmacro "GRAFT-ORIENTATION" ; defgeneric "GRAFT-UNITS" ; defgeneric "GRAFT-WIDTH" ; defgeneric "GRAFT-HEIGHT" ; defgeneric "GRAFT-PIXELS-PER-MILLIMETER" ; defun "GRAFT-PIXELS-PER-INCH" ; defun "MIRRORED-SHEET-MIXIN" ; defclass "SHEET-DIRECT-MIRROR" ; defgeneric "SHEET-MIRRORED-ANCESTOR" ; defgeneric "SHEET-MIRROR" ; defgeneric "REALIZE-MIRROR" ; defgeneric "DESTROY-MIRROR" ; defgeneric "RAISE-MIRROR" ; defgeneric "BURY-MIRROR" ; defgeneric "PORT" ; defmethod "SHEET-NATIVE-TRANSFORMATION" ; defgeneric "SHEET-NATIVE-REGION" ; defgeneric "SHEET-DEVICE-TRANSFORMATION" ; defgeneric "SHEET-DEVICE-REGION" ; defgeneric "INVALIDATE-CACHED-TRANSFORMATIONS" ; defgeneric "INVALIDATE-CACHED-REGIONS" ; defgeneric )) (defpackage "SILEX-PROTO/DRAWING" (:documentation "Sheet and Medium Output Facilities") ;; Drawing Options (:export "MEDIUM-FOREGROUND" ; defgeneric "MEDIUM-BACKGROUND" ; defgeneric ;;"(SETF MEDIUM-FOREGROUND)" ; defgeneric ;;"(SETF MEDIUM-BACKGROUND)" ; defgeneric "MEDIUM-INK" ; defgeneric ;;"(SETF MEDIUM-INK)" ; defgeneric "MEDIUM-TRANSFORMATION" ; defgeneric ;;"(SETF MEDIUM-TRANSFORMATION)" ; defgeneric "MEDIUM-CLIPPING-REGION" ; defgeneric ;;"(SETF MEDIUM-CLIPPING-REGION)" ; defgeneric "MEDIUM-LINE-STYLE" ; defgeneric ;;"(SETF MEDIUM-LINE-STYLE)" ; defgeneric "MEDIUM-DEFAULT-TEXT-STYLE" ; defgeneric ;;"(SETF MEDIUM-DEFAULT-TEXT-STYLE)" ; defgeneric "MEDIUM-TEXT-STYLE" ; defgeneric ;;"(SETF MEDIUM-TEXT-STYLE)" ; defgeneric "MEDIUM-CURRENT-TEXT-STYLE" ; defgeneric "WITH-DRAWING-OPTIONS" ; defmacro "INVOKE-WITH-DRAWING-OPTIONS" ; defgeneric "WITH-TRANSLATION" ; defmacro "WITH-SCALING" ; defmacro "WITH-ROTATION" ; defmacro "WITH-IDENTITY-TRANSFORMATION" ; defmacro "WITH-LOCAL-COORDINATES" ; defmacro "WITH-FIRST-QUADRANT-COORDINATES" ; defmacro "LINE-STYLE" ; defprotoclass "LINE-STYLE-P" ; defpredicate "STANDARD-LINE-STYLE" ; defclass "MAKE-LINE-STYLE" ; defun "LINE-STYLE-UNIT" ; defgeneric "LINE-STYLE-THICKNESS" ; defgeneric "LINE-STYLE-JOINT-SHAPE" ; defgeneric "LINE-STYLE-CAP-SHAPE" ; defgeneric "LINE-STYLE-DASHES" ; defgeneric "MAKE-CONTRASTING-DASH-PATTERNS" ; defun "CONTRASTING-DASH-PATTERN-LIMIT" ; defgeneric ) ;; Text Styles (:export "TEXT-STYLE" ; defprotoclass "TEXT-STYLE-P" ; defpredicate "STANDARD-TEXT-STYLE" ; defclass "MAKE-TEXT-STYLE" ; defun "*DEFAULT-TEXT-STYLE*" ; defconst "*UNDEFINED-TEXT-STYLE*" ; defconst "TEXT-STYLE-COMPONENTS" ; defgeneric "TEXT-STYLE-FAMILY" ; defgeneric "TEXT-STYLE-FACE" ; defgeneric "TEXT-STYLE-SIZE" ; defgeneric "PARSE-TEXT-STYLE" ; defun "MERGE-TEXT-STYLES" ; defgeneric "TEXT-STYLE-ASCENT" ; defgeneric "TEXT-STYLE-DESCENT" ; defgeneric "TEXT-STYLE-HEIGHT" ; defgeneric "TEXT-STYLE-WIDTH" ; defgeneric "TEXT-STYLE-FIXED-WIDTH-P" ; defgeneric "TEXT-SIZE" ; defgeneric "WITH-TEXT-STYLE" ; defmacro "INVOKE-WITH-TEXT-STYLE" ; defgeneric "WITH-TEXT-FAMILY" ; defmacro "WITH-TEXT-FACE" ; defmacro "WITH-TEXT-SIZE" ; defmacro "TEXT-STYLE-MAPPING" ; defgeneric ;;"(SETF TEXT-STYLE-MAPPING)" ; defgeneric "MAKE-DEVICE-FONT-TEXT-STYLE" ; defun ) ;; Graphics (:export "DRAW-POINT" ; defun "DRAW-POINT*" ; defun "DRAW-POINTS" ; defun "DRAW-POINTS*" ; defun "DRAW-LINE" ; defun "DRAW-LINE*" ; defun "DRAW-LINES" ; defun "DRAW-LINES*" ; defun "DRAW-POLYGON" ; defun "DRAW-POLYGON*" ; defun "DRAW-RECTANGLE" ; defun "DRAW-RECTANGLE*" ; defun "DRAW-RECTANGLES" ; defun "DRAW-RECTANGLES*" ; defun "DRAW-ELLIPSE" ; defun "DRAW-ELLIPSE*" ; defun "DRAW-CIRCLE" ; defun "DRAW-CIRCLE*" ; defun "DRAW-TEXT" ; defun "DRAW-TEXT*" ; defun "DRAW-ARROW" ; defun "DRAW-ARROW*" ; defun "DRAW-OVAL" ; defun "DRAW-OVAL*" ; defun "ALLOCATE-PIXMAP" ; defgeneric "DEALLOCATE-PIXMAP" ; defgeneric "PIXMAP-WIDTH" ; defgeneric "PIXMAP-HEIGHT" ; defgeneric "PIXMAP-DEPTH" ; defgeneric "COPY-TO-PIXMAP" ; defun "COPY-FROM-PIXMAP" ; defun "COPY-AREA" ; defgeneric "MEDIUM-COPY-AREA" ; defgeneric "WITH-OUTPUT-TO-PIXMAP" ; defmacro "MEDIUM-DRAW-POINT*" ; defgeneric "MEDIUM-DRAW-POINTS*" ; defgeneric "MEDIUM-DRAW-LINE*" ; defgeneric "MEDIUM-DRAW-LINES*" ; defgeneric "MEDIUM-DRAW-POLYGON*" ; defgeneric "MEDIUM-DRAW-RECTANGLE*" ; defgeneric "MEDIUM-DRAW-RECTANGLES*" ; defgeneric "MEDIUM-DRAW-ELLIPSE*" ; defgeneric "MEDIUM-DRAW-TEXT*" ; defgeneric "MEDIUM-FINISH-OUTPUT" ; defgeneric "MEDIUM-FORCE-OUTPUT" ; defgeneric "MEDIUM-CLEAR-AREA" ; defgeneric "MEDIUM-BEEP" ; defgeneric ) ;; Drawing in Color (:export "DESIGN" ; defprotoclass "DESIGNP" ; defpredicate "COLOR" ; defprotoclass "COLORP" ; defpredicate "MAKE-RGB-COLOR" ; defun "MAKE-IHS-COLOR" ; defun "MAKE-GRAY-COLOR" ; defun "COLOR-RGB" ; defgeneric "COLOR-IHS" ; defgeneric "+RED+" ; defconst "+GREEN+" ; defconst "+BLUE+" ; defconst "+CYAN+" ; defconst "+MAGENTA+" ; defconst "+YELLOW+" ; defconst "+BLACK+" ; defconst "+WHITE+" ; defconst "MAKE-CONTRASTING-INKS" ; defun "CONTRASTING-INKS-LIMIT" ; defgeneric "OPACITY" ; defprotoclass "OPACITYP" ; defpredicate "MAKE-OPACITY" ; defun "+TRANSPARENT-INK+" ; defconst "OPACITY-VALUE" ; defgeneric "+FOREGROUND-INK+" ; defconst "+BACKGROUND-INK+" ; defconst "MAKE-FLIPPING-INK" ; defun "+FLIPPING-INK+" ; defconst ) ;; General Designs (:export "COMPOSE-OVER" ; defgeneric "COMPOSE-IN" ; defgeneric "COMPOSE-OUT" ; defgeneric "MAKE-PATTERN" ; defun "PATTERN-WIDTH" ; defgeneric "PATTERN-HEIGHT" ; defgeneric "MAKE-STENCIL" ; defun "MAKE-RECTANGULAR-TILE" ; defun "DRAW-DESIGN" ; defgeneric "DRAW-PATTERN*" ; defun )) ;;; X11 color names - some are not in the spec - mikemac ;;; Most, not some. See generated-named-colors.lisp -- jd 2026-07-31 (defpackage "SILEX-PROTO/EXTRA-COLORS" (:import-from "SILEX-PROTO/DRAWING" "+BLACK+" "+WHITE+" "+RED+" "+GREEN+" "+BLUE+" "+CYAN+" "+MAGENTA+" "+YELLOW+") (:export "+SNOW+" "+GHOST-WHITE+" "+GHOSTWHITE+" "+WHITE-SMOKE+" "+WHITESMOKE+" "+GAINSBORO+" "+FLORAL-WHITE+" "+FLORALWHITE+" "+OLD-LACE+" "+OLDLACE+" "+LINEN+" "+ANTIQUE-WHITE+" "+ANTIQUEWHITE+" "+PAPAYA-WHIP+" "+PAPAYAWHIP+" "+BLANCHED-ALMOND+" "+BLANCHEDALMOND+" "+BISQUE+" "+PEACH-PUFF+" "+PEACHPUFF+" "+NAVAJO-WHITE+" "+NAVAJOWHITE+" "+MOCCASIN+" "+CORNSILK+" "+IVORY+" "+LEMON-CHIFFON+" "+LEMONCHIFFON+" "+SEASHELL+" "+HONEYDEW+" "+MINT-CREAM+" "+MINTCREAM+" "+AZURE+" "+ALICE-BLUE+" "+ALICEBLUE+" "+LAVENDER+" "+LAVENDER-BLUSH+" "+LAVENDERBLUSH+" "+MISTY-ROSE+" "+MISTYROSE+" "+WHITE+" "+BLACK+" "+DARK-SLATE-GRAY+" "+DARKSLATEGRAY+" "+DARK-SLATE-GREY+" "+DARKSLATEGREY+" "+DIM-GRAY+" "+DIMGRAY+" "+DIM-GREY+" "+DIMGREY+" "+SLATE-GRAY+" "+SLATEGRAY+" "+SLATE-GREY+" "+SLATEGREY+" "+LIGHT-SLATE-GRAY+" "+LIGHTSLATEGRAY+" "+LIGHT-SLATE-GREY+" "+LIGHTSLATEGREY+" "+GRAY+" "+GREY+" "+LIGHT-GREY+" "+LIGHTGREY+" "+LIGHT-GRAY+" "+LIGHTGRAY+" "+MIDNIGHT-BLUE+" "+MIDNIGHTBLUE+" "+NAVY+" "+NAVY-BLUE+" "+NAVYBLUE+" "+CORNFLOWER-BLUE+" "+CORNFLOWERBLUE+" "+DARK-SLATE-BLUE+" "+DARKSLATEBLUE+" "+SLATE-BLUE+" "+SLATEBLUE+" "+MEDIUM-SLATE-BLUE+" "+MEDIUMSLATEBLUE+" "+LIGHT-SLATE-BLUE+" "+LIGHTSLATEBLUE+" "+MEDIUM-BLUE+" "+MEDIUMBLUE+" "+ROYAL-BLUE+" "+ROYALBLUE+" "+BLUE+" "+DODGER-BLUE+" "+DODGERBLUE+" "+DEEP-SKY-BLUE+" "+DEEPSKYBLUE+" "+SKY-BLUE+" "+SKYBLUE+" "+LIGHT-SKY-BLUE+" "+LIGHTSKYBLUE+" "+STEEL-BLUE+" "+STEELBLUE+" "+LIGHT-STEEL-BLUE+" "+LIGHTSTEELBLUE+" "+LIGHT-BLUE+" "+LIGHTBLUE+" "+POWDER-BLUE+" "+POWDERBLUE+" "+PALE-TURQUOISE+" "+PALETURQUOISE+" "+DARK-TURQUOISE+" "+DARKTURQUOISE+" "+MEDIUM-TURQUOISE+" "+MEDIUMTURQUOISE+" "+TURQUOISE+" "+CYAN+" "+LIGHT-CYAN+" "+LIGHTCYAN+" "+CADET-BLUE+" "+CADETBLUE+" "+MEDIUM-AQUAMARINE+" "+MEDIUMAQUAMARINE+" "+AQUAMARINE+" "+DARK-GREEN+" "+DARKGREEN+" "+DARK-OLIVE-GREEN+" "+DARKOLIVEGREEN+" "+DARK-SEA-GREEN+" "+DARKSEAGREEN+" "+SEA-GREEN+" "+SEAGREEN+" "+MEDIUM-SEA-GREEN+" "+MEDIUMSEAGREEN+" "+LIGHT-SEA-GREEN+" "+LIGHTSEAGREEN+" "+PALE-GREEN+" "+PALEGREEN+" "+SPRING-GREEN+" "+SPRINGGREEN+" "+LAWN-GREEN+" "+LAWNGREEN+" "+GREEN+" "+CHARTREUSE+" "+MEDIUM-SPRING-GREEN+" "+MEDIUMSPRINGGREEN+" "+GREEN-YELLOW+" "+GREENYELLOW+" "+LIME-GREEN+" "+LIMEGREEN+" "+YELLOW-GREEN+" "+YELLOWGREEN+" "+FOREST-GREEN+" "+FORESTGREEN+" "+OLIVE-DRAB+" "+OLIVEDRAB+" "+DARK-KHAKI+" "+DARKKHAKI+" "+KHAKI+" "+PALE-GOLDENROD+" "+PALEGOLDENROD+" "+LIGHT-GOLDENROD-YELLOW+" "+LIGHTGOLDENRODYELLOW+" "+LIGHT-YELLOW+" "+LIGHTYELLOW+" "+YELLOW+" "+GOLD+" "+LIGHT-GOLDENROD+" "+LIGHTGOLDENROD+" "+GOLDENROD+" "+DARK-GOLDENROD+" "+DARKGOLDENROD+" "+ROSY-BROWN+" "+ROSYBROWN+" "+INDIAN-RED+" "+INDIANRED+" "+SADDLE-BROWN+" "+SADDLEBROWN+" "+SIENNA+" "+PERU+" "+BURLYWOOD+" "+BEIGE+" "+WHEAT+" "+SANDY-BROWN+" "+SANDYBROWN+" "+TAN+" "+CHOCOLATE+" "+FIREBRICK+" "+BROWN+" "+DARK-SALMON+" "+DARKSALMON+" "+SALMON+" "+LIGHT-SALMON+" "+LIGHTSALMON+" "+ORANGE+" "+DARK-ORANGE+" "+DARKORANGE+" "+CORAL+" "+LIGHT-CORAL+" "+LIGHTCORAL+" "+TOMATO+" "+ORANGE-RED+" "+ORANGERED+" "+RED+" "+HOT-PINK+" "+HOTPINK+" "+DEEP-PINK+" "+DEEPPINK+" "+PINK+" "+LIGHT-PINK+" "+LIGHTPINK+" "+PALE-VIOLET-RED+" "+PALEVIOLETRED+" "+MAROON+" "+MEDIUM-VIOLET-RED+" "+MEDIUMVIOLETRED+" "+VIOLET-RED+" "+VIOLETRED+" "+MAGENTA+" "+VIOLET+" "+PLUM+" "+ORCHID+" "+MEDIUM-ORCHID+" "+MEDIUMORCHID+" "+DARK-ORCHID+" "+DARKORCHID+" "+DARK-VIOLET+" "+DARKVIOLET+" "+BLUE-VIOLET+" "+BLUEVIOLET+" "+PURPLE+" "+MEDIUM-PURPLE+" "+MEDIUMPURPLE+" "+THISTLE+" "+SNOW1+" "+SNOW2+" "+SNOW3+" "+SNOW4+" "+SEASHELL1+" "+SEASHELL2+" "+SEASHELL3+" "+SEASHELL4+" "+ANTIQUEWHITE1+" "+ANTIQUEWHITE2+" "+ANTIQUEWHITE3+" "+ANTIQUEWHITE4+" "+BISQUE1+" "+BISQUE2+" "+BISQUE3+" "+BISQUE4+" "+PEACHPUFF1+" "+PEACHPUFF2+" "+PEACHPUFF3+" "+PEACHPUFF4+" "+NAVAJOWHITE1+" "+NAVAJOWHITE2+" "+NAVAJOWHITE3+" "+NAVAJOWHITE4+" "+LEMONCHIFFON1+" "+LEMONCHIFFON2+" "+LEMONCHIFFON3+" "+LEMONCHIFFON4+" "+CORNSILK1+" "+CORNSILK2+" "+CORNSILK3+" "+CORNSILK4+" "+IVORY1+" "+IVORY2+" "+IVORY3+" "+IVORY4+" "+HONEYDEW1+" "+HONEYDEW2+" "+HONEYDEW3+" "+HONEYDEW4+" "+LAVENDERBLUSH1+" "+LAVENDERBLUSH2+" "+LAVENDERBLUSH3+" "+LAVENDERBLUSH4+" "+MISTYROSE1+" "+MISTYROSE2+" "+MISTYROSE3+" "+MISTYROSE4+" "+AZURE1+" "+AZURE2+" "+AZURE3+" "+AZURE4+" "+SLATEBLUE1+" "+SLATEBLUE2+" "+SLATEBLUE3+" "+SLATEBLUE4+" "+ROYALBLUE1+" "+ROYALBLUE2+" "+ROYALBLUE3+" "+ROYALBLUE4+" "+BLUE1+" "+BLUE2+" "+BLUE3+" "+BLUE4+" "+DODGERBLUE1+" "+DODGERBLUE2+" "+DODGERBLUE3+" "+DODGERBLUE4+" "+STEELBLUE1+" "+STEELBLUE2+" "+STEELBLUE3+" "+STEELBLUE4+" "+DEEPSKYBLUE1+" "+DEEPSKYBLUE2+" "+DEEPSKYBLUE3+" "+DEEPSKYBLUE4+" "+SKYBLUE1+" "+SKYBLUE2+" "+SKYBLUE3+" "+SKYBLUE4+" "+LIGHTSKYBLUE1+" "+LIGHTSKYBLUE2+" "+LIGHTSKYBLUE3+" "+LIGHTSKYBLUE4+" "+SLATEGRAY1+" "+SLATEGRAY2+" "+SLATEGRAY3+" "+SLATEGRAY4+" "+LIGHTSTEELBLUE1+" "+LIGHTSTEELBLUE2+" "+LIGHTSTEELBLUE3+" "+LIGHTSTEELBLUE4+" "+LIGHTBLUE1+" "+LIGHTBLUE2+" "+LIGHTBLUE3+" "+LIGHTBLUE4+" "+LIGHTCYAN1+" "+LIGHTCYAN2+" "+LIGHTCYAN3+" "+LIGHTCYAN4+" "+PALETURQUOISE1+" "+PALETURQUOISE2+" "+PALETURQUOISE3+" "+PALETURQUOISE4+" "+CADETBLUE1+" "+CADETBLUE2+" "+CADETBLUE3+" "+CADETBLUE4+" "+TURQUOISE1+" "+TURQUOISE2+" "+TURQUOISE3+" "+TURQUOISE4+" "+CYAN1+" "+CYAN2+" "+CYAN3+" "+CYAN4+" "+DARKSLATEGRAY1+" "+DARKSLATEGRAY2+" "+DARKSLATEGRAY3+" "+DARKSLATEGRAY4+" "+AQUAMARINE1+" "+AQUAMARINE2+" "+AQUAMARINE3+" "+AQUAMARINE4+" "+DARKSEAGREEN1+" "+DARKSEAGREEN2+" "+DARKSEAGREEN3+" "+DARKSEAGREEN4+" "+SEAGREEN1+" "+SEAGREEN2+" "+SEAGREEN3+" "+SEAGREEN4+" "+PALEGREEN1+" "+PALEGREEN2+" "+PALEGREEN3+" "+PALEGREEN4+" "+SPRINGGREEN1+" "+SPRINGGREEN2+" "+SPRINGGREEN3+" "+SPRINGGREEN4+" "+GREEN1+" "+GREEN2+" "+GREEN3+" "+GREEN4+" "+CHARTREUSE1+" "+CHARTREUSE2+" "+CHARTREUSE3+" "+CHARTREUSE4+" "+OLIVEDRAB1+" "+OLIVEDRAB2+" "+OLIVEDRAB3+" "+OLIVEDRAB4+" "+DARKOLIVEGREEN1+" "+DARKOLIVEGREEN2+" "+DARKOLIVEGREEN3+" "+DARKOLIVEGREEN4+" "+KHAKI1+" "+KHAKI2+" "+KHAKI3+" "+KHAKI4+" "+LIGHTGOLDENROD1+" "+LIGHTGOLDENROD2+" "+LIGHTGOLDENROD3+" "+LIGHTGOLDENROD4+" "+LIGHTYELLOW1+" "+LIGHTYELLOW2+" "+LIGHTYELLOW3+" "+LIGHTYELLOW4+" "+YELLOW1+" "+YELLOW2+" "+YELLOW3+" "+YELLOW4+" "+GOLD1+" "+GOLD2+" "+GOLD3+" "+GOLD4+" "+GOLDENROD1+" "+GOLDENROD2+" "+GOLDENROD3+" "+GOLDENROD4+" "+DARKGOLDENROD1+" "+DARKGOLDENROD2+" "+DARKGOLDENROD3+" "+DARKGOLDENROD4+" "+ROSYBROWN1+" "+ROSYBROWN2+" "+ROSYBROWN3+" "+ROSYBROWN4+" "+INDIANRED1+" "+INDIANRED2+" "+INDIANRED3+" "+INDIANRED4+" "+SIENNA1+" "+SIENNA2+" "+SIENNA3+" "+SIENNA4+" "+BURLYWOOD1+" "+BURLYWOOD2+" "+BURLYWOOD3+" "+BURLYWOOD4+" "+WHEAT1+" "+WHEAT2+" "+WHEAT3+" "+WHEAT4+" "+TAN1+" "+TAN2+" "+TAN3+" "+TAN4+" "+CHOCOLATE1+" "+CHOCOLATE2+" "+CHOCOLATE3+" "+CHOCOLATE4+" "+FIREBRICK1+" "+FIREBRICK2+" "+FIREBRICK3+" "+FIREBRICK4+" "+BROWN1+" "+BROWN2+" "+BROWN3+" "+BROWN4+" "+SALMON1+" "+SALMON2+" "+SALMON3+" "+SALMON4+" "+LIGHTSALMON1+" "+LIGHTSALMON2+" "+LIGHTSALMON3+" "+LIGHTSALMON4+" "+ORANGE1+" "+ORANGE2+" "+ORANGE3+" "+ORANGE4+" "+DARKORANGE1+" "+DARKORANGE2+" "+DARKORANGE3+" "+DARKORANGE4+" "+CORAL1+" "+CORAL2+" "+CORAL3+" "+CORAL4+" "+TOMATO1+" "+TOMATO2+" "+TOMATO3+" "+TOMATO4+" "+ORANGERED1+" "+ORANGERED2+" "+ORANGERED3+" "+ORANGERED4+" "+RED1+" "+RED2+" "+RED3+" "+RED4+" "+DEEPPINK1+" "+DEEPPINK2+" "+DEEPPINK3+" "+DEEPPINK4+" "+HOTPINK1+" "+HOTPINK2+" "+HOTPINK3+" "+HOTPINK4+" "+PINK1+" "+PINK2+" "+PINK3+" "+PINK4+" "+LIGHTPINK1+" "+LIGHTPINK2+" "+LIGHTPINK3+" "+LIGHTPINK4+" "+PALEVIOLETRED1+" "+PALEVIOLETRED2+" "+PALEVIOLETRED3+" "+PALEVIOLETRED4+" "+MAROON1+" "+MAROON2+" "+MAROON3+" "+MAROON4+" "+VIOLETRED1+" "+VIOLETRED2+" "+VIOLETRED3+" "+VIOLETRED4+" "+MAGENTA1+" "+MAGENTA2+" "+MAGENTA3+" "+MAGENTA4+" "+ORCHID1+" "+ORCHID2+" "+ORCHID3+" "+ORCHID4+" "+PLUM1+" "+PLUM2+" "+PLUM3+" "+PLUM4+" "+MEDIUMORCHID1+" "+MEDIUMORCHID2+" "+MEDIUMORCHID3+" "+MEDIUMORCHID4+" "+DARKORCHID1+" "+DARKORCHID2+" "+DARKORCHID3+" "+DARKORCHID4+" "+PURPLE1+" "+PURPLE2+" "+PURPLE3+" "+PURPLE4+" "+MEDIUMPURPLE1+" "+MEDIUMPURPLE2+" "+MEDIUMPURPLE3+" "+MEDIUMPURPLE4+" "+THISTLE1+" "+THISTLE2+" "+THISTLE3+" "+THISTLE4+" "+GRAY0+" "+GREY0+" "+GRAY1+" "+GREY1+" "+GRAY2+" "+GREY2+" "+GRAY3+" "+GREY3+" "+GRAY4+" "+GREY4+" "+GRAY5+" "+GREY5+" "+GRAY6+" "+GREY6+" "+GRAY7+" "+GREY7+" "+GRAY8+" "+GREY8+" "+GRAY9+" "+GREY9+" "+GRAY10+" "+GREY10+" "+GRAY11+" "+GREY11+" "+GRAY12+" "+GREY12+" "+GRAY13+" "+GREY13+" "+GRAY14+" "+GREY14+" "+GRAY15+" "+GREY15+" "+GRAY16+" "+GREY16+" "+GRAY17+" "+GREY17+" "+GRAY18+" "+GREY18+" "+GRAY19+" "+GREY19+" "+GRAY20+" "+GREY20+" "+GRAY21+" "+GREY21+" "+GRAY22+" "+GREY22+" "+GRAY23+" "+GREY23+" "+GRAY24+" "+GREY24+" "+GRAY25+" "+GREY25+" "+GRAY26+" "+GREY26+" "+GRAY27+" "+GREY27+" "+GRAY28+" "+GREY28+" "+GRAY29+" "+GREY29+" "+GRAY30+" "+GREY30+" "+GRAY31+" "+GREY31+" "+GRAY32+" "+GREY32+" "+GRAY33+" "+GREY33+" "+GRAY34+" "+GREY34+" "+GRAY35+" "+GREY35+" "+GRAY36+" "+GREY36+" "+GRAY37+" "+GREY37+" "+GRAY38+" "+GREY38+" "+GRAY39+" "+GREY39+" "+GRAY40+" "+GREY40+" "+GRAY41+" "+GREY41+" "+GRAY42+" "+GREY42+" "+GRAY43+" "+GREY43+" "+GRAY44+" "+GREY44+" "+GRAY45+" "+GREY45+" "+GRAY46+" "+GREY46+" "+GRAY47+" "+GREY47+" "+GRAY48+" "+GREY48+" "+GRAY49+" "+GREY49+" "+GRAY50+" "+GREY50+" "+GRAY51+" "+GREY51+" "+GRAY52+" "+GREY52+" "+GRAY53+" "+GREY53+" "+GRAY54+" "+GREY54+" "+GRAY55+" "+GREY55+" "+GRAY56+" "+GREY56+" "+GRAY57+" "+GREY57+" "+GRAY58+" "+GREY58+" "+GRAY59+" "+GREY59+" "+GRAY60+" "+GREY60+" "+GRAY61+" "+GREY61+" "+GRAY62+" "+GREY62+" "+GRAY63+" "+GREY63+" "+GRAY64+" "+GREY64+" "+GRAY65+" "+GREY65+" "+GRAY66+" "+GREY66+" "+GRAY67+" "+GREY67+" "+GRAY68+" "+GREY68+" "+GRAY69+" "+GREY69+" "+GRAY70+" "+GREY70+" "+GRAY71+" "+GREY71+" "+GRAY72+" "+GREY72+" "+GRAY73+" "+GREY73+" "+GRAY74+" "+GREY74+" "+GRAY75+" "+GREY75+" "+GRAY76+" "+GREY76+" "+GRAY77+" "+GREY77+" "+GRAY78+" "+GREY78+" "+GRAY79+" "+GREY79+" "+GRAY80+" "+GREY80+" "+GRAY81+" "+GREY81+" "+GRAY82+" "+GREY82+" "+GRAY83+" "+GREY83+" "+GRAY84+" "+GREY84+" "+GRAY85+" "+GREY85+" "+GRAY86+" "+GREY86+" "+GRAY87+" "+GREY87+" "+GRAY88+" "+GREY88+" "+GRAY89+" "+GREY89+" "+GRAY90+" "+GREY90+" "+GRAY91+" "+GREY91+" "+GRAY92+" "+GREY92+" "+GRAY93+" "+GREY93+" "+GRAY94+" "+GREY94+" "+GRAY95+" "+GREY95+" "+GRAY96+" "+GREY96+" "+GRAY97+" "+GREY97+" "+GRAY98+" "+GREY98+" "+GRAY99+" "+GREY99+" "+GRAY100+" "+GREY100+" "+DARK-GREY+" "+DARKGREY+" "+DARK-GRAY+" "+DARKGRAY+" "+DARK-BLUE+" "+DARKBLUE+" "+DARK-CYAN+" "+DARKCYAN+" "+DARK-MAGENTA+" "+DARKMAGENTA+" "+DARK-RED+" "+DARKRED+" "+LIGHT-GREEN+" "+LIGHTGREEN+" ))