home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / numberdata.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-06-19  |  15.1 KB  |  212 lines
  1. /* Set data strings for drawing numerals etc. as clips. Numerals produced by exporting ASCII data from 245 point type. Design resembles OCRB. */
  2.  
  3. /*call open("STDERR","ram:traceND","W")
  4. trace r*/
  5.  
  6. /* $VER: NumberData Jan 95 */
  7.  
  8. parse arg varieties, action
  9. if varieties = "" then varieties = "1234567890-.><ISBNlre"
  10. do i=1 to length(varieties)
  11.     thisnumber = substr(varieties,i,1)
  12.     select
  13.         when thisnumber = 0 then call zero
  14.         when thisnumber = 1 then call one
  15.         when thisnumber = 2 then call two
  16.         when thisnumber = 3 then call three
  17.         when thisnumber = 4 then call four
  18.         when thisnumber = 5 then call five
  19.         when thisnumber = 6 then call six
  20.         when thisnumber = 7 then call seven
  21.         when thisnumber = 8 then call eight
  22.         when thisnumber = 9 then call nine
  23.         when thisnumber = "-" then call hyphen
  24.         when thisnumber = "." then call point
  25.         when thisnumber = ">" then call greaterthan
  26.         when thisnumber = "<" then call lessthan
  27.         when thisnumber = "I" then call letterI
  28.         when thisnumber = "S" then call letterS
  29.         when thisnumber = "B" then call letterB
  30.         when thisnumber = "N" then call letterN
  31.         when thisnumber = "l" then call leftarrowhead
  32.         when thisnumber = "r" then call rightarrowhead
  33.         when thisnumber = "e" then call euroe
  34.         otherwise exit_msg("Invalid entry: "thisnumber)
  35.         end
  36.  
  37.         clipstring = boxsizeX ||"0a"x|| boxsizeY||"0a"x|| numstring1 ||"0a"x||numstring2||"0a"x|| numstring3
  38.         clipname = "pdusnumdata"||thisnumber
  39.         call setclip(clipname, clipstring)
  40.         if upper(action) = "CLOSE" then call setclip(clipname)
  41.         end
  42.  
  43. return
  44.  
  45. /* ++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++++ */
  46.  
  47. /* Bezier curve definitions for numerals */
  48.  
  49. zero:
  50. boxsizeX = 3.0914
  51. boxsizeY = 5.0667
  52. numstring1 = "1.5384 0 -1.0079 0.0000 1.2467 0.0000,3.0901 2.4137 0.0000 -1.9893 0.0000 1.9098,1.5384 5.0662 1.4191 0.0000 -1.2732 0.0000,0 2.3342 0.0000 2.3076 0.0000 -2.0424,1.5384 0 -1.0079 0.0000 1.2467 0.0000"
  53. numstring2 = "1.5517 0.4907 1.0087 0.0000 -0.9681 0.0000,0.4642 2.6790 0.0000 -1.8567 0.0000 1.8567,1.5915 4.6153 -0.9549 0.0000 0.9166 0.0000,2.5994 2.4668 0.0000 2.0958 0.0000 -1.7506,1.5517 0.4907 1.0087 0.0000 -0.9681 0.0000"
  54. numstring3 = ""
  55. return
  56.  
  57. one:
  58. boxsizeX = 1.8731
  59. boxsizeY = 4.9770
  60. numstring1 = "0 1.2620 0.0000 0.1341 0.0000 -0.1341,0.7547 0.5141 -0.3641 0.3217 0.3032 -0.2679,1.5196 0 -0.2823 0.0000 0.2576 0.0000,1.8723 0.5606 0.0000 -0.3344 0.0000 0.2836,1.8384 4.5357 0.0000 -0.7281 0.0000 0.3302,1.6225 4.9760 0.2159 0.0000 -0.1733 0.0000,1.3982 4.5315 0.0000 0.3260 0.0000 -0.3217,1.3982 0.7935 0.0000 0.2576 0.0000 -0.0600,1.3474 0.6919 0.0381 0.0000 -0.1524 0.0000,0.3992 1.4423 0.1294 -0.1294 -0.1610 0.1610,0 1.2620 0.0000 0.1341 0.0000 -0.1341"
  61. numstring2 = ""; numstring3 = ""
  62. return
  63.  
  64. two:
  65. boxsizeX = 2.8380
  66. boxsizeY = 4.9710
  67. numstring1 = "0 0.5715 0.0000 0.0931 0.0000 -0.2582,1.3885 0 -0.6265 0.0085 0.6265 -0.0085,2.8363 1.2869 0.0000 -0.9059 0.0000 1.4647,0.5419 4.2672 0.0000 -1.3547 0.0000 0.1524,0.7197 4.5042 -0.1439 0.0000 0.1439 0.0000,2.5993 4.5042 -0.1949 0.0000 0.1185 0.0000,2.8363 4.7582 0.0000 -0.0931 0.0000 0.0847,2.6162 4.9699 0.1778 0.0000 -0.6265 0.0000,0.4657 4.9699 0.7197 0.0000 -0.2963 0.0000,0.0931 4.3518 0.0000 0.4233 0.0000 -1.1176,1.5071 2.4045 -0.6562 0.4360 0.4304 -0.2860,2.3580 1.2827 0.0000 0.5588 0.0000 -0.5588,1.3377 0.4910 0.5673 0.0085 -0.5673 -0.0085,0.2413 0.7916 0.2540 0.0000 -0.1947 0.0000,0 0.5715 0.0000 0.0931 0.0000 -0.2582" 
  68. numstring2 = ""; numstring3 = ""
  69. return
  70.  
  71. three:
  72. boxsizeX = 3.0370
  73. boxsizeY = 4.9488
  74. numstring1 = "0 0.2286 0.0000 0.1397 0.0000 -0.1820,0.2836 0 -0.1566 0.0000 0.0810 0.0000,2.5442 0 -0.7324 0.0000 0.0974 0.0000,2.8829 0.3513 0.0000 -0.2455 0.0000 0.2667,2.5993 0.8424 0.1863 -0.1863 -0.1218 0.1218,1.8584 1.6002 0.4148 -0.4150 -0.0550 0.0550,1.7272 1.7949 0.0000 -0.0335 0.0000 0.1350,2.2437 2.0870 -0.1947 -0.0762 0.1687 0.0660,3.0353 3.4078 0.0000 -0.8366 0.0000 0.9837,1.2742 4.9487 0.8170 0.0000 -0.5334 0.0000,0.0212 4.5127 0.0000 0.2709 0.0000 -0.1402,0.2794 4.3180 -0.1642 0.0000 0.1651 0.0000,1.2869 4.4873 -0.5376 0.0000 0.3383 0.0000,2.5823 3.3782 0.0000 1.0160 0.0000 -0.7959,1.4393 2.3368 0.2970 0.0000 -0.2286 0.0000,0.9413 2.0419 0.0000 0.2434 0.0000 -0.1962,1.3631 1.4986 -0.1397 0.1397 0.3725 -0.3725,2.1675 0.6434 -0.1509 0.1509 0.1016 -0.1016,2.0489 0.4826 0.0955 0.0000 -0.1101 0.0000,0.1651 0.4783 0.2160 0.0000 -0.1016 0.0000,0 0.2286 0.0000 0.1397 0.0000 -0.1820"
  75. numstring2 = ""; numstring3 = ""
  76. return
  77.  
  78. four:
  79. boxsizeX = 2.9400
  80. boxsizeY = 4.9620
  81. numstring1 = "1.6594 0 -0.2069 0.0000 0.1355 0.0000,1.8880 0.2244 0.0000 -0.0931 0.0000 0.1345,1.6319 0.7949 0.1217 -0.2313 -0.1217 0.2313,0.5607 3.0590 0.1565 -0.3052 -0.0443 0.0864,0.5122 3.2470 0.0000 -0.0508 0.0000 0.0741,0.7662 3.3443 -0.1217 0.0000 0.1217 0.0000,1.7526 3.3443 -0.1461 0.0000 0.1058 0.0000,1.8997 3.1808 0.0000 0.1043 0.0000 -0.1582,1.8997 2.4747 0.0000 0.3151 0.0000 -0.1337,2.1590 2.2564 -0.1609 0.0000 0.1461 0.0000,2.3749 2.4680 0.0000 -0.1095 0.0000 0.1095,2.3791 3.2300 0.0000 -0.0974 0.0000 0.0974,2.5146 3.3570 -0.0852 0.0000 0.2371 0.0000,2.9379 3.5983 0.0000 -0.2371 0.0000 0.0974,2.7516 3.8227 0.0852 0.0000 -0.1355 0.0000,2.4172 3.8481 0.0339 -0.0339 -0.0330 0.0330,2.3791 4.0682 -0.0000 -0.1206 0.0000 0.2371,2.3833 4.6821 0.0000 -0.2328 0.0000 0.2032,2.1674 4.9615 0.1583 0.0000 -0.1583 0.0000,1.9177 4.7117 0.0000 0.1566 0.0000 -0.2794,1.9177 3.9243 0.0000 0.3217 0.0000 -0.1185,1.4605 3.8100 0.2316 0.0000 -0.2455 0.0000,0.4445 3.8058 0.1982 0.0000 -0.2413 0.0000,0 3.3316 0.0000 0.2117 0.0000 -0.1863,0.3416 2.4747 -0.1085 0.2299 0.4966 -1.0523,1.3419 0.3217 -0.3556 0.7451 0.0987 -0.2068,1.6594 0 -0.2069 0.0000 0.1355 0.0000"
  82. numstring2 = ""; numstring3 = ""
  83. return
  84.  
  85. five:
  86. boxsizeX = 2.6729
  87. boxsizeY = 4.9441
  88. numstring1 = "0.6380 0 -0.1803 0.0000 0.5597 0.0000,2.4356 0 -0.5859 0.0000 0.1529 0.0000,2.6510 0.2109 0.0000 -0.0974 0.0000 0.1291,2.4224 0.4565 0.1228 0.0000 -0.5376 0.0000,0.8085 0.4565 0.5334 0.0000 -0.1399 0.0000,0.6488 0.6889 0.0000 -0.1507 0.0000 0.1507,0.6488 1.5063 0.0000 -0.1292 0.0000 0.1482,0.8085 1.6164 -0.1507 0.0000 0.3556 0.0000,2.6724 3.1645 0.0323 -1.4638 -0.0323 1.4638,0.2836 4.9438 0.8975 0.0000 -0.2625 0.0000,0 4.7364 0.0000 0.1270 0.0000 -0.1609,0.2921 4.4866 -0.1507 0.0000 0.1778 0.0000,2.1988 3.1430 0.0000 1.4368 0.0000 -1.1266,0.4868 2.0948 0.3810 0.0000 -0.2807 0.0000,0.1687 1.7809 0.0000 0.2189 0.0000 -0.2155,0.1687 0.3247 0.0000 0.4069 0.0000 -0.2370,0.6380 0 -0.1803 0.0000 0.5597 0.0000"
  89. numstring2 = ""; numstring3 = ""
  90. return
  91.  
  92. six:
  93. boxsizeX = 3.1481
  94. boxsizeY = 5.0451
  95. numstring1 = "2.2672 0 -0.1287 0.0000 0.0915 0.0000,2.5207 0.2700 -0.0210 -0.1671 0.0108 0.0859,1.7944 1.0370 0.3143 -0.3457 -0.2033 0.2237,1.2200 1.7181 0.2623 -0.3410 -0.1017 0.1322,1.3115 1.9061 -0.1003 0.0158 0.0966 -0.0152,1.6368 1.8857 -0.1253 0.0000 0.5795 0.0000,3.1472 3.3857 0.0000 -1.0120 0.0000 1.1853,1.6402 5.0452 0.6676 0.0000 -1.1115 0.0000,0 3.4514 0.0000 0.9483 0.0000 -0.9556,1.2099 0.9708 -0.5180 0.5871 0.3050 -0.3456,2.2672 0 -0.1287 0.0000 0.0915 0.0000"
  96. numstring2 = "1.6063 2.3697 -0.7116 0.0000 0.6100 0.0000,2.6731 3.4873 0.0000 -0.6663 0.0000 0.5537,1.6402 4.5880 0.6943 0.0000 -0.6943 0.0000,0.4880 3.5327 0.0000 0.7930 0.0000 -0.7930,1.6063 2.3697 -0.7116 0.0000 0.6100 0.0000"
  97. numstring3 = ""
  98. return
  99.  
  100. seven:
  101. boxsizeX = 3.1410
  102. boxsizeY = 4.9010
  103. numstring1 = "0.1729 0 -0.0719 0.0000 0.8235 0.0000,2.8060 0 -0.3456 0.0000 0.1118 0.0000,3.1414 0.4677 0.0000 -0.2847 0.0000 1.1183,1.3217 4.5952 0.0000 -2.8669 0.0000 0.1627,1.1183 4.9002 0.1322 0.0000 -0.1830 0.0000,0.8540 4.6562 0.0000 0.1830 0.0000 -2.9076,2.5925 0.5998 0.0000 0.7015 0.0000 -0.0915,2.3586 0.4677 0.2033 0.0000 -0.6608 0.0000,0.1932 0.4677 0.8845 0.0000 -0.1423 0.0000,0 0.2237 0.0000 0.1017 0.0000 -0.0813,0.1729 0 -0.0719 0.0000 0.8235 0.0000"
  104. numstring2 = ""; numstring3 = ""
  105. return
  106.  
  107. eight:
  108. boxsizeX = 3.1307
  109. boxsizeY = 5.1156
  110. numstring1 = "1.5110 0 -0.6128 0.0000 0.6657 0.0000,2.8740 1.1411 0.0000 -0.7185 0.0000 0.8067,2.0921 2.2822 0.0000 -0.0931 0.0000 0.0593,3.1302 3.6411 0.0000 -0.8382 0.0000 0.9483,1.5321 5.1139 0.8615 0.0000 -0.9758 0.0000,0 3.6769 0.0000 0.9087 0.0000 -0.8317,0.9416 2.3076 0.0000 0.0847 0.0000 -0.1397,0.2008 1.1411 0.0000 0.7051 0.0000 -0.6340,1.5110 0 -0.6128 0.0000 0.6657 0.0000"
  111. numstring2 = "1.5532 0.5177 -0.3704 0.0000 0.3805 0.0000,2.3774 1.1834 0.0000 -0.5394 0.0000 0.4088,1.5385 1.9647 0.1585 0.0000 -0.1585 0.0000,0.6918 1.1265 0.0000 0.4657 0.0000 -0.4318,1.5532 0.5177 -0.3704 0.0000 0.3805 0.0000"
  112. numstring3 = "1.5046 4.6233 0.6340 0.0000 -0.5287 0.0000,0.4378 3.7512 -0.0211 0.6762 0.0211 -0.6762,1.5955 2.5992 -0.2433 0.0000 0.1462 0.0000,2.6521 3.7615 0.0000 -0.6961 0.0000 0.6925,1.5046 4.6233 0.6340 0.0000 -0.5287 0.0000"
  113. return
  114.  
  115. nine:
  116. boxsizeX = 3.1611
  117. boxsizeY = 5.0780
  118. numstring1 = "1.2987 5.0774 0.1763 0.0000 -0.0915 0.0000,1.0401 4.8423 0.0000 0.1684 0.0000 -0.0999,1.6043 4.1018 -0.2630 0.3862 0.1881 -0.2762,2.1802 3.2204 -0.2468 0.3702 0.0925 -0.1387,2.0861 3.1263 0.1003 -0.0158 -0.0966 0.0152,1.5807 3.1851 0.1253 0.0000 -0.6523 0.0000,0 1.6102 0.0000 1.0637 0.0000 -1.1165,1.6101 0 -0.7581 0.0000 1.0519 0.0000,3.1602 1.6283 0.0000 -0.9483 0.0000 0.9556,2.2448 3.9843 0.4407 -0.6641 -0.2549 0.3840,1.2987 5.0774 0.1763 0.0000 -0.0915 0.0000"
  119. numstring2 = "1.5043 2.6974 0.7116 0.0000 -0.6100 0.0000,0.5053 1.5867 0.0000 0.6663 0.0000 -0.5537,1.5807 0.4878 -0.6943 0.0000 0.6943 0.0000,2.6722 1.5469 0.0000 -0.6654 0.0000 0.7930,1.5043 2.6974 0.7116 0.0000 -0.6100 0.0000"
  120. numstring3 = ""
  121. return
  122.  
  123. hyphen:
  124. boxsizeX = 3.4120
  125. boxsizeY = 5.0000
  126. numstring1 = "0 2.2500  0.0000 0.0000 0.0000 0.0000,0 2.7500  0.0000 0.0000 0.0000 0.0000,3.4120 2.7500  0.0000 0.0000 0.0000 0.0000,3.4120 2.2500  0.0000 0.0000 0.0000 0.0000,0 2.2500  0.0000 0.0000 0.0000 0.0000"
  127. numstring2 = ""; numstring3 = ""
  128. return
  129.  
  130. point:
  131. boxsizeX = 1.4490
  132. boxsizeY = 5
  133. numstring1 = "0 3.8427  0.0000 0.0000 0.0000 0.0000,0 5  0.0000 0.0000 0.0000 0.0000,1.4490 5  0.0000 0.0000 0.0000 0.0000,1.4490 3.8427  0.0000 0.0000 0.0000 0.0000,0 3.8427  0.0000 0.0000 0.0000 0.0000"
  134. numstring2 = ""; numstring3 = ""
  135. return
  136.  
  137. greaterthan:
  138. boxsizeX = 3.8000
  139. boxsizeY = 5.0000
  140. numstring1 = "3.8000 2.6000 0.0000 0.0000 0.0000 0.0000,0 5.0000 0.0000 0.0000 0.0000 0.0000,0 4.3000 0.0000 0.0000 0.0000 0.0000,2.8000 2.6000 0.0000 0.0000 0.0000 0.0000,0 0.7000 0.0000 0.0000 0.0000 0.0000,0 0 0.0000 0.0000 0.0000 0.0000,3.8000 2.6000 0.0000 0.0000 0.0000 0.0000"
  141. numstring2 = ""; numstring3 = ""
  142. return
  143.  
  144. lessthan:
  145. boxsizeX = 3.7998
  146. boxsizeY = 5.0000
  147. numstring1 = "0 2.4000 0.0000 0.0000 0.0000 0.0000,3.8000 0 0.0000 0.0000 0.0000 0.0000,3.8000 0.7000 0.0000 0.0000 0.0000 0.0000,1.0000 2.4000 0.0000 0.0000 0.0000 0.0000,3.8000 4.3000 0.0000 0.0000 0.0000 0.0000,3.8000 5.0000 0.0000 0.0000 0.0000 0.0000,0 2.4000 0.0000 0.0000 0.0000 0.0000"
  148. numstring2 = ""; numstring3 = ""
  149. return
  150.  
  151.  
  152. rightarrowhead:
  153. boxsizeX = 3.8000
  154. boxsizeY = 5.0000
  155. numstring1 = "3.8000 2.6000 0.0000 0.0000 0.0000 0.0000,0 5.0000 0.0000 0.0000 0.0000 0.0000,0 0 0.0000 0.0000 0.0000 0.0000,3.8000 2.6000 0.0000 0.0000 0.0000 0.0000"
  156. numstring2 = ""; numstring3 = ""
  157. return
  158.  
  159. leftarrowhead:
  160. boxsizeX = 3.7998
  161. boxsizeY = 5.0000
  162. numstring1 = "0 2.4000 0.0000 0.0000 0.0000 0.0000,3.8000 0 0.0000 0.0000 0.0000 0.0000,3.8000 5.0000 0.0000 0.0000 0.0000 0.0000,0 2.4000 0.0000 0.0000 0.0000 0.0000"
  163. numstring2 = ""; numstring3 = ""
  164. return
  165.  
  166.  
  167. euroe:
  168. boxsizeX = 5.4571
  169. boxsizeY = 5.1032
  170. numstring1 = "2.8436 0 -1.4372 -0.0133 1.4504 0.0127,5.4559 2.6680 0.0000 -1.6368 0.0000 0.0000,1.0911 2.6680 0.0000 0.0000 0.0000 0.0000,1.0911 4.1716 0.0000 -0.9049 0.2795 0.2661,2.8211 4.8237 -1.0247 0.0000 1.0912 0.0000,4.4180 4.1318 0.0000 0.0000 0.0000 0.0000,4.9369 4.1318 0.0000 0.0000 0.0000 0.0000,2.7679 5.1032 1.5303 0.0127 -1.5303 -0.0134,0 2.5881 0.0000 1.4106 0.0000 -1.4106,2.8436 0 -1.4372 -0.0133 1.4504 0.0127"
  171. numstring2 = "2.8743 0.2727 -0.7719 0.0000 0.9847 0.0000,4.3914 1.0046 0.0000 0.0000 0.0000 0.0000,4.3914 2.4817 0.0000 0.0000 0.0000 0.0000,1.0911 2.4817 0.0000 0.0000 0.0000 0.0000,1.0911 1.0445 0.0000 0.9049 0.4658 -0.4526,2.8743 0.2727 -0.7719 0.0000 0.9847 0.0000"
  172. numstring3 = ""
  173. return
  174.  
  175.  
  176. letterI:
  177. boxsizeX =  2.5342
  178. boxsizeY = 4.9400
  179. numstring1 = "0 4.2750  0.0000 0.0000 0.0000 0.0000, 0 4.9400  0.0000 0.0000 0.0000 0.0000,2.5342 4.9400  0.0000 0.0000 0.0000 0.0000,2.5342 4.2750  0.0000 0.0000 0.0000 0.0000,1.6290 4.2750  0.0000 0.0000 0.0000 0.0000,1.6290 0.6370  0.0000 0.0000 0.0000 0.0000, 2.3802 0.6370  0.0000 0.0000 0.0000 0.0000,2.3802 0  0.0000 0.0000 0.0000 0.0000,0.1561 0  0.0000 0.0000 0.0000 0.0000,0.1561 0.6370  0.0000 0.0000 0.0000 0.0000,0.9052 0.6370  0.0000 0.0000 0.0000 0.0000,0.9052 4.2750  0.0000 0.0000 0.0000 0.0000,0 4.2750  0.0000 0.0000 0.0000 0.0000"
  180. numstring2 = ""; numstring3 = ""
  181. return
  182.  
  183.  
  184. letterS:
  185. boxsizeX = 3.1549
  186. boxsizeY = 5.1570
  187. numstring1 = "2.3359 1.2950  0.0000 0.0000 0.0000 0.0000,3.1040 1.2950  0.0000 0.0000 -0.0614 -0.8018,1.6374 0.0010  0.8630 0.0000 -0.9727 0.0000,0.0527 1.3113  0.0000 -0.7596 0.0000 0.5676,1.0255 2.6302  -0.6541 -0.3101 0.0000 0.0000,1.3800 2.8011  0.0000 0.0000 0.6288 0.3018,2.3781 3.7680  0.0000 -0.4832 0.0000 0.4136,1.5003 4.5082  0.5338 0.0000 -0.4494 0.0000,0.7765 3.7340  0.0000 0.4980 0.0000 0.0000,0.7765 3.7063  0.0000 0.0000 0.0000 0.0000,0 3.7063  0.0000 0.0000 0.0335 0.9411,1.4918 5.1560  -0.9411 0.0000 1.0250 0.0000,3.1549 3.7760  0.0000 0.8356 0.0000 -0.7322,1.9729 2.2841  0.7596 0.3716 0.0000 0.0000,1.6902 2.1470  0.0000 0.0000 -0.5697 -0.2762,0.8187 1.2950  0.0000 0.3608 0.0000 -0.3629,1.5868 0.6470  -0.4579 0.0000 0.4473 0.0000,2.3359 1.2950  -0.0170 -0.3965 0.0000 0.0000,2.3359 1.2950  0.0000 0.0000 0.0000 0.0000"
  188. numstring2 = ""; numstring3 = ""
  189. return
  190.  
  191.  
  192. letterB:
  193. boxsizeX = 3.5940
  194. boxsizeY = 4.9410
  195. numstring1 = "0 0.0010  0.0000 0.0000 0.0000 0.0000,0 4.9410  0.0000 0.0000 0.0000 0.0000,1.6460 4.9410  0.0000 0.0000 0.4220 0.0000,2.7920 4.7680  -0.3524 0.1624 0.5085 -0.2319,3.5932 3.4910  0.0000 0.5697 0.0000 -0.5592,2.8441 2.3620  0.4916 0.1731 0.4220 -0.1729,3.4730 1.3450  0.0000 0.5167 0.0000 -0.8356,1.7743 0.0010  1.1120 0.0000 0.0000 0.0000,0 0.0010  0.0000 0.0000 0.0000 0.0000"
  196.  
  197. numstring2 = "0.7240 2.6891  0.0000 0.0000 0.0000 0.0000,1.6540 2.6891  0.0000 0.0000 0.7765 0.0000,2.8170 3.4830  0.0000 -0.5423 0.0000 0.5948,1.5850 4.2843  0.8103 0.0000 0.0000 0.0000,0.7240 4.2843  0.0000 0.0000 0.0000 0.0000,0.7240 2.6891  0.0000 0.0000 0.0000 0.0000"
  198.  
  199. numstring3 = "0.7240 0.6550  0.0000 0.0000 0.0000 0.0000,1.6120 0.6550  0.0000 0.0000 0.7487 0.0000,2.7323 1.3702  0.0000 -0.5167 0.0000 0.5167,1.5850 2.0440  0.7596 0.0000 0.0000 0.0000,0.7240 2.0440  0.0000 0.0000 0.0000 0.0000,0.7240 0.6550  0.0000 0.0000 0.0000 0.0000"
  200. return
  201.  
  202. letterN:
  203. boxsizeX = 3.3279
  204. boxsizeY = 5.0260
  205. numstring1 = "0 0  0.0000 0.0000 0.0000 0.0000,0 5.0260  0.0000 0.0000 0.0000 0.0000,0.6819 5.0260  0.0000 0.0000 0.0000 0.0000,0.6819 1.2423  0.0000 0.0000 0.0000 0.0000,2.5009 5.0260  0.0000 0.0000 0.0000 0.0000,3.3279 5.0260  0.0000 0.0000 0.0000 0.0000,3.3279 0  0.0000 0.0000 0.0000 0.0000,2.6461 0  0.0000 0.0000 0.0000 0.0000,2.6461 3.7491  0.0000 0.0000 0.0000 0.0000,0.8631 0  0.0000 0.0000 0.0000 0.0000,0 0  0.0000 0.0000 0.0000 0.0000"
  206. numstring2 = ""; numstring3 = ""
  207. return
  208.  
  209.  
  210. /* ++++++++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++ */
  211.  
  212.