Auto populating text fields. Text insert question. 2

[stevef22]

Hello and good day to everyone, glad to be a part of this forum! I am going to stick around this site, GREAT INFORMATION!

My question is how do I insert text faster? I am bulding a plaque. Booooring yes I know but necessary. Anyone know how to set up "pre-determined" text fields that populate from an internal or external text? Right now I have to >duplicate layer>drag layer to new spot>enter in new text. It would be really neat if PS could populate from a file like web-site populate pages from other text files. If anyone knows a faster way to enter in this text then your are the PS GURU. Thanks again.
Steve

 

[TrojanWarBlade]

Yes you did!!! ;-)

Nice idea Duncs, even works in GIMP.

Cool!

I guess it's getting a bit late!
hehehe


Trojan.

 

[duncdude]

how't this?

%!PS

%---------- Procedures ----------

/cm {28.3464567 mul} def

%---------- Postscript ----------


4 cm 25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Leann) dup stringwidth pop 2 div neg 0 rmoveto show
4 cm 24.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Mckneand) dup stringwidth pop 2 div neg 0 rmoveto show
2.5 cm 23.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 592) show
8 cm 25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Angela) dup stringwidth pop 2 div neg 0 rmoveto show
8 cm 24.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Schuessler) dup stringwidth pop 2 div neg 0 rmoveto show
6.5 cm 23.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 0593) show
12 cm 25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Rufus) dup stringwidth pop 2 div neg 0 rmoveto show
12 cm 24.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Smith) dup stringwidth pop 2 div neg 0 rmoveto show
10.5 cm 23.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2220) show
16 cm 25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Sara) dup stringwidth pop 2 div neg 0 rmoveto show
16 cm 24.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doss) dup stringwidth pop 2 div neg 0 rmoveto show
14.5 cm 23.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2310) show

4 cm 21 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Laynette) dup stringwidth pop 2 div neg 0 rmoveto show
4 cm 20.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Mccray) dup stringwidth pop 2 div neg 0 rmoveto show
2.5 cm 19.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2319) show
8 cm 21 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Atalissa) dup stringwidth pop 2 div neg 0 rmoveto show
8 cm 20.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Vaughn) dup stringwidth pop 2 div neg 0 rmoveto show
6.5 cm 19.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2394) show
12 cm 21 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Alex) dup stringwidth pop 2 div neg 0 rmoveto show
12 cm 20.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Camarrillo) dup stringwidth pop 2 div neg 0 rmoveto show
10.5 cm 19.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 0903) show
16 cm 21 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Roseann) dup stringwidth pop 2 div neg 0 rmoveto show
16 cm 20.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Lyson) dup stringwidth pop 2 div neg 0 rmoveto show
14.5 cm 19.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 1409) show

4 cm 17 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
4 cm 16.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Weller) dup stringwidth pop 2 div neg 0 rmoveto show
2.5 cm 15.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2352) show
8 cm 17 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
8 cm 16.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
6.5 cm 15.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
12 cm 17 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
12 cm 16.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
10.5 cm 15.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
16 cm 17 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
16 cm 16.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
14.5 cm 15.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

4 cm 13 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
4 cm 12.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
2.5 cm 11.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
8 cm 13 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
8 cm 12.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
6.5 cm 11.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
12 cm 13 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
12 cm 12.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
10.5 cm 11.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
16 cm 13 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
16 cm 12.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
14.5 cm 11.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

4 cm 9 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
4 cm 8.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
2.5 cm 7.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
8 cm 9 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
8 cm 8.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
6.5 cm 7.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
12 cm 9 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
12 cm 8.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
10.5 cm 7.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
16 cm 9 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
16 cm 8.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
14.5 cm 7.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

4 cm 5 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
4 cm 4.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
2.5 cm 3.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
8 cm 5 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
8 cm 4.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
6.5 cm 3.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
12 cm 5 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
12 cm 4.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
10.5 cm 3.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show
16 cm 5 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show
16 cm 4.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
14.5 cm 3.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

if it works - it's because the values dropped below 1 toward the bottom of the output - which caused no errors with Photoshop

... i hope


Kind Regards
Duncan

 

[duncdude]

just changed to $v-=4;


Kind Regards
Duncan

 

[TrojanWarBlade]

It's no different.
Same errors.
:-(


Trojan.

 

[duncdude]

Hi Steve - how did you get on with the PS and with Perl install?

Hi Trojan - sorry i had to get some sleep! What is the current situation with GIMP & the PS file? Can you try repeatedly shaving some of the bottom until it works?


Kind Regards
Duncan

 

[TrojanWarBlade]

Duncs,
I started on that last night after you went to bed! ;-)
I'll try more tests again today.
Do you have MacGimp?
Does it work in that?


Trojan.

 

[TrojanWarBlade]

