| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 1070.4 | Hackers delight... | SHTGUN::SCHRADER | CSS::SCHRADER=264-4170=MK01/2K12 | Fri Aug 04 1989 09:55 | 18 |
| I'm glad you all like it. I did this using RAGS. RAGS is an internal
(DEC internal that is) graphics editor that runs under DECwindows. I'm currently
using a VS2000. What I did was to create a single copy of the label using RAGS
then create a postscript file of it using MOPS (a formatter which is part of
the RAGS kit). Then, I hand tweaked the postscript to print nine on a sheet
at a reasonable scale, added variables to hold the AMA number, name,
address, etc. and added some functions to aid printing the variables.
The last step was to bundle the postscript into the .COM file
to provide a user interface. In retrospect, it would have been easier
to make nine copies of the label inside of rags by copying the first one
around rather than hacking the postscript but even so the postscript has to
be changed to allow printing the user's AMA number & etc when the .COM
file is run. By the way, I like RAGS a lot better than SIGHT but your choice
depends on your workstation software. RAGS runs ONLY under DECwindows, SIGHT
runs ONLY under VWS. If anyone wants to try something similar then just
send me some mail if you run into problems and we can probably make it work.
G. Schrader
|
| 1070.6 | It works! | TARKIN::HARTWELL | Dave Hartwell | Fri Aug 04 1989 11:56 | 13 |
| The answer my friends was blow'in in the Snow.... Dan Snow that is.
Simply:
Pri/que=your queue name/para=(data_type=post) filename.ps
It looks marvelous, simply marvelous.......
Dave
|
| 1070.7 | | WRASSE::FRIEDRICHS | Never trust a premi! | Wed Aug 09 1989 12:13 | 434 |
| Great Job Glen!!! They really come out nice!! And one sheet will last
most people a whole flying season!
However, to take is from its current state of 99.999% perfect to 100%
I have corrected the typo "adress" to be "address".
I know this is a nit, but I figured I might as well post the corrected
copy of the procedure so that future readers have the best that we
have.
Again, super job glen!
cheers,
jeff
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$ CLOSE/NOLOG IN
$ OPEN/READ IN SYS$COMMAND:
$ READ/PROMPT="Enter AMA License Number [DEFAULT=""''AMA$LICENSE'""] > " IN LICENSE
$ IF LICENSE.EQS."" THEN LICENSE=AMA$LICENSE
$ READ/PROMPT="Enter Your Name [DEFAULT=""''AMA$NAME'""] > " IN PNAME
$ IF PNAME.EQS."" THEN PNAME=AMA$NAME
$ READ/PROMPT="Enter Your Street Address [DEFAULT=""''AMA$STREET'""] > " IN STREET
$ IF STREET.EQS."" THEN STREET=AMA$STREET
$ READ/PROMPT="Enter Your City [DEFAULT=""''AMA$CITY'""] > " IN CITY
$ IF CITY.EQS."" THEN CITY=AMA$CITY
$ READ/PROMPT="Enter State [DEFAULT=""''AMA$STATE'""] > " IN STATE
$ IF STATE.EQS."" THEN STATE=AMA$STATE
$ READ/PROMPT="Enter Phone Number [DEFAULT=""''AMA$PHONE'""] > " IN PHONE
$ IF PHONE.EQS."" THEN PHONE=AMA$PHONE
$ IF "''AMA$FILE'".EQS."" THEN AMA$FILE="AMA$ID.PS"
$ READ/PROMPT="Enter Output Filename [DEFAULT=""''AMA$FILE'""] > " IN OFILE
$ IF OFILE .EQS."" THEN OFILE=AMA$FILE
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT "Is the following correct?"
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT " AMA License Number > ",LICENSE
$ WRITE SYS$OUTPUT " Your Name > ",PNAME
$ WRITE SYS$OUTPUT " Your Street Address > ",STREET
$ WRITE SYS$OUTPUT " Your City > ",CITY
$ WRITE SYS$OUTPUT " State > ",STATE
$ WRITE SYS$OUTPUT " Phone Number > ",PHONE
$ WRITE SYS$OUTPUT " Output Filename > ",OFILE
$ WRITE SYS$OUTPUT ""
$ READ/PROMPT="OK (Y/[N]) > " IN TEMP
$ CLOSE/NOLOG IN
$ IF (TEMP.NES."Y").AND.(TEMP.NES."y") THEN GOTO EXIT
$ AMA$LICENSE == LICENSE
$ AMA$NAME == PNAME
$ AMA$STREET == STREET
$ AMA$CITY == CITY
$ AMA$STATE == STATE
$ AMA$PHONE == PHONE
$ AMA$FILE == OFILE
$ COPY/NOLOG SYS$INPUT: 'F$PARSE(OFILE,".PS")'
%!PS-Adobe-2.0 EPSF-1.2
%%Title: ID1.PS
%%Creator: ID.COM
%%CreationDate:
%%Pages:
%%BoundingBox:
%%EndComments
%%BeginProlog
save
/an /arcn load def
/ar /arc load def
/cl /closepath load def
/ex /exch load def
/fi /eofill load def
/Bxr {arcto pop pop pop pop} bind def
/gs /gsave load def
/gr /grestore load def
/li /lineto load def
/mo /moveto load def
/np /newpath load def
/rl /rlineto load def
/ro /rotate load def
/rgb /setrgbcolor load def
/sh /show load def
/sc /scale load def
/sd /setdash load def
/slc /setlinecap load def
/slj /setlinejoin load def
/slw /setlinewidth load def
/st /stroke load def
/tr /translate load def
% THIS SECTION WILL DEFINE THE ISOLATIN1 VECTOR...
mark % CREATE ISOLatin1 ENCODING
/ISOLatin1
8#000 1 8#054 {StandardEncoding ex get} for
/minus
8#056 1 8#217 {StandardEncoding ex get} for
/dotlessi
8#301 1 8#317 {StandardEncoding ex get} for
/space /exclamdown /cent /sterling /currency /yen /brokenbar /section
/dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen
/registered /macron /degree /plusminus /twosuperior /threesuperior /acute
/mu /paragraph /periodcentered /cedilla /onesuperior /ordmasculine
/guillemotright /onequarter /onehalf /threequarters /questiondown /Agrave
/Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
/Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde
/Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave
/Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute
/acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute
/ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde
/ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave
/uacute /ucircumflex /udieresis /yacute /thorn /ydieresis
/ISOLatin1 where not {256 array astore def} if
cleartomark
%
% THIS ROUTINE WILL RE-ENCODE THE FILE...
/reencodedict 10 dict def %Local storage for ReENCODE
/ReENCODE { % /basefont /newfont encoding ReENCODE
/newencoding ex def %ARG: NAME OF ENCODING VECTOR
/newfontname ex def %ARG: NEW NAME FOR FONT AFTER RE-ENCODING
findfont
/basefontdict ex def %ARG: NAME OF FONT TO BE RE-ENCODED
basefontdict maxlength dict begin %CREATE AND OPEN NEW DICT
basefontdict { %COPY ENTRIES FROM BASE FONT DICT TO NEW ONE
1 index /FID ne {
def %IF NOT THE ONE WE'RE ENCODING, JUST COPY PTRS
} { %else
pop pop %IGNORE FID AND ENCODING FOR ONE WE'RE ENCODING
} ifelse
} forall
/FontName newfontname def %DEFINE NEW NAME
/Encoding newencoding def %DEFINE NEW ENCODING VECTOR
newfontname currentdict definefont %TURN IT INTO A PS FONT
pop %IGNORE MODIFIED DICT RETURNED BY DEFINEFONT
end
} bind def
/CBdict 5 dict def
/Arc { np 1 eq {ar} {an} ifelse } bind def
/Box { np mo li li li cl } bind def
/Circle { np 0 360 ar } bind def
/LF { findfont } bind def
/SF { makefont setfont } bind def
/Line { np mo li } bind def
/Text
{ np mo dup 4 1 roll
stringwidth pop ex 72 mul ex sub ex div
dup dup sub 3 -1 roll ashow } bind def
/XText
{ np mo dup stringwidth pop 2 div neg 0 rmoveto show } bind def
/YText
{ np mo show } bind def
/OText
{ gs np mo slw false charpath st gr } bind def
/Label
{ np mo sh } bind def
/Crop
{ CBdict begin
/y2 ex def
/x2 ex def
/y1 ex def
/x1 ex def
np x1 y1 mo
x2 y1 li
x2 y2 li
x1 y2 li cl
1 eq {gs rgb fi gr} {pop pop pop} ifelse
clip np
end
} bind def
%%EndProlog
%%BeginSetup
%%EndSetup
$!
$!
$ OPEN/APPEND OUT 'F$PARSE(OFILE,".PS")'
$ WRITE OUT "/LBL-License {(''LICENSE')} bind def"
$ WRITE OUT "/LBL-Name {(''PNAME')} bind def"
$ WRITE OUT "/LBL-Address {(''STREET')} bind def"
$ WRITE OUT "/LBL-City {(''CITY')} bind def"
$ WRITE OUT "/LBL-State {(''STATE')} bind def"
$ WRITE OUT "/LBL-Phone {(''PHONE')} bind def"
$ CLOSE OUT
$ APPEND SYS$INPUT: 'F$PARSE(OFILE,".PS")'
18.000 270.000 tr
1 -1 sc
0.540 0.459 sc
0.923 slw
0 slc
0 slj
/Wht {0.000 0.000 0.000 rgb} bind def
/Blk {1.000 1.000 1.000 rgb} bind def
/Blkd {gs 1.000 1.000 1.000 rgb cl fi gr st} bind def
/Blks {gs 1.000 1.000 1.000 rgb fi gr st} bind def
/Font-setup {
/Souvenir-Demi /Souvenir-Demi@ISO ISOLatin1 ReENCODE
/LubalinGraph-Book /LubalinGraph-Book@ISO ISOLatin1 ReENCODE
/NewCenturySchlbk-Roman /NewCenturySchlbk-Roman@ISO ISOLatin1 ReENCODE
/Times-Bold /Times-Bold@ISO ISOLatin1 ReENCODE
} bind def
/Label-emblem {
(Label-e) print
0.923 slw
0 slc
71.581 47.373 149.347 47.373 Line st
149.016 52.291 4.930 -351.163 -86.151 -1 Arc
Blkd
74.703 44.818 8.275 -264.087 -157.838 1 Arc
Blkd
71.911 42.454 4.930 -171.162 -266.163 -1 Arc
Blkd
153.888 53.049 73.851 53.049 Line st
85.019 52.779 11.171 -278.294 -181.383 1 Arc
Blkd
642.572 6965.909 6924.428 -94.045 -94.605 -1 Arc
Blkd
96.653 59.950 10.749 -289.569 -201.183 1 Arc
Blkd
444.780 2862.161 2813.258 -95.906 -97.034 -1 Arc
Blkd
261.420 47.373 183.654 47.373 Line st
183.984 52.291 4.930 -188.838 -93.849 1 Arc
Blkd
258.298 44.818 8.275 -275.913 -22.162 -1 Arc
Blkd
261.090 42.454 4.930 -8.839 -273.837 1 Arc
Blkd
179.113 53.049 259.150 53.049 Line st
247.982 52.779 11.171 -261.705 -358.617 -1 Arc
Blkd
-309.571 6965.909 6924.428 -85.956 -85.395 1 Arc
Blkd
236.347 59.950 10.749 -250.431 -338.817 -1 Arc
Blkd
-111.779 2862.161 2813.258 -84.094 -82.966 1 Arc
Blkd
Blk
188.685 76.610 185.333 76.610 185.333 53.604 188.685 53.604 Box
Blks
Wht
} bind def
/Label-emblem-1 {
(Label-e1) print
166.225 88.661 4.148 Circle
Blks
160.569 44.473 171.882 44.473 170.467 84.892 161.984 84.892 Box
Blks
160.500 87.831 np mo
160.500 88.385 171.023 88.385 0.653 Bxr
171.577 88.385 171.577 86.169 0.653 Bxr
171.577 85.615 161.054 85.615 0.653 Bxr
160.500 85.615 160.500 86.169 0.653 Bxr cl
Blks
Blk
145.705 79.529 185.333 79.529 185.333 53.604 145.705 53.604 Box
Blks
143.451 76.610 145.705 76.610 145.705 53.604 143.451 53.604 Box
Blks
Wht
171.601 36.756 12.243 -198.238 -114.506 1 Arc st
159.577 43.338 np mo
159.577 44.077 172.685 44.077 0.653 Bxr
173.423 44.077 173.423 41.123 0.653 Bxr
173.423 40.385 160.315 40.385 0.653 Bxr
159.577 40.385 159.577 41.123 0.653 Bxr cl
Blks
163.316 27.299 3.935 -292.371 -16.471 -1 Arc st
172.012 37.466 9.716 -198.740 -137.795 1 Arc st
164.766 29.239 3.662 -309.298 -41.300 -1 Arc st
172.549 37.164 7.468 -202.490 -137.025 1 Arc st
165.179 31.517 5.429 -303.439 -75.788 -1 Arc st
171.428 38.504 4.080 -210.710 -142.972 1 Arc st
159.435 37.154 12.856 -345.170 -30.923 -1 Arc st
2.769 slw
Blk
202.223 60.509 188.922 59.602 Line st
201.925 66.316 188.922 65.279 Line st
129.618 60.348 142.943 59.602 Line st
130.724 66.507 143.032 65.277 Line st
0.923 slw
187.550 76.610 184.198 76.610 184.198 53.604 187.550 53.604 Box
Blks
} bind def
/Label-emblem-2 {
(Label-e2) print
0.923 slw
201.087 60.509 187.787 59.602 Line st
200.789 66.316 187.787 65.279 Line st
128.483 60.348 141.808 59.602 Line st
129.590 66.507 141.897 65.277 Line st
0.923 slw
Wht
204.955 71.409 3.969 -169.287 -76.523 1 Arc st
197.496 70.366 3.572 -286.325 -355.100 -1 Arc st
196.762 55.458 18.418 -244.560 -275.415 -1 Arc st
209.177 67.665 6.432 -155.470 -81.417 1 Arc st
197.533 62.818 6.189 -276.342 -339.403 -1 Arc st
201.388 -4.805 73.842 -260.113 -267.538 -1 Arc st
215.632 63.955 10.606 -139.371 -87.488 1 Arc st
198.631 50.625 11.018 -284.226 -324.337 -1 Arc st
197.933 -1.392 62.790 -261.683 -273.110 -1 Arc st
127.123 71.409 3.969 -10.714 -103.487 -1 Arc st
134.583 70.366 3.573 -253.647 -184.909 1 Arc st
135.315 55.458 18.418 -295.440 -264.585 1 Arc st
122.898 67.669 6.436 -24.554 -98.565 -1 Arc st
134.544 62.820 6.186 -263.662 -200.584 1 Arc st
130.691 -4.799 73.836 -279.887 -272.460 1 Arc st
116.443 63.960 10.611 -40.642 -92.503 -1 Arc st
133.447 50.625 11.018 -255.774 -215.663 1 Arc st
134.145 -1.387 62.785 -278.317 -266.891 1 Arc st
/Times-Bold@ISO LF [18 0 0 -18 0 0] SF
3 0.55128 (AMA) 147.518 72.566 Text
137.720 58.649 5.717 -355.613 -79.503 -1 Arc
Blkd
194.354 58.649 5.717 -184.388 -100.497 1 Arc
Blkd
193.313 53.028 138.762 53.028 Line st
143.451 76.610 143.420 59.087 Line st
188.685 76.610 188.654 59.087 Line st
185.907 76.672 2.779 -266.604 -1.270 -1 Arc
Blkd
146.228 76.673 2.778 -273.397 -178.695 1 Arc
Blkd
} bind def
/Label-emblem-3 {
(Label-e3) print
168.753 82.229 2.778 -86.600 -181.305 -1 Arc
Blkd
163.199 82.229 2.778 -93.414 -358.696 1 Arc
Blkd
168.918 79.446 185.742 79.446 Line st
146.392 79.457 163.034 79.457 Line st
2.769 slw
} bind def
/Label-heading {
(Label-heading) print
/Souvenir-Demi@ISO LF [17 0 0 -24 0 0] SF
Wht
(OFFICIAL IDENTIFICATION) 166.225 134.538 XText
(ACADEMY OF) 166.225 188.077 XText
(MODEL AERONAUTICS) 166.225 215.769 XText
/LubalinGraph-Book@ISO LF [12 0 0 -12 0 0] SF
15 1.15385 (Issued by the) 125.423 159.462 Text
} bind def
/Label-text {
(Label-text) print
/NewCenturySchlbk-Roman@ISO LF [10 0 0 -10 0 0] SF
58 3.58974 (This is an experimental model which may be lost in flight.) 27.563 252.692 Text
53 3.41026 (The fuel tank may contain gasoline or other flammable) 27.563 263.769 Text
58 3.51282 (fluid which should be drained before transporting or stor-) 27.563 274.846 Text
25 1.58974 (ing. Keep away from fire.) 27.563 285.923 Text
56 3.51282 ( Finder should notify owner immediately. Model should) 27.563 297.000 Text
62 3.69231 (not be given to any claimant unless positive identification is) 27.563 308.077 Text
9 0.58974 (provided.) 27.563 319.154 Text
} bind def
/Label-info {
(Label-info) print
/Times-Bold@ISO LF [12 0 0 -12 0 0] SF
68 3.70513 (License No. ....................................................) 27.563 354.231 Text
69 3.69231 (Name .............................................................) 27.563 381.923 Text
69 3.67949 (Address ..........................................................) 27.563 409.615 Text
71 3.66667 (City .................................... State ..............) 27.563 437.308 Text
67 3.67949 (Phone Collect ..................................................) 27.563 465.000 Text
/Times-Bold@ISO LF [30 0 0 -30 0 0] SF
LBL-License 27.536 100 add 354.231 5 sub YText
/Times-Bold@ISO LF [20 0 0 -20 0 0] SF
LBL-Name 27.536 60 add 381.923 5 sub YText
LBL-Address 27.536 60 add 409.615 5 sub YText
LBL-City 27.536 60 add 437.308 5 sub YText
LBL-State 27.536 215 add 437.308 5 sub YText
LBL-Phone 27.536 100 add 465.000 5 sub YText
} bind def
/Label-warning {
(Label-warning) print
/Times-Bold@ISO LF [14 0 0 -14 0 0] SF
30 3.48718 (UNAUTHORIZED POSESSION OF THIS) 27.563 496.385 Text
29 3.42308 (MODEL CAN LEAD TO PROSECUTION) 27.563 511.154 Text
10 1.19231 (UNDER LAW.) 27.563 525.923 Text
} bind def
/Label-box {
(Label-box) print
3.231 3.231 315.808 3.231 315.808 546.115 3.231 546.115 Box st
}bind def
/Owner-label {
Font-setup
gs
1.000 1.000 1.000 0 0.000 0.000 333.115 548.885 Crop
Label-emblem
Label-emblem-1
Label-emblem-2
Label-emblem-3
Label-heading
Label-text
Label-info
Label-warning
Label-box
gr
} bind def
/Xofs {325} bind def
/Yofs {-550} bind def
50 0 tr
0
Owner-label Xofs add Xofs 0 tr Owner-label Xofs add Xofs 0 tr Owner-label
neg 0 tr
0 Yofs tr
0
Owner-label Xofs add Xofs 0 tr Owner-label Xofs add Xofs 0 tr Owner-label
neg 0 tr
0 Yofs tr
0
Owner-label Xofs add Xofs 0 tr Owner-label Xofs add Xofs 0 tr Owner-label
neg 0 tr
showpage
restore
%%Trailer
$! PRINT/FORM=1109/PARA=(DATA=POST)/QUE='PQUEUE' 'F$PARSE(OFILE,".PS")'/DELETE
$EXIT:
$ EXIT
|
| 1070.10 | Yet another version... | ROCK::MINER | Electric = No more glow-glop | Wed Sep 13 1989 11:30 | 443 |
| I really liked the labels too. a couple of years ago I had purchased
some of the "origional" labels from the AMA but was running out of them.
Your PostScript version came just in time.
However, since I never seem to be happy with things the way they are, I
have to go and fiddle with them to make them "perfect" (at least in my
eyes :-).
My gripe with the origional labels (and thus also with the exact copies)
was that there was no place for your Zip code. So I hacked the code so
the line that used to be "Address______ City____" is now just a line of
"_______________________" and the .COM file prompts you for a line of
"City, ST Zip" instead of just city and state.
I showed my version of the labels to some people at last night's DECRCM
meeting and I was requested to post it here. So.... Here's my
version...
_____
| \
| \ Silent POWER!
_ ___________ _________ | Happy Landings!
| \ | | | | |
|--------|- SANYO + ]-| ASTRO |--| - Dan Miner
|_/ |___________| |_________| |
| / | " The Earth needs more OZONE,
| / not Caster Oil!! "
|_____/
===============================================================================
$ CLOSE/NOLOG IN
$ OPEN/READ IN SYS$COMMAND:
$ READ/PROMPT="Enter AMA License Number [DEFAULT=""''AMA$LICENSE'""] > " IN LICENSE
$ IF LICENSE.EQS."" THEN LICENSE=AMA$LICENSE
$ READ/PROMPT="Enter Your Name [DEFAULT=""''AMA$NAME'""] > " IN PNAME
$ IF PNAME.EQS."" THEN PNAME=AMA$NAME
$ READ/PROMPT="Enter Your Street Address [DEFAULT=""''AMA$STREET'""] > " IN STREET
$ IF STREET.EQS."" THEN STREET=AMA$STREET
$ READ/PROMPT="Enter Your City, State and Zip [DEFAULT=""''AMA$CITYSTZIP'""] > " IN CITYSTZIP
$ IF CITYSTZIP.EQS."" THEN CITYSTZIP=AMA$CITYSTZIP
$ READ/PROMPT="Enter Phone Number [DEFAULT=""''AMA$PHONE'""] > " IN PHONE
$ IF PHONE.EQS."" THEN PHONE=AMA$PHONE
$ IF "''AMA$FILE'".EQS."" THEN AMA$FILE="AMA$ID.PS"
$ READ/PROMPT="Enter Output Filename [DEFAULT=""''AMA$FILE'""] > " IN OFILE
$ IF OFILE .EQS."" THEN OFILE=AMA$FILE
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT "Is the following correct?"
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT " AMA License Number > ",LICENSE
$ WRITE SYS$OUTPUT " Your Name > ",PNAME
$ WRITE SYS$OUTPUT " Your Street Address > ",STREET
$ WRITE SYS$OUTPUT " Your City, ST Zip > ",CITYSTZIP
$ WRITE SYS$OUTPUT " Phone Number > ",PHONE
$ WRITE SYS$OUTPUT " Output Filename > ",OFILE
$ WRITE SYS$OUTPUT ""
$ READ/PROMPT="OK (Y/[N]) > " IN TEMP
$ CLOSE/NOLOG IN
$ IF (TEMP.NES."Y").AND.(TEMP.NES."y") THEN GOTO EXIT
$ AMA$LICENSE == LICENSE
$ AMA$NAME == PNAME
$ AMA$STREET == STREET
$ AMA$CITYSTZIP == CITYSTZIP
$ AMA$PHONE == PHONE
$ AMA$FILE == OFILE
$ COPY/NOLOG SYS$INPUT: 'F$PARSE(OFILE,".PS")'
%!PS-Adobe-2.0 EPSF-1.2
%%Title: ID1.PS
%%Creator: ID.COM
%%CreationDate:
%%Pages:
%%BoundingBox:
%%EndComments
%%BeginProlog
save
/an /arcn load def
/ar /arc load def
/cl /closepath load def
/ex /exch load def
/fi /eofill load def
/Bxr {arcto pop pop pop pop} bind def
/gs /gsave load def
/gr /grestore load def
/li /lineto load def
/mo /moveto load def
/np /newpath load def
/rl /rlineto load def
/ro /rotate load def
/rgb /setrgbcolor load def
/sh /show load def
/sc /scale load def
/sd /setdash load def
/slc /setlinecap load def
/slj /setlinejoin load def
/slw /setlinewidth load def
/st /stroke load def
/tr /translate load def
% THIS SECTION WILL DEFINE THE ISOLATIN1 VECTOR...
mark % CREATE ISOLatin1 ENCODING
/ISOLatin1
8#000 1 8#054 {StandardEncoding ex get} for
/minus
8#056 1 8#217 {StandardEncoding ex get} for
/dotlessi
8#301 1 8#317 {StandardEncoding ex get} for
/space /exclamdown /cent /sterling /currency /yen /brokenbar /section
/dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen
/registered /macron /degree /plusminus /twosuperior /threesuperior /acute
/mu /paragraph /periodcentered /cedilla /onesuperior /ordmasculine
/guillemotright /onequarter /onehalf /threequarters /questiondown /Agrave
/Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
/Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde
/Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave
/Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute
/acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute
/ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde
/ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave
/uacute /ucircumflex /udieresis /yacute /thorn /ydieresis
/ISOLatin1 where not {256 array astore def} if
cleartomark
%
% THIS ROUTINE WILL RE-ENCODE THE FILE...
/reencodedict 10 dict def %Local storage for ReENCODE
/ReENCODE { % /basefont /newfont encoding ReENCODE
/newencoding ex def %ARG: NAME OF ENCODING VECTOR
/newfontname ex def %ARG: NEW NAME FOR FONT AFTER RE-ENCODING
findfont
/basefontdict ex def %ARG: NAME OF FONT TO BE RE-ENCODED
basefontdict maxlength dict begin %CREATE AND OPEN NEW DICT
basefontdict { %COPY ENTRIES FROM BASE FONT DICT TO NEW ONE
1 index /FID ne {
def %IF NOT THE ONE WE'RE ENCODING, JUST COPY PTRS
} { %else
pop pop %IGNORE FID AND ENCODING FOR ONE WE'RE ENCODING
} ifelse
} forall
/FontName newfontname def %DEFINE NEW NAME
/Encoding newencoding def %DEFINE NEW ENCODING VECTOR
newfontname currentdict definefont %TURN IT INTO A PS FONT
pop %IGNORE MODIFIED DICT RETURNED BY DEFINEFONT
end
} bind def
/CBdict 5 dict def
/Arc { np 1 eq {ar} {an} ifelse } bind def
/Box { np mo li li li cl } bind def
/Circle { np 0 360 ar } bind def
/LF { findfont } bind def
/SF { makefont setfont } bind def
/Line { np mo li } bind def
/Text
{ np mo dup 4 1 roll
stringwidth pop ex 72 mul ex sub ex div
dup dup sub 3 -1 roll ashow } bind def
/XText
{ np mo dup stringwidth pop 2 div neg 0 rmoveto show } bind def
/YText
{ np mo show } bind def
/OText
{ gs np mo slw false charpath st gr } bind def
/Label
{ np mo sh } bind def
/Crop
{ CBdict begin
/y2 ex def
/x2 ex def
/y1 ex def
/x1 ex def
np x1 y1 mo
x2 y1 li
x2 y2 li
x1 y2 li cl
1 eq {gs rgb fi gr} {pop pop pop} ifelse
clip np
end
} bind def
%%EndProlog
%%BeginSetup
%%EndSetup
$!
$!
$ OPEN/APPEND OUT 'F$PARSE(OFILE,".PS")'
$ WRITE OUT "/LBL-License {(''LICENSE')} bind def"
$ WRITE OUT "/LBL-Name {(''PNAME')} bind def"
$ WRITE OUT "/LBL-Address {(''STREET')} bind def"
$ WRITE OUT "/LBL-CityStZip {(''CITYSTZIP')} bind def"
$ WRITE OUT "/LBL-Phone {(''PHONE')} bind def"
$ CLOSE OUT
$ APPEND SYS$INPUT: 'F$PARSE(OFILE,".PS")'
18.000 270.000 tr
1 -1 sc
0.540 0.459 sc
0.923 slw
0 slc
0 slj
/Wht {0.000 0.000 0.000 rgb} bind def
/Blk {1.000 1.000 1.000 rgb} bind def
/Blkd {gs 1.000 1.000 1.000 rgb cl fi gr st} bind def
/Blks {gs 1.000 1.000 1.000 rgb fi gr st} bind def
/Font-setup {
/Souvenir-Demi /Souvenir-Demi@ISO ISOLatin1 ReENCODE
/LubalinGraph-Book /LubalinGraph-Book@ISO ISOLatin1 ReENCODE
/NewCenturySchlbk-Roman /NewCenturySchlbk-Roman@ISO ISOLatin1 ReENCODE
/Times-Bold /Times-Bold@ISO ISOLatin1 ReENCODE
} bind def
/Label-emblem {
% (Label-e) print
0.923 slw
0 slc
71.581 47.373 149.347 47.373 Line st
149.016 52.291 4.930 -351.163 -86.151 -1 Arc
Blkd
74.703 44.818 8.275 -264.087 -157.838 1 Arc
Blkd
71.911 42.454 4.930 -171.162 -266.163 -1 Arc
Blkd
153.888 53.049 73.851 53.049 Line st
85.019 52.779 11.171 -278.294 -181.383 1 Arc
Blkd
642.572 6965.909 6924.428 -94.045 -94.605 -1 Arc
Blkd
96.653 59.950 10.749 -289.569 -201.183 1 Arc
Blkd
444.780 2862.161 2813.258 -95.906 -97.034 -1 Arc
Blkd
261.420 47.373 183.654 47.373 Line st
183.984 52.291 4.930 -188.838 -93.849 1 Arc
Blkd
258.298 44.818 8.275 -275.913 -22.162 -1 Arc
Blkd
261.090 42.454 4.930 -8.839 -273.837 1 Arc
Blkd
179.113 53.049 259.150 53.049 Line st
247.982 52.779 11.171 -261.705 -358.617 -1 Arc
Blkd
-309.571 6965.909 6924.428 -85.956 -85.395 1 Arc
Blkd
236.347 59.950 10.749 -250.431 -338.817 -1 Arc
Blkd
-111.779 2862.161 2813.258 -84.094 -82.966 1 Arc
Blkd
Blk
188.685 76.610 185.333 76.610 185.333 53.604 188.685 53.604 Box
Blks
Wht
} bind def
/Label-emblem-1 {
% (Label-e1) print
166.225 88.661 4.148 Circle
Blks
160.569 44.473 171.882 44.473 170.467 84.892 161.984 84.892 Box
Blks
160.500 87.831 np mo
160.500 88.385 171.023 88.385 0.653 Bxr
171.577 88.385 171.577 86.169 0.653 Bxr
171.577 85.615 161.054 85.615 0.653 Bxr
160.500 85.615 160.500 86.169 0.653 Bxr cl
Blks
Blk
145.705 79.529 185.333 79.529 185.333 53.604 145.705 53.604 Box
Blks
143.451 76.610 145.705 76.610 145.705 53.604 143.451 53.604 Box
Blks
Wht
171.601 36.756 12.243 -198.238 -114.506 1 Arc st
159.577 43.338 np mo
159.577 44.077 172.685 44.077 0.653 Bxr
173.423 44.077 173.423 41.123 0.653 Bxr
173.423 40.385 160.315 40.385 0.653 Bxr
159.577 40.385 159.577 41.123 0.653 Bxr cl
Blks
163.316 27.299 3.935 -292.371 -16.471 -1 Arc st
172.012 37.466 9.716 -198.740 -137.795 1 Arc st
164.766 29.239 3.662 -309.298 -41.300 -1 Arc st
172.549 37.164 7.468 -202.490 -137.025 1 Arc st
165.179 31.517 5.429 -303.439 -75.788 -1 Arc st
171.428 38.504 4.080 -210.710 -142.972 1 Arc st
159.435 37.154 12.856 -345.170 -30.923 -1 Arc st
2.769 slw
Blk
202.223 60.509 188.922 59.602 Line st
201.925 66.316 188.922 65.279 Line st
129.618 60.348 142.943 59.602 Line st
130.724 66.507 143.032 65.277 Line st
0.923 slw
187.550 76.610 184.198 76.610 184.198 53.604 187.550 53.604 Box
Blks
} bind def
/Label-emblem-2 {
% (Label-e2) print
0.923 slw
201.087 60.509 187.787 59.602 Line st
200.789 66.316 187.787 65.279 Line st
128.483 60.348 141.808 59.602 Line st
129.590 66.507 141.897 65.277 Line st
0.923 slw
Wht
204.955 71.409 3.969 -169.287 -76.523 1 Arc st
197.496 70.366 3.572 -286.325 -355.100 -1 Arc st
196.762 55.458 18.418 -244.560 -275.415 -1 Arc st
209.177 67.665 6.432 -155.470 -81.417 1 Arc st
197.533 62.818 6.189 -276.342 -339.403 -1 Arc st
201.388 -4.805 73.842 -260.113 -267.538 -1 Arc st
215.632 63.955 10.606 -139.371 -87.488 1 Arc st
198.631 50.625 11.018 -284.226 -324.337 -1 Arc st
197.933 -1.392 62.790 -261.683 -273.110 -1 Arc st
127.123 71.409 3.969 -10.714 -103.487 -1 Arc st
134.583 70.366 3.573 -253.647 -184.909 1 Arc st
135.315 55.458 18.418 -295.440 -264.585 1 Arc st
122.898 67.669 6.436 -24.554 -98.565 -1 Arc st
134.544 62.820 6.186 -263.662 -200.584 1 Arc st
130.691 -4.799 73.836 -279.887 -272.460 1 Arc st
116.443 63.960 10.611 -40.642 -92.503 -1 Arc st
133.447 50.625 11.018 -255.774 -215.663 1 Arc st
134.145 -1.387 62.785 -278.317 -266.891 1 Arc st
/Times-Bold@ISO LF [18 0 0 -18 0 0] SF
3 0.55128 (AMA) 147.518 72.566 Text
137.720 58.649 5.717 -355.613 -79.503 -1 Arc
Blkd
194.354 58.649 5.717 -184.388 -100.497 1 Arc
Blkd
193.313 53.028 138.762 53.028 Line st
143.451 76.610 143.420 59.087 Line st
188.685 76.610 188.654 59.087 Line st
185.907 76.672 2.779 -266.604 -1.270 -1 Arc
Blkd
146.228 76.673 2.778 -273.397 -178.695 1 Arc
Blkd
} bind def
/Label-emblem-3 {
% (Label-e3) print
168.753 82.229 2.778 -86.600 -181.305 -1 Arc
Blkd
163.199 82.229 2.778 -93.414 -358.696 1 Arc
Blkd
168.918 79.446 185.742 79.446 Line st
146.392 79.457 163.034 79.457 Line st
2.769 slw
} bind def
/Label-heading {
% (Label-heading) print
/Souvenir-Demi@ISO LF [17 0 0 -24 0 0] SF
Wht
(OFFICIAL IDENTIFICATION) 166.225 134.538 XText
(ACADEMY OF) 166.225 188.077 XText
(MODEL AERONAUTICS) 166.225 215.769 XText
/LubalinGraph-Book@ISO LF [12 0 0 -12 0 0] SF
15 1.15385 (Issued by the) 125.423 159.462 Text
} bind def
/Label-text {
% (Label-text) print
/NewCenturySchlbk-Roman@ISO LF [10 0 0 -10 0 0] SF
58 3.58974 (This is an experimental model which may be lost in flight.) 27.563 252.692 Text
53 3.41026 (The fuel tank may contain gasoline or other flammable) 27.563 263.769 Text
58 3.51282 (fluid which should be drained before transporting or stor-) 27.563 274.846 Text
25 1.58974 (ing. Keep away from fire.) 27.563 285.923 Text
56 3.51282 ( Finder should notify owner immediately. Model should) 27.563 297.000 Text
62 3.69231 (not be given to any claimant unless positive identification is) 27.563 308.077 Text
9 0.58974 (provided.) 27.563 319.154 Text
} bind def
/Label-info {
% (Label-info) print
/Times-Bold@ISO LF [12 0 0 -12 0 0] SF
68 3.70513 (License No. .....................................................) 27.563 354.231 Text
69 3.69231 (Name ............................................................) 27.563 381.923 Text
69 3.67949 (Address ............................................................) 27.563 409.615 Text
71 3.66667 ( ..................................................................) 27.563 437.308 Text
67 3.67949 (Phone Collect .......................................................) 27.563 465.000
Text
/Times-Bold@ISO LF [30 0 0 -30 0 0] SF
LBL-License 27.536 100 add 354.231 5 sub YText
/Times-Bold@ISO LF [20 0 0 -20 0 0] SF
LBL-Name 27.536 60 add 381.923 5 sub YText
LBL-Address 27.536 60 add 409.615 5 sub YText
LBL-CityStZip 27.536 30 add 437.308 5 sub YText
LBL-Phone 27.536 100 add 465.000 5 sub YText
} bind def
/Label-warning {
% (Label-warning) print
/Times-Bold@ISO LF [14 0 0 -14 0 0] SF
30 3.48718 (UNAUTHORIZED POSESSION OF THIS) 27.563 496.385 Text
29 3.42308 (MODEL CAN LEAD TO PROSECUTION) 27.563 511.154 Text
10 1.19231 (UNDER LAW.) 27.563 525.923 Text
} bind def
/Label-box {
% (Label-box) print
3.231 3.231 315.808 3.231 315.808 546.115 3.231 546.115 Box st
}bind def
/Owner-label {
Font-setup
gs
1.000 1.000 1.000 0 0.000 0.000 333.115 548.885 Crop
Label-emblem
Label-emblem-1
Label-emblem-2
Label-emblem-3
Label-heading
Label-text
Label-info
Label-warning
Label-box
gr
} bind def
/Xofs {325} bind def
/Yofs {-550} bind def
50 0 tr
0
Owner-label Xofs add Xofs 0 tr Owner-label Xofs add Xofs 0 tr Owner-label
neg 0 tr
0 Yofs tr
0
Owner-label Xofs add Xofs 0 tr Owner-label Xofs add Xofs 0 tr Owner-label
neg 0 tr
0 Yofs tr
0
Owner-label Xofs add Xofs 0 tr Owner-label Xofs add Xofs 0 tr Owner-label
neg 0 tr
showpage
restore
%%Trailer
$! PRINT/FORM=1109/PARA=(DATA=POST)/QUE='PQUEUE' 'F$PARSE(OFILE,".PS")'/DELETE
$EXIT:
$ EXIT
|
| 1070.15 | | GIDDAY::CHADD | Pylon; the ultimate High. | Thu Sep 14 1989 20:09 | 17 |
| There is a process you can use for taking magazine picture (ie Playboy,
Penthouse) and overlaying them on a model. I have done it only once, it works
but takes some time. The same process "may" be able to be used on a LN03 output.
1. Spray the text side with clear lacquer (ie: Ultra Clear or similar)
2. Soak the page in water and gently rub the paper from the back side
of the copy.
3. You should end up with the text on a backing of clear lacquer.
4. Trim and attach the copy to the model spray with clear.
I would be interested to know the results if anybody tries it. My doubt is due
the fact the Laser Printer paper is not a gloss finish like magazine paper.
John.
|
| 1070.16 | Where is the postscript radio frequency pin file? | TEKTRM::REITH | Jim Reith DTN 235-8459 HANNAH::REITH | Mon Oct 09 1989 11:40 | 6 |
| I found this note through the keywords but couldn't find the radio freq. pin
program that I had seen in here before. If someone has a copy could you check
the note number and send me mail/a copy/keyword it in here properly please.
I really liked the looks of the pins at the fun fly but can't find the procedure
in here (wouldn't want me to do a text search in the middle of the day now,
would you? ;^)
|
| 1070.17 | See Note 953.3 | ROCK::MINER | Electric = No more glow-glop | Mon Oct 09 1989 13:10 | 1 |
| See Note 953.3
|
| 1070.18 | Freq ID for your radio | N25480::FRIEDRICHS | Keep'm straight n level | Mon May 13 1991 14:14 | 23 |
| The following reply is another command procedure/postscript file.
This procedure creates freq pins for the Southern NH Flying Eagles
(and is based on Dan Miner's CMRCM pins). However, the reason I am
posting it is that I have added a new feature... Frequency identifiers
that can be attached to your radio. You can use this rather than
spending $3+ for one of the Dubro ones....
In addition to having the channel number, your name, ama (and
optionally, your phone) are also printed on it.
After printing/cutting it out, just wrap it around the antenna or
handle and staple it.... It is certainly not going to last forever,
but it is also easy to replace...
(You see, with our club, many members don't have any frequency
identification on their radios, so we are providing these...)
Hope someone else finds them useful...
cheers,
jeff
|
| 1070.19 | RC_PINS.COM | N25480::FRIEDRICHS | Keep'm straight n level | Mon May 13 1991 14:15 | 401 |
| $ IF p1 .EQS. "" THEN $ READ/PROMPT="Output File <FREQ_PINS.PS>: " SYS$COMMAND p1
$ IF P1 .EQS. "" THEN $ P1 = "FREQ_PINS.PS"
$ COPY/NOLOG SYS$INPUT: 'P1'
%!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%!PS-Adobe-1.0
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
/inch {72 mul} def
/box_width 4.75 inch def
/box_height 2.37 inch def
/flag_height 2.0 inch def
/fchan_typesize 2.12 inch def
/inst_typesize 0.3 inch def
/col_width 1.5 inch def
/wbox_height 3.0 inch def
/name_typesize 0.2 inch def
/sname_typesize 0.1 inch def
/chan_typesize 1.14 inch def
/wchan_typesize 2.5 inch def
/schan_typesize 0.5 inch def
/chan_width 1.4 inch def
/schan_width 1.0 inch def
%
/chan_y 0.3 inch def
/chan_y2 0.9 inch def
/chan_y3 2.4 inch def
/name_y box_height name_typesize 3 mul sub 3 div def
/wname_y wbox_height name_typesize 6 mul sub 3 div def
/name_x box_width chan_width 2 mul sub def
/sname_y flag_height sname_typesize 3 mul sub 3 div def
/fname_x col_width def
/instr_1 (Cut out and attach to clothespin) def
/instr_2 (Cut out and attach to antenna) def
%
%--------------------------------------------
%
/gold
{ 8.5 inch flag_width sub 2 div 8.2 inch translate
} def
%
%--------------------------------------------
%
/freq_flag
{ /Helvetica-Bold findfont fchan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div
chan_y moveto show
/Helvetica-Bold findfont sname_typesize scalefont setfont
dup stringwidth pop fname_x exch sub 2 div
sname_y 0 mul sname_typesize add moveto show
.5 setgray newpath
0 0 moveto
col_width 0 lineto
col_width flag_height lineto
0 flag_height lineto
closepath stroke
0 setgray
0 flag_height neg 0 inch sub translate
/Helvetica-Bold findfont fchan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div
chan_y moveto show
/Helvetica-Bold findfont sname_typesize scalefont setfont
dup stringwidth pop fname_x exch sub 2 div
sname_y 0 mul sname_typesize add moveto show
.5 setgray newpath
0 0 moveto
col_width 0 lineto
col_width flag_height lineto
0 flag_height lineto
closepath stroke
0 setgray
col_width flag_height translate
col_width 0 translate
% Second piece...
/Helvetica-Bold findfont fchan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div
chan_y moveto show
/Helvetica-Bold findfont sname_typesize scalefont setfont
dup stringwidth pop fname_x exch sub 2 div
sname_y 0 mul sname_typesize add moveto show
.5 setgray newpath
0 0 moveto
col_width 0 lineto
col_width flag_height lineto
0 flag_height lineto
closepath stroke
0 setgray
0 flag_height neg 0 inch sub translate
/Helvetica-Bold findfont fchan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div
chan_y moveto show
/Helvetica-Bold findfont sname_typesize scalefont setfont
dup stringwidth pop fname_x exch sub 2 div
sname_y 0 mul sname_typesize add moveto show
.5 setgray newpath
0 0 moveto
col_width 0 lineto
col_width flag_height lineto
0 flag_height lineto
closepath stroke
0 setgray
% Now connect the two columns
col_width 2 mul neg 0 translate
0 setgray newpath
0 0 moveto
col_width 3 mul 0 lineto
col_width 3 mul flag_height 2 mul lineto
0 flag_height 2 mul lineto
closepath stroke
0 setgray
1.0 inch neg 1.0 inch neg translate
/Helvetica-Bold findfont inst_typesize scalefont setfont
0 0 moveto
instr_2 show
} def
%
%--------------------------------------------
%
/leftnum
{ /Helvetica-Bold findfont wchan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div
chan_y moveto show
dup stringwidth pop chan_width exch sub 2 div chan_width add
chan_y moveto show
/Helvetica-Bold findfont name_typesize scalefont setfont
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
name_y 3 mul name_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
name_y 2.5 mul name_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
name_y 2 mul name_typesize add moveto show
/Helvetica-Bold findfont sname_typesize scalefont setfont
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
name_y 1.75 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
name_y 1.5 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
name_y 1.25 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
name_y 1.0 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
name_y 0.75 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
name_y 0.5 mul sname_typesize add moveto show
.5 setgray newpath
0 0 moveto
box_width 0 lineto
box_width box_height lineto
0 box_height lineto
closepath stroke
0 setgray
1.0 inch neg 0.75 inch neg translate
/Helvetica-Bold findfont inst_typesize scalefont setfont
0 0 moveto
instr_1 show
1.0 inch box_height neg 1.0 inch sub translate
} def
%
%--------------------------------------------
%
/rightnum
{
/Helvetica-Bold findfont wchan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div name_x add
chan_y moveto show
dup stringwidth pop chan_width exch sub 2 div chan_width add name_x add
chan_y moveto show
/Helvetica-Bold findfont name_typesize scalefont setfont
dup stringwidth pop name_x exch sub 2 div
name_y 3 mul name_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 2.5 mul name_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 2 mul name_typesize add moveto show
/Helvetica-Bold findfont sname_typesize scalefont setfont
dup stringwidth pop name_x exch sub 2 div
name_y 1.75 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 1.5 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 1.25 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 1.0 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 0.75 mul sname_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 0.5 mul sname_typesize add moveto show
.5 setgray newpath
0 0 moveto
box_width 0 lineto
box_width box_height lineto
0 box_height lineto
closepath stroke
0 setgray
1.0 inch neg 0.75 inch neg translate
/Helvetica-Bold findfont inst_typesize scalefont setfont
0 0 moveto
instr_1 show
1.0 inch box_height neg 1.0 inch sub translate
} def
%
% --------------------------------------------------------------------------
%
%
%--------------------------------------------
%
/wleftnum
{ /Helvetica-Bold findfont schan_typesize scalefont setfont
exch dup stringwidth pop schan_width exch sub 2 div
chan_y3 moveto show
dup stringwidth pop schan_width exch sub 2 div schan_width add
chan_y3 moveto show
/Helvetica-Bold findfont wchan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div
chan_y2 moveto show
dup stringwidth pop chan_width exch sub 2 div chan_width add
chan_y2 moveto show
/Helvetica-Bold findfont schan_typesize scalefont setfont
exch dup stringwidth pop schan_width exch sub 2 div
chan_y moveto show
dup stringwidth pop schan_width exch sub 2 div schan_width add
chan_y moveto show
/Helvetica-Bold findfont name_typesize scalefont setfont
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
wname_y 10 mul name_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
wname_y 8 mul name_typesize add moveto show
/Helvetica-Bold findfont sname_typesize scalefont setfont
dup stringwidth pop name_x exch sub 2 div chan_width 2 mul add
wname_y 7 mul name_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 6 mul name_typesize add moveto show
.5 setgray newpath
0 0 moveto
box_width 0 lineto
box_width wbox_height lineto
0 wbox_height lineto
closepath stroke
0 setgray
0 wbox_height neg 0.3 inch sub translate
} def
%
%--------------------------------------------
%
/wrightnum
{ /Helvetica-Bold findfont schan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div name_x add
chan_y3 moveto show
dup stringwidth pop chan_width exch sub 2 div chan_width add name_x add
chan_y3 moveto show
/Helvetica-Bold findfont wchan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div name_x add
chan_y2 moveto show
dup stringwidth pop chan_width exch sub 2 div chan_width add name_x add
chan_y2 moveto show
/Helvetica-Bold findfont schan_typesize scalefont setfont
exch dup stringwidth pop chan_width exch sub 2 div name_x add
chan_y moveto show
dup stringwidth pop chan_width exch sub 2 div chan_width add name_x add
chan_y moveto show
/Helvetica-Bold findfont name_typesize scalefont setfont
dup stringwidth pop name_x exch sub 2 div
name_y 10 mul name_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 8 mul name_typesize add moveto show
/Helvetica-Bold findfont sname_typesize scalefont setfont
dup stringwidth pop name_x exch sub 2 div
name_y 7 mul name_typesize add moveto show
dup stringwidth pop name_x exch sub 2 div
name_y 6 mul name_typesize add moveto show
.5 setgray newpath
0 0 moveto
box_width 0 lineto
box_width wbox_height lineto
0 wbox_height lineto
closepath stroke
0 setgray
0 wbox_height neg 0.3 inch sub translate
% 0 box_height neg 0.3 inch sub translate
} def
%
%
%--------------------------------------------
%
/silver
{ 8.5 inch box_width sub 2 div 7.55 inch translate
} def
/gold
{ 8.5 inch box_width sub 2 div 8.2 inch translate
} def
%silver
%(Plane: Drifter-II)(Tx: Futaba 4NL) (AMA 134820) (Jeff Friedrichs) (5)(5)(5)(6)(5)(7) wrightnum
%showpage
%
$
$ OPEN/APPEND OUT 'P1'
$
$NEW_PERSON:
$ READ/PROMPT="Name: " SYS$COMMAND NAME
$ if name .nes. "" then goto get_ama
$ write sys$output "You *must* enter a name, please re-enter..."
$ goto new_person
$GET_AMA:
$ READ/PROMPT="AMA Number: " SYS$COMMAND AMA_NUM
$ if ama_num .nes. "" then goto get_phone
$ write sys$output "You *must* enter an AMA number, please re-enter..."
$ goto get_ama
$GET_PHONE:
$ READ/PROMPT="Phone (optional): " SYS$COMMAND PHONE_NUM
$ ama_num = "AMA " + ama_num
$ if phone_num .eqs. "" then phone_num = ama_num
$
$GOLDLOOP:
$ READ/prompt="Frequency: " SYS$COMMAND freq
$ if f$length(freq) .ne. 2 then goto freq_err
$ if (freq .gt. 10) .and. (freq .lt. 61) then goto freq_ok
$freq_err:
$ write sys$output "Invalid Freqency, Please re-enter"
$ goto goldloop
$freq_ok:
$ READ/prompt="Line 1 " SYS$COMMAND line1
$ READ/prompt="Line 2 " SYS$COMMAND line2
$ READ/prompt="Line 3 " SYS$COMMAND line3
$ READ/prompt="Line 4 " SYS$COMMAND line4
$ READ/prompt="Line 5 " SYS$COMMAND line5
$ READ/prompt="Line 6 " SYS$COMMAND line6
$ f1 = F$EXTRACT(0,1,freq)
$ f2 = F$EXTRACT(1,1,freq)
$ temp = " ("+ line6 +")" + -
" ("+ line5 +")" + -
" ("+ line4 +")" + -
" ("+ line3 +")" + -
" ("+ line2 +")" + -
" ("+ line1 +")"
$ WRITE OUT "gold"
$ write out temp
$ temp = " ("+ ama_num + ")" + -
" ()" + -
" ("+ name +")" + -
" ("+f1+")" + -
" ("+f2+")"
$ if freq .le. 34
$ then temp = temp + " leftnum"
$ else temp = temp + " rightnum"
$ endif
$ write out temp
$ temp = "(" + f2 + ") (" + phone_num + ") (" + f1 + ") (" + name + ")
$ write out temp
$ temp = "(" + f2 + ") (" + ama_num + ") (" + f1 + ") (" + name + ") freq_flag"
$ write out temp
$ WRITE OUT "showpage"
$
$ READ/promt="Another pin for ''name' <N>: " SYS$COMMAND another
$ if another then goto goldloop
$
$ READ/promt="Create a pin for someone else <N>: " SYS$COMMAND another
$ if another then goto new_person
$
$ALL_DONE:
$ close out
$ write sys$output "File written to ''p1'"
$ EXIT
|
| 1070.20 | Making Channel Tags | CLOSUS::TAVARES | Stay low, keep moving | Mon May 13 1991 14:31 | 20 |
| I recently made the channel # thingy for the antenna by xeroxing
the postscripted channel numbers onto the clear overhead
projector plastic. I then made the tags out of .015 styrene
plastic (sold in the hobby shop for the model train types) and
glued the clear numbers down with RC56. Makes a pretty
creditable number.
Remember that the AMA requires the numbers be 1.25 inches high
and be black-on-white.
Hints: cut the clear plastic oversize to the tabs, then trim the
outside after the glue dries -- makes for a neater job than
cutting the plastic undersize and fitting it to the tag. Also,
glue up the numbers one side at a time and use weight to hold
everything flat while the glue dries.
Later this week, when I have some clear Hobbypoxy mixed, I'll try
to spray the tag to give it some protection. I don't think its
really necessary, and I present this with the caution that I
haven't done it yet.
|
| 1070.21 | Easy Frequency Flags | LEDS::WATT | | Fri May 08 1992 16:00 | 9 |
| Kay,
I used Dan's program - went in and made the numbers larger - cut
them out and mounted them on 1/16 ply scrap. Then I covered the face
with clear tape and glued two cloths pins on the back with the handle
shortened. Result was a better than purchased frequency number for
almost zero cost.
Charlie
|
| 1070.22 | It wasn't me (was it?) | RGB::MINER | Dan Miner, DTN:225-4015, HLO2-1/J12 (@ H11) | Fri May 08 1992 17:13 | 6 |
| Actually, my program was only for frequency pins to be used on a
flight line. Someone else (Jeff Freidrichs?) wrote one that made
nice freq. flags that you just folded around the antenna and stapled
it together. Simple, cheap, and practical...
- Dan M.
|