mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 11:09:42 +02:00
* initial revision
This commit is contained in:
florian
parent
2b44a66b5a
commit
ae7c110614
240
docs/classchart.ps
Normal file
240
docs/classchart.ps
Normal file
@ -0,0 +1,240 @@
|
||||
%!
|
||||
% we need to define metric units
|
||||
/mm {2.834 mul} def
|
||||
/cm {28.34 mul } def
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% Configurable section
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% sets the line width of the class graph to 0.5 points
|
||||
/SetLineWidth { 0.5 setlinewidth} def
|
||||
|
||||
% sets the line color of the class graph to black
|
||||
/SetLineColor { 0 0 0 setrgbcolor } def
|
||||
|
||||
% sets the default font for class names
|
||||
/SetClassFont
|
||||
{
|
||||
/ArialMT findfont
|
||||
10 scalefont
|
||||
setfont
|
||||
} def
|
||||
|
||||
% RGB colors of the texts
|
||||
/StandardTextColor { 0 0 0 } def
|
||||
/MissedTextColor { 0.50 0.50 0.50 } def
|
||||
|
||||
% RGB colors of the boxes
|
||||
/MissedColor { 0.92 0.92 0.92 } def
|
||||
/IncompleteColor { 1 0.5 0.5 } def
|
||||
/UntestedColor { 1 1 0.6} def
|
||||
/ReadyColor { 0.7 1 0.7 } def
|
||||
|
||||
% Starting point of the class graph
|
||||
% (0,0) is the lower left corner of the paper
|
||||
/nextx { 0 mm } def
|
||||
/nexty { 300 mm } def
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% End of Configurable section
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
/Missed {0} def
|
||||
/Incomplete {1} def
|
||||
/Untested {2} def
|
||||
/Ready {3} def
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% drawbox
|
||||
% takes two parameters:
|
||||
% classname........name of the class
|
||||
% status......status of development
|
||||
/drawbox
|
||||
{
|
||||
% save parameters
|
||||
/status exch def
|
||||
/classname exch def
|
||||
% save enviroment
|
||||
gsave
|
||||
newpath
|
||||
|
||||
% determine the size of the class name
|
||||
SetClassFont
|
||||
classname
|
||||
stringwidth
|
||||
|
||||
% and save it ...
|
||||
/widthy exch def
|
||||
/widthx exch def
|
||||
|
||||
% moveto start point of the box
|
||||
nextx 8 mm add
|
||||
nexty
|
||||
moveto
|
||||
|
||||
% calculate the place for the icons
|
||||
nextx 8 mm add
|
||||
widthx 4.5 mm add add
|
||||
/nexticonx exch def
|
||||
|
||||
% set box color
|
||||
status Missed eq { MissedColor setrgbcolor } if
|
||||
status Incomplete eq { IncompleteColor setrgbcolor } if
|
||||
status Untested eq { UntestedColor setrgbcolor } if
|
||||
status Ready eq { ReadyColor setrgbcolor } if
|
||||
|
||||
% draw box
|
||||
0 mm 2.1 mm rlineto
|
||||
widthx 3 mm add 0 mm rlineto
|
||||
0 mm -4.2 mm rlineto
|
||||
0 widthx 3 mm add sub 0 mm rlineto
|
||||
0 mm 2.1 mm rlineto
|
||||
closepath
|
||||
fill
|
||||
|
||||
% set text color
|
||||
status Missed eq { MissedTextColor setrgbcolor }
|
||||
{ StandardTextColor setrgbcolor } ifelse
|
||||
|
||||
% set text pos and write text
|
||||
nextx 9.5 mm add
|
||||
nexty 1.25 mm sub
|
||||
moveto
|
||||
classname
|
||||
show
|
||||
|
||||
grestore
|
||||
} def
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% newchildclass
|
||||
% draws a new class
|
||||
% takes two parameters:
|
||||
% name of the class
|
||||
% status of development
|
||||
/newchildclass
|
||||
{
|
||||
% save parameters
|
||||
/status exch def
|
||||
/classname exch def
|
||||
% save enviroment
|
||||
% push this on the stack for onelevelback
|
||||
nexty
|
||||
newpath
|
||||
SetLineWidth
|
||||
SetLineColor
|
||||
nexty -2.1 mm add
|
||||
/nexty exch def
|
||||
nextx 11 mm add
|
||||
/nextx exch def
|
||||
nextx nexty moveto
|
||||
0 mm -2.9 mm rlineto
|
||||
8 mm 0 mm rlineto stroke
|
||||
nexty -2.9 mm add
|
||||
/nexty exch def
|
||||
classname
|
||||
status
|
||||
drawbox
|
||||
} def
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% newclass
|
||||
% draws a new class
|
||||
% takes two parameters:
|
||||
% name of the class
|
||||
% status of development
|
||||
/newclass
|
||||
{
|
||||
gsave
|
||||
newpath
|
||||
SetLineWidth
|
||||
SetLineColor
|
||||
nextx nexty moveto
|
||||
0 mm -5 mm rlineto
|
||||
8 mm 0 mm rlineto stroke
|
||||
nexty -5 mm add
|
||||
/nexty exch def
|
||||
drawbox
|
||||
grestore
|
||||
} def
|
||||
/onelevelback
|
||||
{
|
||||
/oldy exch def
|
||||
newpath
|
||||
SetLineWidth
|
||||
SetLineColor
|
||||
% nexty -5 mm add
|
||||
% /nexty exch def
|
||||
nextx -11 mm add
|
||||
/nextx exch def
|
||||
nextx oldy moveto
|
||||
nextx nexty lineto stroke
|
||||
} def
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% Linuxonly
|
||||
% draws the linux icon
|
||||
/Linuxonly
|
||||
{
|
||||
gsave
|
||||
newpath
|
||||
nexticonx
|
||||
nexty 1.25 mm sub
|
||||
moveto
|
||||
SetClassFont
|
||||
StandardTextColor setrgbcolor
|
||||
(Linux)
|
||||
show
|
||||
grestore
|
||||
} def
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% Win32only
|
||||
% draws the win32 icon
|
||||
/Win32only
|
||||
{
|
||||
gsave
|
||||
newpath
|
||||
nexticonx
|
||||
nexty 1.25 mm sub
|
||||
moveto
|
||||
SetClassFont
|
||||
StandardTextColor setrgbcolor
|
||||
(Win32)
|
||||
show
|
||||
grestore
|
||||
} def
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% Both
|
||||
% dummy
|
||||
/Both
|
||||
{
|
||||
} def
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% here the class tree follows
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% TObject
|
||||
%%%%%%%%%%%%%%%%%%%%%%%
|
||||
(TObject) Ready drawbox
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% Exception classes
|
||||
%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
(Exception) Missed newchildclass
|
||||
(EAbort) Incomplete newchildclass
|
||||
(ENewAbort) Untested newchildclass
|
||||
(ECustomAbort) Ready newclass
|
||||
onelevelback
|
||||
(EAbstractError) Missed newclass Linuxonly
|
||||
(EDatabaseError) Missed newclass Linuxonly
|
||||
(EDBCLient) Missed newchildclass
|
||||
(EReconcileError) Missed newchildclass Linuxonly
|
||||
onelevelback
|
||||
(EDBEngineError) Missed newclass Win32only
|
||||
(ENoResultSet) Missed newclass
|
||||
(EUpdateError) Missed newclass
|
||||
onelevelback
|
||||
(EDBEditError) Missed newclass
|
||||
(EDSWriter) Missed newclass
|
||||
showpage
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user