Duncs,
I was working on my laptop last night ni Fedora Core 4 and had no luck.
This morning I'm using my main machine with Fedora Core 3 and that has a tool called "ggv" which does indeed open the file happily. Unfortunately, Gimp still doesn't want to know (although I'm not surprised because I have the same version (2.2) on both machines).
I'll tinker a little more and see if I can get Gimp to accept something.


Trojan.

 

[TrojanWarBlade]

Found it.
The problem was that your code does not generate a "showpage" at the bottom!
I don't know whether it's necessary in the postscript syntax but Gimp needs it.


Trojan.

 

[TrojanWarBlade]

The next problem I have is that the page loads as a default A4 or letter (I'm not sure which) and therefore the lower data is chopped off the bottom.
I can set the page size as I import but I have no way of knowing in advance what it should be.
Does Postscript allow for a page size definition (silly question, of course it does!) and how do we do that? I guess that the perl should be able to calculate the page size required or even split into multiple pages.
Maybe we could add a switch to allow that to be optional.


Trojan.

 

[duncdude]

showpage - good find Trojan! blimey, must have been so tired last night that i could not see the wood for the trees. wicked!

yes - it is totally necessary - unless importing into Photoshop... as that does not need to 'spit out the page' as such

page size is a bit like this:-

%!PS-Adobe-3.0

<</PageSize [1190 842]>>setpagedevice

Kind Regards
Duncan

 

[TrojanWarBlade]

But you have much more data than you can fit on a page of that size.
Would you chop the page in 2 or 3 or just stretch the page vertically to fit all the data on? How would you achieve this?


Trojan.

 

[TrojanWarBlade]

When I doubled the height (gimp options on import) the data started at the same place relative to the bottom and rolled off the bottom at the same point. I was left with lots of blank page at the top.
:-(


Trojan.

 

[TrojanWarBlade]

BTW: Steve's font looks like a serif font and yours is a san-serif font.
Just thought I'd point that out! ;-)
And whilst I'm picking holes, I would suggest that your code

($firstname, $surname) = split(/ /, $name);

could be changed to

($firstname, $surname) = split(/\s+/, $name, 2);

Call it insurance. ;-)


Trojan.

 

[TrojanWarBlade]

Also, if you made the font name a scalar and interpolated it into each string you could change it very easily.


Trojan.

 

[TrojanWarBlade]

And personally I think that reading a complete file into memory at once is a bad idea. I limits the size of file you can process and you'll probably not really notice much difference in performance anyway. You'll notice from my posts that I almost always use the "while(<>)" contruct.

And I don't like writing to specific files unless really necessary. If you read from stdin and write to stdout the script can be used as a filter in pipelines or in a shell script to process many files, each with different input and output filenames.

Yeah, I know, shut up Trojan! ;-)


Trojan.

 

[duncdude]

Yeah - good points but shut up! ;-)

I cannot work out why the last names are not appearing - help!


Kind Regards
Duncan

 

[duncdude]

this is what i have at present:-

[b]#!/usr/bin/perl[/b]

$v = 28;

open (PS_OUT, "> plaque_names.ps");

select PS_OUT;

chomp (@data = <DATA>);

print <<PREAMBLE;
%!PS

%---------- Procedures ----------

/cm {28.3464567 mul} def

%---------- Postscript ----------

<< /PageSize [21 cm 29.7 cm] >> setpagedevice

PREAMBLE

for ($x=0; $x<=$#data; $x++) {
  if ($x % 3 == 0) {
    for ($y=1; $y<=4; $y++) {
    
       $name = shift @data;
      $store = shift @data;
       $date = shift @data;
       
      ($firstname, $surname) = split(/ /, $name);
      
      print $y * 4 . " cm " . $v . " cm moveto\n";
      print "/Helvetica-Bold findfont 16 scalefont setfont\n";
      print "($firstname) dup stringwidth pop 2 div neg 0 rmoveto show\n\n";
      
      print $y * 4 . " cm " . ($v - 0.75) . " cm moveto\n";
      print "/Helvetica-Bold findfont 16 scalefont setfont\n";
      print "($surname) dup stringwidth pop 2 div neg 0 rmoveto show\n\n";
      
      print $y * 4 - 1.5 . " cm " . ($v - 1.25) . " cm moveto\n";
      print "/Helvetica findfont 8 scalefont setfont\n";
      print "($store) show\n\n";
      
    }
    print "\n\n";
    $v-=2;
  }
}

close PS_OUT;

