home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
Linux
/
Divers
/
angela-1.28-BETA-bin-Linux-i586.tar.gz
/
angela-1.28-BETA-bin-Linux-i586.tar
/
angela-1.28-BETA
/
angela.rc
< prev
next >
Wrap
Text File
|
1998-05-05
|
11KB
|
252 lines
# -*- Mode: tcl -*-
set angela_option(gui:font:tool) {Arial 10}
set angela_option(gui:font:status) {Arial 12}
set angela_option(gui:font:cap) {Arial 10}
set angela_option(gui:grid:x) 25
set angela_option(gui:grid:y) 25
set angela_option(print:paper:width) 21c
set angela_option(print:paper:height) 29.7c
set angela_option(print:paper:left) 1c
set angela_option(print:paper:right) 1c
set angela_option(print:paper:top) 1c
set angela_option(print:paper:bottom) 1c
set angela_option(modules:startup) { \
ge_node module_node.o dll \
ge_edge module_edge.o dll \
ge_text module_text.o dll \
ge_shape module_shape.o dll \
ge_line module_line.o dll \
pling_out module_pling.tcl tcl \
pling_in module_plingread.tcl tcl \
pling_exec module_plingexternal.tcl tcl \
gml_out module_gmlout.tcl tcl \
gml_in module_gmlin.o dll \
tcl_out module_tclout.tcl tcl
}
set colors "gray60 gray70 gray80 gray85 gray90 gray95 \
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"
set shapes "rectangle oval etiquettel etiquetter"
set shapeargs "{10 10} {30 30} {50 50} {80 80} {100 100} {80 40}"
set width "0 1 2 3 4 5 10 15"
set fonts "{Arial 5} {Arial 8} {Arial 10} {Arial 12} {Arial 20}"
set textwidth "10 50 100 150 200"
set justification "left center right"
set anchor "n ne e se s sw w nw"
set arrow "none first last both"
set arrowshape "{8 10 3}"
set capstyle "butt"
set joinstyle "miter"
set stipple ""
set angela_option(synonym:shape:shape) "Aspect"
set angela_option(synonym:shape:shapeargs) "Geometry"
set angela_option(synonym:shape:color) "Color within"
set angela_option(synonym:shape:outline) "Border color"
set angela_option(synonym:shape:width) "Border width"
set angela_option(synonym:text:font) "Font"
set angela_option(synonym:text:textcolor) "Color"
set angela_option(synonym:text:width) "Reserved width"
set angela_option(synonym:text:justification) "Justification"
set angela_option(synonym:text:text) "Label text"
set angela_option(synonym:text:anchor) "Anchor"
set angela_option(synonym:line:arrow) "Where is arrow?"
set angela_option(synonym:line:arrowshape) "Aspect of arrow"
set angela_option(synonym:line:capstyle) "Capstyle"
set angela_option(synonym:line:color) "Color"
set angela_option(synonym:line:joinstyle) "Joinstyle"
set angela_option(synonym:line:stipple) "Stipple pattern"
set angela_option(synonym:line:width) "Linewidth"
set angela_option(synonym:line:bezier) "Bezier resolution"
set angela_option(synonym:node:type) "Abstract type"
set angela_option(synonym:node:x) "X-coordinate"
set angela_option(synonym:node:y) "Y-coordinate"
set angela_option(synonym:node:vx) "X-velocity"
set angela_option(synonym:node:vy) "Y-velocity"
set angela_option(synonym:node:ax) "X-acceleration"
set angela_option(synonym:node:ay) "Y-acceleration"
set angela_option(synonym:node:mass) "Mass"
set angela_option(synonym:node:elastic) "Elasticity"
set angela_option(synonym:shape:x) "X-coordinate"
set angela_option(synonym:shape:y) "Y-coordinate"
set angela_option(synonym:shape:coords) "Coordinates"
set angela_option(synonym:edge:type) "Abstract type"
set angela_option(synonym:edge:ks) "Elasticity"
set angela_option(synonym:edge:kd) "Dampering"
set angela_option(synonym:edge:restlen) "Rest length"
set angela_option(choice:shape:shape) $shapes
set angela_option(choice:shape:shapeargs) $shapeargs
set angela_option(choice:shape:color) $colors
set angela_option(choice:shape:outline) $colors
set angela_option(choice:shape:width) $width
set angela_option(choice:text:font) $fonts
set angela_option(choice:text:textcolor) $colors
set angela_option(choice:text:width) $textwidth
set angela_option(choice:text:justification) $justification
set angela_option(choice:text:anchor) $anchor
set angela_option(choice:line:arrow) $arrow
set angela_option(choice:line:arrowshape) $arrowshape
set angela_option(choice:line:capstyle) $capstyle
set angela_option(choice:line:color) $colors
set angela_option(choice:line:joinstyle) $joinstyle
set angela_option(choice:line:stipple) $stipple
set angela_option(choice:line:width) $width
set angela_option(choice:line:bezier) "0 15 60"
set angela_cap_value(shape:shape) oval
set angela_cap_value(shape:shapeargs) "50 50"
set angela_cap_value(shape:color) steelblue
set angela_cap_value(shape:outline) black
set angela_cap_value(shape:width) 1
set angela_cap_value(text:font) "Arial 12"
set angela_cap_value(text:textcolor) white
set angela_cap_value(text:width) 50
set angela_cap_value(text:justification) center
set angela_cap_value(text:anchor) c
set angela_cap_value(text:text) "Node"
set angela_cap_value(line:arrow) both
set angela_cap_value(line:arrowshape) ""
set angela_cap_value(line:capstyle) butt
set angela_cap_value(line:color) black
set angela_cap_value(line:joinstyle) miter
set angela_cap_value(line:stipple) ""
set angela_cap_value(line:width) 2
set angela_option(style:node:shape:text) \
"{ {angela! default} \
shape:shape oval \
shape:shapeargs {50 50} \
shape:color steelblue \
shape:outline black \
shape:width 1 \
text:font {Arial 12} \
text:textcolor white \
text:width 50 \
text:anchor c } \
{ {angela! box} \
shape:shape rectangle \
shape:shapeargs {50 50} \
shape:color steelblue \
shape:outline black \
shape:width 1 \
text:font {Arial 12} \
text:textcolor white \
text:width 50 \
text:anchor c } \
{ {angela! tag} \
shape:shape rectangle \
shape:shapeargs {60 10} \
shape:color white \
shape:width 0 \
shape:outline white \
text:font {Arial 8} \
text:textcolor red \
text:width 60 } \
{ {angela! etiquette left} \
shape:shape etiquettel \
shape:shapeargs {60 40} \
shape:color brown \
shape:width 2 \
shape:outline black \
text:font {Arial 12 bold} \
text:textcolor white \
text:width 50 } \
{ {angela! etiquette right} \
shape:shape etiquetter \
shape:shapeargs {60 40} \
shape:color brown \
shape:width 2 \
shape:outline black \
text:font {Arial 12 bold} \
text:textcolor white \
text:width 50 }"
set angela_option(style:edge:line)\
"{ {angela! default} \
line:arrow both \
line:arrowshape {} \
line:capstyle butt \
line:color black \
line:joinstyle miter \
line:bezier 0 \
line:stipple {} \
line:width 2 } \
{ {angela! curved} \
line:bezier 60 } \
{ {angela! big} \
line:width 15 \
line:arrowshape {15 20 10} } \
{ {angela! hair} \
line:width 1 \
line:arrow none }"
set angela_option(module:filter_exec/pling:command) \
"{Copy} {cat %i >> %o} \
{Nothing} {cat %i %o}"