%%-- Blue Book Program 10, on page 167 /outsidecircletext { circtextdict begin /radius exch def /centerangle exch def /ptsize exch def /str exch def /xradius radius ptsize 4 div add def gsave centerangle str findhalfangle add rotate str { /charcode exch def ( ) dup 0 charcode put outsideplacechar } forall grestore end } def /insidecircletext { circtextdict begin /radius exch def /centerangle exch def /ptsize exch def /str exch def /xradius radius ptsize 3 div sub def gsave centerangle str findhalfangle sub rotate str { /charcode exch def ( ) dup 0 charcode put insideplacechar } forall grestore end } def /circtextdict 16 dict def circtextdict begin /findhalfangle { stringwidth pop 2 div 2 xradius mul pi mul div 420 mul %%--use:360 for standard text; 520 for the "speadtext" version (ER 05mar24) } def /outsideplacechar { /char exch def /halfangle char findhalfangle def gsave halfangle neg rotate radius 0 translate -90 rotate char stringwidth pop 2 div neg 0 moveto char show grestore halfangle 2 mul neg rotate } def /insideplacechar { /char exch def /halfangle char findhalfangle def gsave halfangle rotate radius 0 translate 90 rotate char stringwidth pop 2 div neg 0 moveto char show grestore halfangle 2 mul rotate } def /pi 3.1415923 def end %%-- generated EPS prolog by autotrace /bd { bind def } bind def /incompound false def /m { moveto } bd /l { lineto } bd /c { curveto } bd /F { incompound not {fill} if } bd /f { closepath F } bd /S { stroke } bd /*u { /incompound true def } bd /*U { /incompound false def f} bd /k { setcmykcolor } bd /K { k } bd %%--colors used in flower: %%--RGB colours i started with /Kblack { 1.000 1.000 1.000 1.000 k } bd %% 000000 (or decimal 0,0,0 = 0.000 0.000 0.000) /Kwhite { 0.000 0.000 0.000 0.000 k } bd %% ffffff (or decimal 255,255,255 = 1.000 1.000 1.000) /Kflowercolor { 0.000 0.400 0.200 0.400 k } bd %% 993366 (or decimal 153,51,102 = 0.600 0.200 0.400) /Ksepalcolor { 0.000 0.243 0.122 0.639 k } bd %% 5c1e3d (or decimal 92,30,61 = 0.361 0.118 0.239) /Kinkcolor { 0.000 0.122 0.063 0.820 k } bd %% 2e0e1d (or decimal 46,14,29 = 0.180 0.055 0.114) /Kbackground { 0.130 0.000 0.130 0.470 k } bd %% 668866 (or decimal 102,136,102 = 0.400 0.530 0.400) %%-- ================================================================== %%-- == algorithm used for RGB->CMYK conversion: == %%-- == first C:=1-Red M:=1-Green Y:=1-Blue; == %%-- == then K:=min(C,M,Y) is subtracted from each of C,M,Y. == %%-- ================================================================== %%--the colors in the autotrace-generated eps, were to be identical to above--?? %%--0.000 0.400 0.200 0.400 k %%--0.000 0.243 0.125 0.639 k %%--0.000 0.122 0.063 0.824 k %%-- .824 --> .820 %%----Circles+Text for NOCI logo----- /drawlogocircles { gsave %%-- GRAPHIC-STATE-SAVE Kinkcolor /Helvetica-Bold findfont 48 scalefont setfont 325 325 translate (NATIVE ORCHID CONSERVATION INC) 48 90 266 outsidecircletext (1998) 48 270 301 insidecircletext 5.76 setlinewidth 0 0 254 0 360 arc stroke 5.76 setlinewidth 0 0 315 0 360 arc stroke grestore %%-- GRAPHIC-STATE-RESTORE } def %%----The Flower for NOCI logo----- /drawlogoflower { gsave 214 78 translate %%--was: 195 62 (for v1, v2) 1.323 dup scale %%--now bounded by: 0 0 282 479, center is 141 240, move to slightly east of 325 325 (was 306 306) %%-- 05july: reduced the y-translation by 3; should be done to spreadtext version also--??-- %%-- to avoid the acaule being being closer (to circle) on top than on bottom %%-- generated EPS code, BoundingBox: 0 0 214 362 %%-- ER: modified the color-setting bits, to simplify colours Kinkcolor *u 12 356 m 9.559 340.765 18.192 320.601 32 312.851 c 38.687 309 46.833 309.231 54 306.900 c 60.889 304.660 67.617 300.685 75 300.368 c 83.566 300 91.450 304.920 100 304.219 c 112.743 303.173 131.275 293.783 133.584 280 c 135.558 268.216 130.223 252.222 120.937 244.745 c 113.307 238.601 103.598 235.808 96 229.492 c 81.951 217.808 73.627 200.811 61.973 187 c 50.855 173.823 35.444 162.440 31 145 c 42.376 146.730 50 161.741 57.775 169.554 c 64.730 176.632 70.863 184.342 79 190 c 91.722 199.238 104.975 204.546 117 215 c 118.882 195 101.576 196.317 88 188.520 c 73 179.916 56.664 166.301 46.925 152 c 39 140.414 39.921 129.206 38.643 116 c 36.662 95.525 30.658 76.974 45.972 60 c 52.775 52.460 58.637 43.753 70 44.331 c 96.333 45.671 111 79.719 129 94 c 131 79.250 126.172 68.902 122.193 55 c 117.689 39.261 114 23.431 114 7 c 117.560 7 122 6.598 124.934 9.193 c 128.601 12.540 128.657 19.459 129.683 24 c 132.558 36.723 135.817 49 138 62 c 151.320 62 153.868 75 154 86 c 166 84.504 173.220 105.393 179.449 114 c 203.389 147 217.742 190.253 199.676 230 c 196.209 237.627 189.740 243.342 186.388 251 c 182.451 259.995 181.502 270 177.310 279 c 172.307 289.639 162.946 297.242 155.442 306 c 150.631 311.616 146.980 318.334 140.915 322.763 c 132 329.263 120.791 329.585 111 334 c 104.461 336.969 99 342.435 92 344.220 c 75.695 348.349 59.345 339.525 43 341.239 c 31.359 342.460 22.196 351 12 356 c f *U Ksepalcolor *u 41 335 m 41 333 l 53.582 328.451 75.674 328 88 334 c 89.714 328.839 92.856 327.175 98 326 c 100.205 351 54.735 339.285 41 335 c f 22 332 m 25.359 326.900 29 324.347 35 323 c 36.332 314.593 42.847 314.378 50 312.531 c 63 309 75.457 307 89 307 c 82.679 313 76.424 310.960 69 313.735 c 64.427 315.444 60.762 318.708 56 320 c 49.861 321.984 43 321.746 37 323.983 c 31.592 326 27.887 330.475 22 332 c f 35 332 m 36.447 329.579 37.325 328.902 40 328 c 38.553 330.421 37.675 331 35 332 c f *U Kinkcolor *u 91 332 m 91 330 l 93.000 330 95.000 330 97 330 c 94.939 331 93.319 331.621 91 332 c f *U Ksepalcolor *u 108 329 m 117.614 319.858 130.565 317.651 138.911 305.999 c 145.859 296.299 144.672 280.937 153 273 c 152.994 282.313 154.350 296.398 151 305.000 c 144.937 320.587 123.433 328.668 108 329 c f 103 327 m 103 325.667 103 324.333 103 323 c 104.333 323 105.667 323 107 323 c 107 324.333 107 325.667 107 327 c 105.667 327 104.333 327 103 327 c f 75 320 m 77.659 317.385 80.397 316.744 84 316 c 81 318.585 78.840 319.537 75 320 c f 112 318 m 113.391 315.416 114.696 313.816 117 312 c 115.655 314.703 114.432 316.212 112 318 c f 91 316 m 91 315 l 93.640 313.770 96.200 312.801 99 312 c 97.272 315.764 94.938 315.912 91 316 c f 101 314 m 102.679 312.639 104 311.838 106 311 c 104.321 312.361 102.992 313 101 314 c f 122 309 m 125.274 302 130.658 297.989 138 296 c 134 302.886 129.351 306.389 122 309 c f 157 296 m 158.254 292 159.653 289.515 163 287 c 161.692 290.875 160.183 293.408 157 296 c f 159 284 m 156.576 276.638 153.680 269.803 153 262 c 155 262.624 157 263.286 159 264 c 158.585 266 158.256 267.968 158 270 c 159.668 269.260 161.282 268.612 163 268 c 162.637 269.998 162.303 271.992 162 274 c 163 274 l 164 269.670 165.849 265.907 168 262 c 170 262 l 170.361 263 170.639 263.917 171 265 c 172.989 263.825 174.864 262.874 177 262 c 172.921 271 167 278 159 284 c f 132 254 m 141.748 255 146.356 260.180 145 270 c 137.945 267.584 133.914 260.929 132 254 c f 147 257 m 151.225 242.997 157.782 236.471 157 221 c 168 225.319 169.951 231.671 169.992 242.999 c 170 246.262 170.594 251 167.906 253.535 c 163.489 257.548 152.624 256.887 147 257 c f 129 239 m 135 241.274 139.435 244.520 143 250 c 135.898 248.878 131.531 245.832 129 239 c f 175 250 m 178.970 241.497 187 234.696 195 230 c 193 234.953 191.214 238.281 186 240 c 184 245.651 180.569 248 175 250 c f 143 246 m 143.923 236.232 143.701 228.729 143 219 c 144 219 l 149.172 228 148 235.893 148 246 c 146.333 246 144.667 246 143 246 c f *U Kinkcolor *u 162 246 m 162.514 241.586 163.478 238.811 167 236 c 167.445 239.336 167.826 242.638 168 246 c 166 246 164.000 246 162 246 c f *U Ksepalcolor *u 176 241 m 172.589 226.965 178 222.428 183.328 210 c 185.681 204.502 186.469 198 191 194 c 188.524 206.384 186.920 216 180 227 c 181 228 l 196 214 194 193.743 194 175 c 196 175 l 196 189 199.655 204.508 193.966 218 c 190.532 226 182.296 234.831 176 241 c f 136 239 m 132.254 227.889 145.187 230.315 136 239 c f 123 238 m 123.362 234.944 123.850 233.217 126 231 c 125.410 233.793 124.645 235.668 123 238 c f 90 215 m 93.527 216.430 95.685 217.973 98 221 c 99 221 l 94.863 211.645 87.485 213.663 81.232 207.913 c 78 205 77 199.974 76 196 c 85.732 197.885 92.794 203.670 98 212 c 112.832 208.247 116.918 224.890 120 236 c 110.739 233.491 94.555 223.455 90 215 c f *U Kflowercolor *u 128 228 m 128.480 223.176 129.325 219.339 133 216 c 129.718 208.541 128.213 197.237 119 196 c 119 194.333 119 192.667 119 191 c 122.000 191 125 191 128 191 c 128 189.333 128 187.667 128 186 c 107.531 185.996 86.733 181.324 83 158 c 92.967 160 109.616 158.642 107 173 c 115.896 169.914 116 154.642 109.520 148.855 c 101.214 141.507 92 142.656 82 143 c 82 144 l 86 144.529 89.979 144.803 94 145 c 97.909 145.439 113.228 149 106.836 155.920 c 96.818 166.663 79 151.216 75.818 142.000 c 74.555 138.358 72.843 132.280 76 129 c 79 126.287 85.290 126.440 89 124 c 75.798 123.992 68.824 121.550 72 107 c 77.604 109.774 90.649 123.352 94 112 c 80.210 114.449 82.607 104.688 88 96 c 76.360 100 55.822 112.965 57.281 90 c 57.495 86.636 58.393 83.311 59 80 c 57.333 80.333 55.667 80.667 54 81 c 55.244 71.452 59.593 63.421 69 60 c 73 61.937 75 60 78 57 c 75.667 57 73.333 57 71 57 c 76.214 47.554 85 61.833 90 66 c 97.173 63.939 101.690 71 104 77 c 102.662 77.323 101.333 77.656 100 78 c 110.746 83.666 124.617 89.634 124 104 c 137 109.178 145.543 124.972 149 138 c 146 143.597 155 149.498 157.613 154 c 162.803 163.336 162.969 175.645 163 186 c 151.197 183.504 148.419 173.368 138.816 169.362 c 134.569 167.590 129.313 169.210 125 170 c 125 171 l 141.185 178.667 150 205.458 153 222 c 146.387 218.459 146 212.205 142.910 206 c 139.864 199.973 135.452 194.780 132 189 c 131 189 l 135.390 204 146 218 128 228 c f *U Kinkcolor *u 108 225 m 107.528 222.974 107.210 221 107 219 c 109 219 l 108.851 221 108.588 222.960 108 225 c f 99 222 m 100 221 l 99 222 l f *U Ksepalcolor *u 122 222 m 122.256 216.987 122.899 212 123 207 c 125 207 l 124.991 212.489 125.171 217.319 122 222 c f 162 220 m 157.362 205.958 145.997 197.477 143 183 c 153.530 190.456 175.342 205.837 162 220 c f 198 207 m 198.647 205.644 199.304 204.331 200 203 c 201 203 l 200.259 205.177 199.897 205.723 198 207 c f 200 200 m 200 195.333 200 190.667 200 186 c 202 186 l 201.984 190.904 201.994 195.449 200 200 c f 169 197 m 164.945 182.211 165.411 166.821 161.690 152 c 158.715 140 151.443 130.361 150 118 c 163.650 130.466 168.739 158.462 170.936 176 c 171.838 183.194 173.284 190.677 169 197 c f 183 195 m 178 180.961 172 166.999 171 152 c 180.389 161 188.520 182.380 183 195 c f 154 186 m 157.790 188 159.673 189.890 161 194 c 157.670 191.776 155.815 189.564 154 186 c f *U Kflowercolor *u 49 129 m 58.435 133.438 63 142 74 144 c 75.267 149.929 76.989 155.497 72 160 c 78.323 168.865 88.616 173.382 94 183 c 76.575 179.283 66.503 163.171 57 150 c 51.437 142.239 45.737 139.343 49 129 c f *U Ksepalcolor *u 187 178 m 182.300 159.870 171.891 144.288 165 127 c 163.667 127.344 162.338 127.677 161 128 c 159.634 125 158.674 122.208 158 119 c 159.861 120.269 160.801 121 162 123 c 163 123 l 162.789 120.301 162.450 117.670 162 115 c 170.468 120.621 175.759 131.597 179 141 c 180 141 l 179.670 138.666 179.330 136.334 179 134 c 182.288 137 183.656 140.745 185 145 c 183.631 144.701 182.349 144.380 181 144 c 184.601 153.516 191.649 168 187 178 c f *U Kinkcolor *u 116 152 m 116 150 l 127 148.514 142.975 153.462 141 167 c 132.365 162.374 125 156 116 152 c f *U Kflowercolor *u 78 162 m 79 161 l 78 162 l f *U Kinkcolor *u 62 149 m 64.916 149.614 65.781 150.281 67 153 c 64.459 152.000 63.453 151.301 62 149 c f *U Ksepalcolor *u 170 150 m 169.210 147.673 168.547 145.395 168 143 c 170.623 145.284 171.253 146.706 170 150 c f 193 146 m 192 144.521 192 144.797 192 143 c 193 143 194.000 143 195 143 c 194.349 144 193.770 144.975 193 146 c f *U Kinkcolor *u 180 144 m 180 143.000 180 142 180 141 c 181 141 l 180.700 142 180.405 142.966 180 144 c f *U Kflowercolor *u 65 141 m 60 135.671 47 128.233 44.860 121.788 c 42.973 116.300 45.809 109.400 47 104 c 60 107.467 63.751 118.753 67 131 c 65.662 130.677 64.333 130.344 63 130 c 65 133.848 66.394 136.723 65 141 c f *U Kinkcolor *u 97 129 m 101.638 130.948 103.992 133.399 106 138 c 100 137.900 97.858 134.626 97 129 c f *U Ksepalcolor *u 162 134 m 164.739 134.211 165.422 134.303 166 137 c 163.906 136.251 163.323 135.794 162 134 c f 177 133 m 176.738 130.647 176.403 128.333 176 126 c 176.986 124.281 177.513 122.925 178 121 c 181.412 124.286 183.402 127.551 185 132 c 182.335 132.364 179.675 132.716 177 133 c f *U Kinkcolor *u 109 116 m 119.474 116 127.863 118.536 132 129 c 123.401 126.825 114.955 122.650 109 116 c f *U Ksepalcolor *u 172 119 m 174.325 119.689 175.468 120 177 122 c 174.402 121.503 173.526 121 172 119 c f 156 118 m 151.319 110 148.404 103.179 147 94 c 155 99.173 160.756 108.633 156 118 c f 167 114 m 166.287 112 165.622 110 165 108 c 167 108 169 108 171 108 c 170.467 110 169.834 111.987 169 114 c 167 114 l f 142 112 m 141.738 109.647 141.403 107.333 141 105 c 143 107.224 143.573 109 144 112 c 142 112 l f 160 104 m 159.287 102 158.622 100 158 98 c 160.208 99.878 161 101.238 162 104 c 160 104 l f *U Kflowercolor *u 48 87 m 45.808 89.467 43.907 91.432 41 93 c 42 86.689 41.969 80.311 43 74 c 51 81 52.975 92 56 102 c 48 102 48 93 48 87 c f 43 100 m 43.363 97.973 43.517 97.363 45 96 c 44.436 97.752 44 98.542 43 100 c f *U Kinkcolor *u 97 96 m 102.247 91.591 109 92.810 114 97 c 108.266 96.997 102.688 96.752 97 96 c f *U Kinkcolor *u 88 96 m 89 95 l 88 96 l f *U Ksepalcolor *u 141 95 m 141 93.333 141 91.667 141 90 c 142.338 90.323 143.667 90.656 145 91 c 145 93 l 143.669 93.696 142.356 94.353 141 95 c f 155 93 m 155 91 155 89.000 155 87 c 157.365 88.815 158.648 90.344 160 93 c 158.333 93 156.667 93 155 93 c f *U Kinkcolor *u 75 85 m 73.689 75.353 79.721 70.633 89 72 c 84.947 77 80.569 81.524 75 85 c f *U Kinkcolor *u 65 81 m 65.469 77.485 66.485 76.469 70 76 c 68.411 77.861 66.861 79.411 65 81 c f 91 69 m 94.920 70 96.851 71.545 99 75 c 94.960 74 93 72.604 91 69 c f *U Ksepalcolor *u 134 74 m 131.263 63.504 128 53.978 128 43 c 134.386 50 138.440 65.282 134 74 c f *U Kflowercolor *u 53 69 m 53.614 64.882 54.680 62.560 58 60 c 56.836 63.536 55.428 66.174 53 69 c f *U grestore } def %%--Procedure to draw the NOCI logo /DrawLogo { drawlogocircles drawlogoflower } def %%-- has BoundingBox: 0 0 650 650 %%--Procedure to find-, scale-, and set-font; also defines ex-width /stfont { exch findfont exch scalefont setfont /ex-width (x) stringwidth pop def } def %%--Procedure to show a string - is much like show; %% it makes up for CM fonts lacking a space-char (charcode \377 is nonprinting, but is over-wide); %% also, it uses "~" to represent a thin-space; %% and it adds a tiny amount to the inter-character spacing (helps text remain readable in small fontsizes). %%--by Eugen Reimer 2006-Feb /cmshow { /str exch def str { /char exch def /charstr ( ) dup 0 char put def /w charstr stringwidth pop def char 32 eq { ex-width 0.45 mul 0 rmoveto %%move half an ex for a space } { char 126 eq { ex-width 0.17 mul 0 rmoveto %%move a quarter of an ex for a thin-space } { charstr show %%display char normally } ifelse } ifelse ex-width 0.05 mul 0 rmoveto %%an extra twentieth of an ex inter-char spacing } forall } def /cmstringwidth { %%stringwidth companion to cmshow /str exch def /W 0 def str { /char exch def /charstr ( ) dup 0 char put def /w charstr stringwidth pop def char 32 eq { /W W ex-width 0.45 mul add def %%half an ex for a space } { char 126 eq { /W W ex-width 0.17 mul add def %%a quarter of an ex for a thin-space } { /W W w add def %%normal char width for other chars } ifelse } ifelse /W W ex-width 0.05 mul add def %%a twentieth of an ex added to inter-char spacing } forall W 0 %%leave stringwidth on stack, in the same x+y-style used by stringwidth } def %% PostScript procedures for justification & centering (LJ==LeftJustified, RJ==RightJustified) by Eugene Reimer 1999-Feb (from /books/FORMreimbursement.ps, from beans) %% adapted for use with cmshow by adding cmRJ and cmCTR; %% /curx {currentpoint pop} bind def /cury {currentpoint exch pop} bind def /xMove {cury moveto} bind def /yMove {curx exch moveto} bind def /rMove {curx add xMove} bind def /xyLine {1 index 1 index lineto stroke moveto} bind def /xLine {cury xyLine} bind def /rLine {curx add xLine} bind def /xLJ {cury moveto show} bind def /xRJ {1 index stringwidth pop sub cury moveto show} bind def /xCTR {1 index stringwidth pop 0.5 mul sub cury moveto show} bind def /RJ {curx 1 index stringwidth pop sub cury moveto show} bind def /CTR {curx 1 index stringwidth pop 0.5 mul sub cury moveto show} bind def /cmRJ {curx 1 index cmstringwidth pop sub cury moveto cmshow} bind def /cmCTR {curx 1 index cmstringwidth pop 0.5 mul sub cury moveto cmshow} bind def %%rows are measured from the Bottom! %%for Right-Justified: measure to text-Right-edge %%for Centered: measure to text-Center /to {/X 2 index def moveto} bind def /n {X cury yy sub moveto} bind def /p {show} bind def