7 lines
2.4 KiB
Plaintext
7 lines
2.4 KiB
Plaintext
XEROX COLOROBJ
|
||
2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
COLOROBJ
|
||
1
|
||
|
||
4
|
||
|
||
By: Greg Nuyens (Nuyens.pa@Xerox.com)
|
||
uses: COLOR
|
||
COLOROBJ provides an Interlisp-D imageobject which allows the color to be set on an imagestream. The default image looks like this:
|
||
RED
|
||
|
||
The color of the object can be changed by middle-clicking on the object.
|
||
(COLOROBJ.CREATE Color) [Function]
|
||
Creates a single colorobj. Color is optional and defaults to COLOROBJ.DEFAULT.COLOR.
|
||
COLOROBJ.DEFAULT.COLOR [Variable]
|
||
Determines the initial color of a colorobj. Default is RED.
|
||
|
||
(LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) . È È ( È ( È ( È ( Š Š8 ( Š Š8 D È È PAGEHEADING RUNNINGHEAD HELVETICA
|
||
MODERN
|
||
MODERN MODERN LOGO HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN HRULE.GETFN MODERN ' … COLOROBJ.GETFN MODERN
|
||
I $ V # = -zº |