 Does anyone have a set of Romer templates written for MS Word etc that I can use to print out romers for various scales on transparencies using a laser printer please?
Thanks in advance
|
 |
<bump>
|
|
 I could probably knock one up in PostScript in short order if you tell me what scales you want. With printer compensation settings, too...
|
|
Hi Captain,
That would be great if you can spare the time. I'm looking for 1:20,000 1:25,000 and 1:50,000
I made a 1:20,000 romer by hand a few nights ago; it was simple enough but my finest indelible pen makes a line about 0.8 mm across!
Many thanks,
Dick
|
|
PS I know that these things can be bought - but not in Inverurie and I hardly ever go to Aberdeen; it's too mad.
God only knows how I'd get on in a big city!
|
|
The following three posts are PostScript code for romers. To use the code, simply copy and paste the code into a file, and then send the file to a PostScript printer (almost any printer these days). It's unlikely that you have a PostScript viewer on your PC (unless you have installed GhostScript and GhostView), so you will probably have to send the file directly to the printer, using the command shell line: copy <filename> <printer_name> /b where <filename> is the name you have given the saved code, and <printer> is the name of the printer you see when selecting a printer to use from any of the standard Windows applications. The /b flag selects binary interpretation; it shouldn't be needed, but avoids any funnies. The first is a simple 0..9 scale like you'd find on the edge of a compass. There are three values within the code to allow you to set any map scale you like; replace the 25000 with the scale you want. The other two values allow you to calibrate any printer scaling inaccuracies; the plot generates two 100mm lines in horiz and vertical directions. Measure these with a good ruler, and enter the values into the code. The corrected image should then be exactly the right size. The second is a modified version that makes it easier to keep the romer accurately square relative to the map grid, as the grid continues across the entire romer.
|
|
%!PS-Adobe-3.0
%%Creator: k j beeden
%%Title: map romer scale generator
%%CreationDate: Mon Aug 09 18:00:00 GMT 2004
%%Pages: 1
%%EndComments
%%BeginProlog
% USER DEFINED VALUES
% set map scale
/romer_scale 25000 def
% change this to the measured x-axis 100 mm dimension
/x_correct 100 def
% change this to the measured y-axis 100 mm dimension
/y_correct 100 def
/str 2 string def
%%EndProlog
%%BeginSetup
% set mm scale
72 25.4 div dup scale
% correct scaling for printer calibration
100.0 x_correct div
100.0 y_correct div
scale
%%EndSetup
%%Page: 1 1
% draw 100 mm printer calibration lines
10 10 translate
10 0 moveto
100 0 rlineto
0 10 moveto
0 100 rlineto
stroke
30 30 translate
% draw romer
% change to desired romer scale
25000 romer_scale div dup scale
/Helvetica 5 selectfont
0.2 setlinewidth
% draw square outline
0 0 moveto
50 0 rlineto
0 50 rlineto
-50 0 rlineto
0 -50 rlineto
% draw origin box
50 45 moveto
-5 0 rlineto
0 5 rlineto
stroke
46.25 46 moveto
(0) show
% draw eastings
1 1 9
{
dup 5 mul 45 moveto
0 5 rlineto
stroke
dup 5 mul 47.5 exch sub 41 moveto
str cvs dup stringwidth pop 2 div neg 0 rmoveto
show
} for
% draw northings
2 1 9
{
dup 5 mul 5 sub 45 exch moveto
5 0 rlineto
stroke
dup 5 mul 47.5 exch sub 41 exch moveto
str cvs 0 -1.5 rmoveto
show
} for
showpage
|
|
%!PS-Adobe-3.0
%%Creator: k j beeden
%%Title: map romer scale generator
%%CreationDate: Mon Aug 09 17:00:00 GMT 2004
%%Pages: 1
%%EndComments
%%BeginProlog
% USER DEFINED VALUES
% set map scale
/romer_scale 25000 def
% change this to the measured x-axis 100 mm dimension
/x_correct 100 def
% change this to the measured y-axis 100 mm dimension
/y_correct 100 def
/str 2 string def
%%EndProlog
%%BeginSetup
% set mm scale
72 25.4 div dup scale
% correct scaling for printer calibration
100.0 x_correct div
100.0 y_correct div
scale
%%EndSetup
%%Page: 1 1
% draw 100 mm printer calibration lines
10 10 translate
10 0 moveto
100 0 rlineto
0 10 moveto
0 100 rlineto
stroke
30 30 translate
% draw romer
% change to desired romer scale
25000 romer_scale div dup scale
/Helvetica 5 selectfont
0.2 setlinewidth
% draw square outline
0 0 moveto
50 0 rlineto
0 50 rlineto
-50 0 rlineto
0 -50 rlineto
% draw grid
1 1 9
{
5 mul 0 exch moveto
50 0 rlineto
stroke
} for
1 1 9
{
5 mul 0 moveto
0 50 rlineto
stroke
} for
% draw eastings
0 1 9
{
dup 5 mul 47.5 exch sub 46 moveto
str cvs dup stringwidth pop 2 div neg 0 rmoveto
show
} for
% draw northings
1 1 9
{
dup 5 mul 47.5 exch sub 46 exch moveto
str cvs 0 -1.5 rmoveto
show
} for
showpage
|
|
Last, but not least, is a romer I developed four years ago, when taking lots of readings of archaeological features, and was thinking of patenting, but I can't be bothered, as I don't think the financial returns would be worth it. It is provided here under the terms of the GNU Public Licence. The romer uses a vernier grid to allow four-figure references to be read from a 1:25000 map. It is used by placing the cross on the point to be measured, and reading off two digits for easting and northing. The first digit is read in the normal manner for a romer, using the E and N scales at top and right of the romer. The second digit is measured using the vernier grid. For eastings, look down the grid column of the first digit until you find the point at which the Northing map grid line crosses the right-hand of the two vernier grids bounding the column. Look across and read the 'e' scale. Similarly, for northings, look across the grid row of the first digit until you find the point at which the Eastings map grid line crosses the upper of the two vernier grids bounding the row. Look down and read the 'n' scale. It is important that the romer is aligned square to the map grid. This can be achieved by aligning the scale grid lines to the map grid by eye, so that the map grid falls at the same point between two lines at top & bottom, or left & right (only one alignment is needed). Note that the opposite scale numbers are offset by one, so don't try to align "one to one", although it should be glaringly obvious if you've done this. Note that this code will print 9 grids on an A4 acetate, and uses colour to highlight the origin and scale orientations. A surround area is provided to ease handling.
|
|
%!PS-Adobe-3.0
%%Creator: k j beeden
%%Title: 1:25000 map grid measuring device
%%CreationDate: Fri Feb 04 15:17:03 GMT 2000
%%Pages: 1
%%EndComments
%%BeginProlog
/x 2 string def
/v 0.09 def
/v10 0.9 def
/grid {
0 setgray
% copyright notice
0 0 moveto
-90 rotate
-1.75 -17 moveto
(\251 kj beeden february 2000) show
0 0 moveto
90 rotate
% draw cutting lines
6.75 2.75 moveto
0 -16.5 rlineto
-24.5 0 rlineto
0 16.5 rlineto
24.5 0 rlineto
stroke
% draw outline
2 2 moveto
0 -15 rlineto
-15 0 rlineto
0 15 rlineto
15 0 rlineto
stroke
% horizontal numbers
0 1 9 {
dup 10 mod
x cvs
dup stringwidth
pop 2 div
3 -1 roll add 0.5 add neg
1.0 3 copy moveto
show
13.5 sub exch 1 sub exch moveto
show
} for
% vertical numbers
0 1 9 {
dup dup 10 mod
x cvs
exch 0.7 add neg
1 exch 3 copy moveto
show
1 sub exch 13.5 sub exch moveto
show
} for
% eastings markers
-11 2 moveto
0 -2 rlineto
-2 0 rlineto
stroke
% northings markers
0 -13 moveto
0 2 rlineto
2 0 rlineto
stroke
% annotation colour
0.3 1 0.7 sethsbcolor
% eastings annotation
(Ee) dup stringwidth pop
2 div 12 add neg
1 moveto show
(E) dup stringwidth pop
2 div 10.5 add neg
1 moveto show
(e) -12.5 -0.7 moveto show
% northings annotation
(Nn) dup stringwidth pop
2 div 1 sub neg
-12.5 moveto show
(N) 0.95 -10.75 moveto show
(n) dup stringwidth pop
2 div -0.95 add
-12.5 moveto show
% normal colour
0 setgray
% draw vernier grid
0 1 10 {
neg dup
dup 2 moveto % top of scale
dup 0.1 mul lineto % top of grid
-1 -10 rlineto % grid angled line
dup dup 1 sub -13 lineto % bottom of offset scale
dup 2 exch moveto % rhs of scale
dup 0.1 mul exch lineto % rhs of angled grid
-10 -1 rlineto % lhs of angled grid
1 sub -13 exch lineto % lhs of offset scale
stroke
} for
% draw red pointer cross
1 1 1 sethsbcolor
0.4 0.4 moveto
0.05 0.05 lineto
-0.05 -0.05 moveto
-0.4 -0.4 lineto
0.4 -0.4 moveto
0.05 -0.05 lineto
-0.05 0.05 moveto
-0.4 0.4 lineto
stroke
% draw red pointer circle
1 setgray
0.1 0 moveto
0 0 0.1 0 360 arc
fill
0 1 1 sethsbcolor
0.1 0 moveto
0 0 0.1 0 360 arc
stroke
} def
%%EndProlog
%%BeginSetup
% set page device
90 rotate
0 -595 translate
% set millimetre scale
% set scale to 4mm per unit (0.1km)
288 25.4 div dup scale
0.03 setlinewidth
% define font as 3mm Helvetica
/Helvetica findfont 0.75 scalefont setfont
%%EndSetup
%%Page: 1 1
% draw lots of grids
-6.5 15 translate
0 1 2 {
0 1 2 {
24.5 0 translate
grid
} for
-73.5 16.5 translate
} for
% plot design
showpage
|
|
d'oh! I'm a stupid captain who hasn't actually printed out the first two romers to check them...
Which means that they are 5cm on a side, not the required 4.
so, after the code
% draw romer
% change to desired romer scale
25000 romer_scale div dup scale
insert the line:
0.8 0.8 scale
That'll fix it...
The third romer has been much tested and used in anger, so needs no corrections.
|
|
 Just found a pdf romer scale, which i just printed on transparencies and they seem ok. They're only good for 1:25k an 1:50k, but i thought i'd post this anyway as i've been after one for ages... Link below. pdf romer
|
|