__DATA__
Leann Mckneand
Store 592
January 2005
Angela Schuessler
Store 0593
January 2005
Rufus Smith
Store 2220
January 2005
Sara Doss
Store 2310
January 2005
Laynette Mccray
Store 2319
January 2005
Atalissa Vaughn
Store 2394
January 2005
Alex Camarrillo
Store 0903
January 2005
Roseann Lyson
Store 1409
January 2005
Jon Weller
Store 2352
January 2005
Jon Doh
Store 0001
January 2005
Jon Doh
Store 0002
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 0010
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
John Smith
Store 0015
January 2005
Jon Doh
Store 5555
January 2005
Jon Doh
Store 5555
January 2005
Duncan Dude
Store 5555
January 2005
Duncan Dude
Store 5555
January 2005
Duncan Dude
Store 5555
January 2005

Kind Regards
Duncan

 

[TrojanWarBlade]

It's simple.
Your Y Co-ords have gone negative!

16 cm [red]-0.75[/red] cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show
14.5 cm [red]-1.25[/red] cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

Still want me to shut up? ;-)


Trojan.

 

[TrojanWarBlade]

It's interesting that you use $y for x co-ords and $v for y co-ords.
Is there a method in that madness? ;-)


Trojan.

 

[duncdude]

I just ran the last post - and no negative numbers were generated?

this is the output:-

%!PS

%---------- Procedures ----------

/cm {28.3464567 mul} def

%---------- Postscript ----------

<< /PageSize [21 cm 29.7 cm] >> setpagedevice

4 cm 28 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Leann) dup stringwidth pop 2 div neg 0 rmoveto show

4 cm 27.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Mckneand) dup stringwidth pop 2 div neg 0 rmoveto show

2.5 cm 26.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 592) show

8 cm 28 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Angela) dup stringwidth pop 2 div neg 0 rmoveto show

8 cm 27.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Schuessler) dup stringwidth pop 2 div neg 0 rmoveto show

6.5 cm 26.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 0593) show

12 cm 28 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Rufus) dup stringwidth pop 2 div neg 0 rmoveto show

12 cm 27.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Smith) dup stringwidth pop 2 div neg 0 rmoveto show

10.5 cm 26.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2220) show

16 cm 28 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Sara) dup stringwidth pop 2 div neg 0 rmoveto show

16 cm 27.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doss) dup stringwidth pop 2 div neg 0 rmoveto show

14.5 cm 26.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2310) show



4 cm 26 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Laynette) dup stringwidth pop 2 div neg 0 rmoveto show

4 cm 25.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Mccray) dup stringwidth pop 2 div neg 0 rmoveto show

2.5 cm 24.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2319) show

8 cm 26 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Atalissa) dup stringwidth pop 2 div neg 0 rmoveto show

8 cm 25.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Vaughn) dup stringwidth pop 2 div neg 0 rmoveto show

6.5 cm 24.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2394) show

12 cm 26 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Alex) dup stringwidth pop 2 div neg 0 rmoveto show

12 cm 25.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Camarrillo) dup stringwidth pop 2 div neg 0 rmoveto show

10.5 cm 24.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 0903) show

16 cm 26 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Roseann) dup stringwidth pop 2 div neg 0 rmoveto show

16 cm 25.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Lyson) dup stringwidth pop 2 div neg 0 rmoveto show

14.5 cm 24.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 1409) show



4 cm 24 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

4 cm 23.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Weller) dup stringwidth pop 2 div neg 0 rmoveto show

2.5 cm 22.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 2352) show

8 cm 24 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

8 cm 23.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

6.5 cm 22.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 0001) show

12 cm 24 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

12 cm 23.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

10.5 cm 22.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 0002) show

16 cm 24 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

16 cm 23.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

14.5 cm 22.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show



4 cm 22 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

4 cm 21.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

2.5 cm 20.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

8 cm 22 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

8 cm 21.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

6.5 cm 20.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

12 cm 22 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

12 cm 21.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

10.5 cm 20.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

16 cm 22 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

16 cm 21.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

14.5 cm 20.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show



4 cm 20 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

4 cm 19.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

2.5 cm 18.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

8 cm 20 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

8 cm 19.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

6.5 cm 18.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

12 cm 20 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

12 cm 19.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

10.5 cm 18.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 0010) show

16 cm 20 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

16 cm 19.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

14.5 cm 18.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show



4 cm 18 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

4 cm 17.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

2.5 cm 16.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

8 cm 18 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

8 cm 17.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

6.5 cm 16.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

12 cm 18 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Jon) dup stringwidth pop 2 div neg 0 rmoveto show

12 cm 17.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Doh) dup stringwidth pop 2 div neg 0 rmoveto show

10.5 cm 16.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 5555) show

16 cm 18 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(John) dup stringwidth pop 2 div neg 0 rmoveto show

16 cm 17.25 cm moveto
/Helvetica-Bold findfont 16 scalefont setfont
(Smith) dup stringwidth pop 2 div neg 0 rmoveto show

14.5 cm 16.75 cm moveto
/Helvetica findfont 8 scalefont setfont
(Store 0015) show

Kind Regards
Duncan