123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485 |
- unit XPMs;
- interface
- const
- XPMFileNew : array [0..16] of string = (
- '11 13 3 1',
- '. c None',
- 'x c #000000', // black
- 'o c #FFFFFF', // white
- 'xxxxxxxx...',
- 'xooooooxx..',
- 'xooooooxox.',
- 'xooooooxxxx',
- 'xooooooooox',
- 'xooooooooox',
- 'xooooooooox',
- 'xooooooooox',
- 'xooooooooox',
- 'xooooooooox',
- 'xooooooooox',
- 'xooooooooox',
- 'xxxxxxxxxxx');
- XPMFileOpen : array [0..17] of string = (
- '16 13 4 1',
- '. c None', // no color
- '# c #000000', // black
- 'y c #ffff00', // yellow
- 'g c #AFAF00', // grayed yellow
- '.......#####....',
- '............#.#.',
- '.............##.',
- '.####.......###.',
- '#yyyy######.....',
- '#yyyyyyyyy#.....',
- '#yyyyyyyyy#.....',
- '#yyyy###########',
- '#yyy#ggggggggg#.',
- '#yy#ggggggggg#..',
- '#y#ggggggggg#...',
- '##ggggggggg#....',
- '###########.....');
- XPMFileSave : array [0..17] of string = (
- '14 14 4 1',
- '. c None', // no color
- '# c #000000', // black
- 'g c #AFAF00', // grayed yellow
- '* c #C0C0C0', // light gray
- '##############',
- '#g#********#*#',
- '#g#********###',
- '#g#********#g#',
- '#g#********#g#',
- '#g#********#g#',
- '#gg#########g#',
- '#gggggggggggg#',
- '#gg#########g#',
- '#gg#######*#g#',
- '#gg#######*#g#',
- '#gg#######*#g#',
- '.#############');
- XPMEditAdd : array [0..16] of string = (
- '15 13 3 1',
- '. c None', // None
- 'o c #000000', // Black
- '- c #FFFFFF', // White
- '...............',
- '...oooooo......',
- '...o----oo.....',
- '...o----o-o....',
- '...o----oooo...',
- '...o-------o...',
- '...o-------o...',
- '...o-------o...',
- '...o-------o...',
- '...o-------o...',
- '...ooooooooo...',
- '...............',
- '...............');
- XPMEditCopy : array [0..17] of string = (
- '15 13 4 1',
- '. c None', // None
- '# c #000000', // Black
- '- c #FFFFFF', // White
- 'o c #0000FF', // Blue
- '######.........',
- '#----##........',
- '#----#-#.......',
- '#-##-#oooooo...',
- '#-----o----oo..',
- '#-####o----o-o.',
- '#-----o-##-oooo',
- '#-####o-------o',
- '#-----o-#####-o',
- '######o-------o',
- '......o-#####-o',
- '......o-------o',
- '......ooooooooo');
- XPMEditDelete : array [0..17] of string = (
- '14 13 4 1',
- '. c None', // None
- '# c #000000', // Black
- '- c #FFFFFF', // White
- 'r c #FF0000', // Red
- 'rr-........rr-',
- 'rrrr-####.rr-.',
- '.rrrr----rr-..',
- '...rrr--rr-...',
- '...#rrrrr--#..',
- '...#-rrr---#..',
- '...#rrrrr--#..',
- '...rrr--rr-#..',
- '..rrr----rr-..',
- '.rrr------r-..',
- '.rrr-######r-.',
- '..r-..........',
- '............r-');
- XPMEditUp : array [0..15] of string = (
- '7 13 2 1',
- '. c None',
- 'x c #000000',
- '...x...',
- '...x...',
- '..xxx..',
- '..xxx..',
- '.xxxxx.',
- '.xxxxx.',
- 'xxxxxxx',
- 'xxxxxxx',
- '..xxx..',
- '..xxx..',
- '..xxx..',
- '..xxx..',
- '..xxx..');
- XPMEditDown : array [0..15] of string = (
- '7 13 2 1',
- '. c None',
- 'x c #000000',
- '..xxx..',
- '..xxx..',
- '..xxx..',
- '..xxx..',
- '..xxx..',
- 'xxxxxxx',
- 'xxxxxxx',
- '.xxxxx.',
- '.xxxxx.',
- '..xxx..',
- '..xxx..',
- '...x...',
- '...x...');
- XPMGenerate : array [0..24] of string = (
- '15 17 7 1',
- '. c None', // None
- '# c #000000', // Black
- '- c #FFFFFF', // White
- 'x c #808080', // Dark Gray
- 'r c #800000', // Dark Red
- '* c #C0C0C0', // Light Gray
- 'y c #FFFF00', // Yellow
- '.....xxxxx.....',
- '.xxx#-****#xxx.',
- 'x---#######---#',
- 'x-------------#',
- 'x--------###--#',
- 'x--------#rr#-#',
- 'x-------#y##--#',
- 'x-------#yx#--#',
- 'x------#y*#---#',
- 'x------#yx#---#',
- 'x-----#y*#----#',
- 'x-----#yx#----#',
- 'x-----###-----#',
- 'x-----##------#',
- 'x-#-#-#-------#',
- 'x-------------#',
- '.#############.');
- XPMPropField : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #0000FF', // color blue
- '...............',
- '...............',
- '...............',
- '..+++++++++++..',
- '..+.........+..',
- '..+.........+..',
- '..+.........+..',
- '..+.........+..',
- '..+.........+..',
- '..+.........+..',
- '..+.........+..',
- '..+++++++++++..',
- '...............',
- '...............',
- '...............');
- XPMPropProperty : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #0000FF', // color blue
- '...............',
- '.+++++++++++++.',
- '.+...........+.',
- '.+...........+.',
- '.+...+**.....+.',
- '.+.....+*....+.',
- '.+.+*+*++**..+.',
- '.+.++++++++*.+.',
- '.+.+*+*++**..+.',
- '.+.....+*....+.',
- '.+...+**.....+.',
- '.+...........+.',
- '.+...........+.',
- '.+++++++++++++.',
- '...............');
- XPMPropFunction : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #00FF00', // color green
- '...............',
- '...............',
- '...............',
- '..***..........',
- '...++**........',
- '.....++*.......',
- '+*+*+*++**..*+*',
- '++++++++++*.+++',
- '+*+*+*++**..*+*',
- '.....++*.......',
- '...++**........',
- '..***..........',
- '...............',
- '...............',
- '...............');
- XPMPropProcedure : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #00FF00', // color green
- '...............',
- '...............',
- '...............',
- '....***........',
- '.....++**......',
- '.......++*.....',
- '+*+*+*+*++**...',
- '++++++++++++*..',
- '+*+*+*+*++**...',
- '.......++*.....',
- '.....++**......',
- '....***........',
- '...............',
- '...............',
- '...............');
- XPMPropHelperProc : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #FFFF00', // color yellow
- '...............',
- '...............',
- '...............',
- '....***........',
- '.....++**......',
- '.......++*.....',
- '+*+*+*+*++**...',
- '++++++++++++*..',
- '+*+*+*+*++**...',
- '.......++*.....',
- '.....++**......',
- '....***........',
- '...............',
- '...............',
- '...............');
- XPMPropHelperFunc : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #FFFF00', // color yelow
- '...............',
- '...............',
- '...............',
- '..***..........',
- '...++**........',
- '.....++*.......',
- '+*+*+*++**..*+*',
- '++++++++++*.+++',
- '+*+*+*++**..*+*',
- '.....++*.......',
- '...++**........',
- '..***..........',
- '...............',
- '...............',
- '...............');
- XPMPropSignalType : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #0000FF', // color blue
- '...............',
- '+++.........+++',
- '++...........++',
- '+.+.........+.+',
- '...+.......+...',
- '....+.....+....',
- '...............',
- '.......*.......',
- '...............',
- '....+.....+....',
- '...+.......+...',
- '+.+.........+.+',
- '++...........++',
- '+++.........+++',
- '...............');
- XPMPropSignal : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #0000FF', // color blue
- '...............',
- '+++.........+++',
- '++...........++',
- '+.+.........+.+',
- '...+*******+...',
- '...*+.....+*...',
- '...*.+...+.*...',
- '...*...*...*...',
- '...*.+...+.*...',
- '...*+.....+*...',
- '...+*******+...',
- '+.+.........+.+',
- '++...........++',
- '+++.........+++',
- '...............');
- XPMPropdeclar : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #FFFFFF', // white
- '+ c #FFFF00', // color yelow
- '.......+.......',
- '......+++......',
- '.....+++++*....',
- '.....+++++*....',
- '.....+++++*....',
- '.....+++++*....',
- '......+++**....',
- '......+++*.....',
- '.......+**.....',
- '.......+*......',
- '......+++......',
- '.....+++++*....',
- '.....+++++*....',
- '......+++**....',
- '.......+**.....');
- XPMPropTypeDecl : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #FFFFFF', // white
- '+ c #00FF00', // color green
- '.......+.......',
- '......+++......',
- '.....+++++*....',
- '.....+++++*....',
- '.....+++++*....',
- '.....+++++*....',
- '......+++**....',
- '......+++*.....',
- '.......+**.....',
- '.......+*......',
- '......+++......',
- '.....+++++*....',
- '.....+++++*....',
- '......+++**....',
- '.......+**.....');
- XPMPropConstr : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #0000FF', // color blue
- '...............',
- '...............',
- '...............',
- '..***.....++++*',
- '...++**...+++++',
- '.....++*.....+*',
- '+*+*+*++**...++',
- '++++++++++*..+*',
- '+*+*+*++**...++',
- '.....++*.....+*',
- '...++**...+++++',
- '..***.....*+*+*',
- '...............',
- '...............',
- '...............');
- XPMPropDestr : array [0..19] of string = (
- '15 15 4 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #0000FF', // color blue
- '- c #FF0000', // color red
- '............-..',
- '...........--..',
- '..........--...',
- '......***--....',
- '.......+--*....',
- '.......--++*...',
- '+*+*+*--+*++**.',
- '+++++--+++++++*',
- '+*+*--+*+*++**.',
- '...--....++*...',
- '..--...++**....',
- '.--...***......',
- '--.............',
- '-..............',
- '...............');
- XPMPropInitial : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #0000FF', // color blue
- '+*.............',
- '+*.............',
- '+*.............',
- '+*....***......',
- '+*.....++**....',
- '+*.......++*...',
- '+*+*+*+*+*++**.',
- '++++++++++++++*',
- '+*+*+*+*+*++**.',
- '+*.......++*...',
- '+*.....++**....',
- '+*....***......',
- '+*.............',
- '+*.............',
- '+*.............');
- XPMPropFinal : array [0..18] of string = (
- '15 15 3 1',
- '. c None', // no color
- '* c #000000', // black
- '+ c #0000FF', // color blue
- '.............+*',
- '.............+*',
- '.............+*',
- '....***......+*',
- '.....++**....+*',
- '.......++*...+*',
- '+*+*+*+*++**.+*',
- '++++++++++++*+*',
- '+*+*+*+*++**.+*',
- '.......++*...+*',
- '.....++**....+*',
- '....***......+*',
- '.............+*',
- '.............+*',
- '.............+*');
- implementation
- end.
|