xpms.pp 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485
  1. unit XPMs;
  2. interface
  3. const
  4. XPMFileNew : array [0..16] of string = (
  5. '11 13 3 1',
  6. '. c None',
  7. 'x c #000000', // black
  8. 'o c #FFFFFF', // white
  9. 'xxxxxxxx...',
  10. 'xooooooxx..',
  11. 'xooooooxox.',
  12. 'xooooooxxxx',
  13. 'xooooooooox',
  14. 'xooooooooox',
  15. 'xooooooooox',
  16. 'xooooooooox',
  17. 'xooooooooox',
  18. 'xooooooooox',
  19. 'xooooooooox',
  20. 'xooooooooox',
  21. 'xxxxxxxxxxx');
  22. XPMFileOpen : array [0..17] of string = (
  23. '16 13 4 1',
  24. '. c None', // no color
  25. '# c #000000', // black
  26. 'y c #ffff00', // yellow
  27. 'g c #AFAF00', // grayed yellow
  28. '.......#####....',
  29. '............#.#.',
  30. '.............##.',
  31. '.####.......###.',
  32. '#yyyy######.....',
  33. '#yyyyyyyyy#.....',
  34. '#yyyyyyyyy#.....',
  35. '#yyyy###########',
  36. '#yyy#ggggggggg#.',
  37. '#yy#ggggggggg#..',
  38. '#y#ggggggggg#...',
  39. '##ggggggggg#....',
  40. '###########.....');
  41. XPMFileSave : array [0..17] of string = (
  42. '14 14 4 1',
  43. '. c None', // no color
  44. '# c #000000', // black
  45. 'g c #AFAF00', // grayed yellow
  46. '* c #C0C0C0', // light gray
  47. '##############',
  48. '#g#********#*#',
  49. '#g#********###',
  50. '#g#********#g#',
  51. '#g#********#g#',
  52. '#g#********#g#',
  53. '#gg#########g#',
  54. '#gggggggggggg#',
  55. '#gg#########g#',
  56. '#gg#######*#g#',
  57. '#gg#######*#g#',
  58. '#gg#######*#g#',
  59. '.#############');
  60. XPMEditAdd : array [0..16] of string = (
  61. '15 13 3 1',
  62. '. c None', // None
  63. 'o c #000000', // Black
  64. '- c #FFFFFF', // White
  65. '...............',
  66. '...oooooo......',
  67. '...o----oo.....',
  68. '...o----o-o....',
  69. '...o----oooo...',
  70. '...o-------o...',
  71. '...o-------o...',
  72. '...o-------o...',
  73. '...o-------o...',
  74. '...o-------o...',
  75. '...ooooooooo...',
  76. '...............',
  77. '...............');
  78. XPMEditCopy : array [0..17] of string = (
  79. '15 13 4 1',
  80. '. c None', // None
  81. '# c #000000', // Black
  82. '- c #FFFFFF', // White
  83. 'o c #0000FF', // Blue
  84. '######.........',
  85. '#----##........',
  86. '#----#-#.......',
  87. '#-##-#oooooo...',
  88. '#-----o----oo..',
  89. '#-####o----o-o.',
  90. '#-----o-##-oooo',
  91. '#-####o-------o',
  92. '#-----o-#####-o',
  93. '######o-------o',
  94. '......o-#####-o',
  95. '......o-------o',
  96. '......ooooooooo');
  97. XPMEditDelete : array [0..17] of string = (
  98. '14 13 4 1',
  99. '. c None', // None
  100. '# c #000000', // Black
  101. '- c #FFFFFF', // White
  102. 'r c #FF0000', // Red
  103. 'rr-........rr-',
  104. 'rrrr-####.rr-.',
  105. '.rrrr----rr-..',
  106. '...rrr--rr-...',
  107. '...#rrrrr--#..',
  108. '...#-rrr---#..',
  109. '...#rrrrr--#..',
  110. '...rrr--rr-#..',
  111. '..rrr----rr-..',
  112. '.rrr------r-..',
  113. '.rrr-######r-.',
  114. '..r-..........',
  115. '............r-');
  116. XPMEditUp : array [0..15] of string = (
  117. '7 13 2 1',
  118. '. c None',
  119. 'x c #000000',
  120. '...x...',
  121. '...x...',
  122. '..xxx..',
  123. '..xxx..',
  124. '.xxxxx.',
  125. '.xxxxx.',
  126. 'xxxxxxx',
  127. 'xxxxxxx',
  128. '..xxx..',
  129. '..xxx..',
  130. '..xxx..',
  131. '..xxx..',
  132. '..xxx..');
  133. XPMEditDown : array [0..15] of string = (
  134. '7 13 2 1',
  135. '. c None',
  136. 'x c #000000',
  137. '..xxx..',
  138. '..xxx..',
  139. '..xxx..',
  140. '..xxx..',
  141. '..xxx..',
  142. 'xxxxxxx',
  143. 'xxxxxxx',
  144. '.xxxxx.',
  145. '.xxxxx.',
  146. '..xxx..',
  147. '..xxx..',
  148. '...x...',
  149. '...x...');
  150. XPMGenerate : array [0..24] of string = (
  151. '15 17 7 1',
  152. '. c None', // None
  153. '# c #000000', // Black
  154. '- c #FFFFFF', // White
  155. 'x c #808080', // Dark Gray
  156. 'r c #800000', // Dark Red
  157. '* c #C0C0C0', // Light Gray
  158. 'y c #FFFF00', // Yellow
  159. '.....xxxxx.....',
  160. '.xxx#-****#xxx.',
  161. 'x---#######---#',
  162. 'x-------------#',
  163. 'x--------###--#',
  164. 'x--------#rr#-#',
  165. 'x-------#y##--#',
  166. 'x-------#yx#--#',
  167. 'x------#y*#---#',
  168. 'x------#yx#---#',
  169. 'x-----#y*#----#',
  170. 'x-----#yx#----#',
  171. 'x-----###-----#',
  172. 'x-----##------#',
  173. 'x-#-#-#-------#',
  174. 'x-------------#',
  175. '.#############.');
  176. XPMPropField : array [0..18] of string = (
  177. '15 15 3 1',
  178. '. c None', // no color
  179. '* c #000000', // black
  180. '+ c #0000FF', // color blue
  181. '...............',
  182. '...............',
  183. '...............',
  184. '..+++++++++++..',
  185. '..+.........+..',
  186. '..+.........+..',
  187. '..+.........+..',
  188. '..+.........+..',
  189. '..+.........+..',
  190. '..+.........+..',
  191. '..+.........+..',
  192. '..+++++++++++..',
  193. '...............',
  194. '...............',
  195. '...............');
  196. XPMPropProperty : array [0..18] of string = (
  197. '15 15 3 1',
  198. '. c None', // no color
  199. '* c #000000', // black
  200. '+ c #0000FF', // color blue
  201. '...............',
  202. '.+++++++++++++.',
  203. '.+...........+.',
  204. '.+...........+.',
  205. '.+...+**.....+.',
  206. '.+.....+*....+.',
  207. '.+.+*+*++**..+.',
  208. '.+.++++++++*.+.',
  209. '.+.+*+*++**..+.',
  210. '.+.....+*....+.',
  211. '.+...+**.....+.',
  212. '.+...........+.',
  213. '.+...........+.',
  214. '.+++++++++++++.',
  215. '...............');
  216. XPMPropFunction : array [0..18] of string = (
  217. '15 15 3 1',
  218. '. c None', // no color
  219. '* c #000000', // black
  220. '+ c #00FF00', // color green
  221. '...............',
  222. '...............',
  223. '...............',
  224. '..***..........',
  225. '...++**........',
  226. '.....++*.......',
  227. '+*+*+*++**..*+*',
  228. '++++++++++*.+++',
  229. '+*+*+*++**..*+*',
  230. '.....++*.......',
  231. '...++**........',
  232. '..***..........',
  233. '...............',
  234. '...............',
  235. '...............');
  236. XPMPropProcedure : array [0..18] of string = (
  237. '15 15 3 1',
  238. '. c None', // no color
  239. '* c #000000', // black
  240. '+ c #00FF00', // color green
  241. '...............',
  242. '...............',
  243. '...............',
  244. '....***........',
  245. '.....++**......',
  246. '.......++*.....',
  247. '+*+*+*+*++**...',
  248. '++++++++++++*..',
  249. '+*+*+*+*++**...',
  250. '.......++*.....',
  251. '.....++**......',
  252. '....***........',
  253. '...............',
  254. '...............',
  255. '...............');
  256. XPMPropHelperProc : array [0..18] of string = (
  257. '15 15 3 1',
  258. '. c None', // no color
  259. '* c #000000', // black
  260. '+ c #FFFF00', // color yellow
  261. '...............',
  262. '...............',
  263. '...............',
  264. '....***........',
  265. '.....++**......',
  266. '.......++*.....',
  267. '+*+*+*+*++**...',
  268. '++++++++++++*..',
  269. '+*+*+*+*++**...',
  270. '.......++*.....',
  271. '.....++**......',
  272. '....***........',
  273. '...............',
  274. '...............',
  275. '...............');
  276. XPMPropHelperFunc : array [0..18] of string = (
  277. '15 15 3 1',
  278. '. c None', // no color
  279. '* c #000000', // black
  280. '+ c #FFFF00', // color yelow
  281. '...............',
  282. '...............',
  283. '...............',
  284. '..***..........',
  285. '...++**........',
  286. '.....++*.......',
  287. '+*+*+*++**..*+*',
  288. '++++++++++*.+++',
  289. '+*+*+*++**..*+*',
  290. '.....++*.......',
  291. '...++**........',
  292. '..***..........',
  293. '...............',
  294. '...............',
  295. '...............');
  296. XPMPropSignalType : array [0..18] of string = (
  297. '15 15 3 1',
  298. '. c None', // no color
  299. '* c #000000', // black
  300. '+ c #0000FF', // color blue
  301. '...............',
  302. '+++.........+++',
  303. '++...........++',
  304. '+.+.........+.+',
  305. '...+.......+...',
  306. '....+.....+....',
  307. '...............',
  308. '.......*.......',
  309. '...............',
  310. '....+.....+....',
  311. '...+.......+...',
  312. '+.+.........+.+',
  313. '++...........++',
  314. '+++.........+++',
  315. '...............');
  316. XPMPropSignal : array [0..18] of string = (
  317. '15 15 3 1',
  318. '. c None', // no color
  319. '* c #000000', // black
  320. '+ c #0000FF', // color blue
  321. '...............',
  322. '+++.........+++',
  323. '++...........++',
  324. '+.+.........+.+',
  325. '...+*******+...',
  326. '...*+.....+*...',
  327. '...*.+...+.*...',
  328. '...*...*...*...',
  329. '...*.+...+.*...',
  330. '...*+.....+*...',
  331. '...+*******+...',
  332. '+.+.........+.+',
  333. '++...........++',
  334. '+++.........+++',
  335. '...............');
  336. XPMPropdeclar : array [0..18] of string = (
  337. '15 15 3 1',
  338. '. c None', // no color
  339. '* c #FFFFFF', // white
  340. '+ c #FFFF00', // color yelow
  341. '.......+.......',
  342. '......+++......',
  343. '.....+++++*....',
  344. '.....+++++*....',
  345. '.....+++++*....',
  346. '.....+++++*....',
  347. '......+++**....',
  348. '......+++*.....',
  349. '.......+**.....',
  350. '.......+*......',
  351. '......+++......',
  352. '.....+++++*....',
  353. '.....+++++*....',
  354. '......+++**....',
  355. '.......+**.....');
  356. XPMPropTypeDecl : array [0..18] of string = (
  357. '15 15 3 1',
  358. '. c None', // no color
  359. '* c #FFFFFF', // white
  360. '+ c #00FF00', // color green
  361. '.......+.......',
  362. '......+++......',
  363. '.....+++++*....',
  364. '.....+++++*....',
  365. '.....+++++*....',
  366. '.....+++++*....',
  367. '......+++**....',
  368. '......+++*.....',
  369. '.......+**.....',
  370. '.......+*......',
  371. '......+++......',
  372. '.....+++++*....',
  373. '.....+++++*....',
  374. '......+++**....',
  375. '.......+**.....');
  376. XPMPropConstr : array [0..18] of string = (
  377. '15 15 3 1',
  378. '. c None', // no color
  379. '* c #000000', // black
  380. '+ c #0000FF', // color blue
  381. '...............',
  382. '...............',
  383. '...............',
  384. '..***.....++++*',
  385. '...++**...+++++',
  386. '.....++*.....+*',
  387. '+*+*+*++**...++',
  388. '++++++++++*..+*',
  389. '+*+*+*++**...++',
  390. '.....++*.....+*',
  391. '...++**...+++++',
  392. '..***.....*+*+*',
  393. '...............',
  394. '...............',
  395. '...............');
  396. XPMPropDestr : array [0..19] of string = (
  397. '15 15 4 1',
  398. '. c None', // no color
  399. '* c #000000', // black
  400. '+ c #0000FF', // color blue
  401. '- c #FF0000', // color red
  402. '............-..',
  403. '...........--..',
  404. '..........--...',
  405. '......***--....',
  406. '.......+--*....',
  407. '.......--++*...',
  408. '+*+*+*--+*++**.',
  409. '+++++--+++++++*',
  410. '+*+*--+*+*++**.',
  411. '...--....++*...',
  412. '..--...++**....',
  413. '.--...***......',
  414. '--.............',
  415. '-..............',
  416. '...............');
  417. XPMPropInitial : array [0..18] of string = (
  418. '15 15 3 1',
  419. '. c None', // no color
  420. '* c #000000', // black
  421. '+ c #0000FF', // color blue
  422. '+*.............',
  423. '+*.............',
  424. '+*.............',
  425. '+*....***......',
  426. '+*.....++**....',
  427. '+*.......++*...',
  428. '+*+*+*+*+*++**.',
  429. '++++++++++++++*',
  430. '+*+*+*+*+*++**.',
  431. '+*.......++*...',
  432. '+*.....++**....',
  433. '+*....***......',
  434. '+*.............',
  435. '+*.............',
  436. '+*.............');
  437. XPMPropFinal : array [0..18] of string = (
  438. '15 15 3 1',
  439. '. c None', // no color
  440. '* c #000000', // black
  441. '+ c #0000FF', // color blue
  442. '.............+*',
  443. '.............+*',
  444. '.............+*',
  445. '....***......+*',
  446. '.....++**....+*',
  447. '.......++*...+*',
  448. '+*+*+*+*++**.+*',
  449. '++++++++++++*+*',
  450. '+*+*+*+*++**.+*',
  451. '.......++*...+*',
  452. '.....++**....+*',
  453. '....***......+*',
  454. '.............+*',
  455. '.............+*',
  456. '.............+*');
  457. implementation
  458. end.