Results 1 to 11 of 11

Thread: Romer templates for PC

  1. #1
    ‹bermensch Ace High's Avatar
    Join Date
    Jul 2004
    Location
    United Kingdom
    Posts
    3,216
    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

  2. #2
    ‹bermensch Ace High's Avatar
    Join Date
    Jul 2004
    Location
    United Kingdom
    Posts
    3,216

  3. #3
    Super Moderator captain paranoia's Avatar
    Join Date
    Aug 2003
    Location
    United Kingdom
    Posts
    10,962
    I could probably knock one up in PostScript in short order if you tell me what scales you want. With printer compensation settings, too...

  4. #4
    ‹bermensch Ace High's Avatar
    Join Date
    Jul 2004
    Location
    United Kingdom
    Posts
    3,216
    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

  5. #5
    ‹bermensch Ace High's Avatar
    Join Date
    Jul 2004
    Location
    United Kingdom
    Posts
    3,216
    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!

  6. #6
    Super Moderator captain paranoia's Avatar
    Join Date
    Aug 2003
    Location
    United Kingdom
    Posts
    10,962


    The following three posts are PostScript code for romers. To use the code, simply copy and use a text editor to paste the code into a plain text file with a .ps extension, 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 /b

    where is the name you have given the saved code, and 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.

  7. #7
    Super Moderator captain paranoia's Avatar
    Join Date
    Aug 2003
    Location
    United Kingdom
    Posts
    10,962


    %!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 4 selectfont
    0.2 setlinewidth
    % draw square outline
    0 0 moveto
    40 0 rlineto
    0 40 rlineto
    -40 0 rlineto
    0 -40 rlineto
    % draw origin box
    40 36 moveto
    -4 0 rlineto
    0 4 rlineto
    stroke
    37 36.7 moveto
    (0) show

    % draw eastings
    1 1 9
    {
    dup 4 mul 36 moveto
    0 4 rlineto
    stroke
    dup 4 mul 38 exch sub 32.8 moveto
    str cvs dup stringwidth pop 2 div neg 0 rmoveto
    show
    } for
    % draw northings
    2 1 9
    {
    dup 4 mul 4 sub 36 exch moveto
    4 0 rlineto
    stroke
    dup 4 mul 38 exch sub 33 exch moveto
    str cvs 0 -1.3 rmoveto
    show
    } for

    showpage

  8. #8
    Super Moderator captain paranoia's Avatar
    Join Date
    Aug 2003
    Location
    United Kingdom
    Posts
    10,962


    %!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 4 selectfont
    0.2 setlinewidth
    % draw square outline
    0 0 moveto
    40 0 rlineto
    0 40 rlineto
    -40 0 rlineto
    0 -40 rlineto

    % draw grid
    1 1 9
    {
    4 mul 0 exch moveto
    40 0 rlineto
    stroke
    } for

    1 1 9
    {
    4 mul 0 moveto
    0 40 rlineto
    stroke
    } for

    % draw eastings
    0 1 9
    {
    dup 4 mul 38 exch sub 36.8 moveto
    str cvs dup stringwidth pop 2 div neg 0 rmoveto
    show
    } for
    % draw northings
    1 1 9
    {
    dup 4 mul 38 exch sub 38 exch moveto
    str cvs dup stringwidth pop 2 div neg -1.3 rmoveto
    show
    } for

    showpage

  9. #9
    Super Moderator captain paranoia's Avatar
    Join Date
    Aug 2003
    Location
    United Kingdom
    Posts
    10,962
    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.

  10. #10
    Super Moderator captain paranoia's Avatar
    Join Date
    Aug 2003
    Location
    United Kingdom
    Posts
    10,962
    %!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

  11. #11
    ‹bermensch tdave@walkeryri.org.uk's Avatar
    Join Date
    Jun 2004
    Location
    United Kingdom
    Posts
    1,692
    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

Similar Threads

  1. FS: Mountain Trails Point Locator & Romer Cards
    By Mark Trodden in forum Classifieds Section
    Replies: 0
    Last Post: 16-12-2013, 11:18 AM
  2. 'Romer' or 'roamer'
    By Hugh Westacott in forum Soapbox
    Replies: 22
    Last Post: 09-12-2012, 09:55 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •