2005-06-27 03:47:22 -04:00
|
|
|
! Copyright (C) 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
|
|
|
IN: styles
|
|
|
|
|
|
2005-10-28 15:37:28 -04:00
|
|
|
! Colors are RGBA quadruples
|
2005-10-29 23:25:38 -04:00
|
|
|
: black { 0.0 0.0 0.0 1.0 } ;
|
|
|
|
|
: dark-gray { 0.25 0.25 0.25 1.0 } ;
|
|
|
|
|
: gray { 0.5 0.5 0.5 1.0 } ;
|
|
|
|
|
: light-gray { 0.75 0.75 0.75 1.0 } ;
|
|
|
|
|
: white { 1.0 1.0 1.0 1.0 } ;
|
|
|
|
|
: red { 1.0 0.0 0.0 1.0 } ;
|
|
|
|
|
: green { 0.0 1.0 0.0 1.0 } ;
|
|
|
|
|
: blue { 0.0 0.0 1.0 1.0 } ;
|
2005-07-13 21:03:34 -04:00
|
|
|
|
2005-06-27 03:47:22 -04:00
|
|
|
SYMBOL: foreground ! Used for text and outline shapes.
|
|
|
|
|
SYMBOL: background ! Used for filled shapes.
|
|
|
|
|
|
|
|
|
|
SYMBOL: font
|
|
|
|
|
SYMBOL: font-size
|
|
|
|
|
SYMBOL: font-style
|
|
|
|
|
|
|
|
|
|
SYMBOL: plain
|
|
|
|
|
SYMBOL: bold
|
|
|
|
|
SYMBOL: italic
|
|
|
|
|
SYMBOL: bold-italic
|
2005-07-06 03:29:42 -04:00
|
|
|
|
2005-07-11 22:47:38 -04:00
|
|
|
SYMBOL: underline
|
|
|
|
|
|
2005-07-13 18:08:54 -04:00
|
|
|
SYMBOL: presented
|
2005-07-21 23:36:40 -04:00
|
|
|
SYMBOL: file
|
2005-09-25 20:41:49 -04:00
|
|
|
|
|
|
|
|
! A quotation that writes an outline expansion to stdio
|
|
|
|
|
SYMBOL: outline
|
