Mouse Pads - Postscript surrogate

2007-12-25 8:29:00

My original posting:

> I seem to remember that some while ago someone gave a pointer to a

> source for a postscript file which, when printed, could be used as a

> mouse pad for a Sun optical mouse.

>

>

> Please could you remind me where it was - I will summarise.

I have had several copies sent to me of a mousepad for a Type 3 mouse.

Unfortunately it doesn't work for a type 4, and neither changing the

scaling in the Postscript file nor reducing on a photo-copier worked :-(

It was pointed out to me that SunExpress sell replacement mouse pads

at a very reasonable rate (in UK, (pounds)13), so that seems a more

promising avenue.

Thanks to

tommy@boole.att.com (Tommy Reingold)

"Derrick J. Brashear" <db74+@andrew.cmu.edu>

ept@ornl.gov ( E P Tinnel)

led@abend.cc.purdue.edu (Lew Doll)

Steve Simmons <scs@lokkur.dexter.mi.us>

blymn@mulga.awadi.com.AU (Brett Lymn)

jayl@lattice.com (Jay Lessert)

szh@zcon.com (Syed Zaeem Hosain)

glenn@uniq.com.au (Glenn Satchell - Uniq Professional Services)

Kenton "C." Phillips <kenton@space.mit.edu>

eraatorn@kibs10.ericsson.se (Anders Tornqvist)

dsnmkey@guinness.ericsson.se (Martin Kelly)

cws <cws@math.ufl.edu>

todd@flex.eng.mcmaster.ca (Todd Pfaff)

And here is the file - it is less than 1K

----8<--snip--snip-------------------------------------------------------------

%!

%% Sun 3 mouse pad

%% Copyright 1987, BeakSoft Inc.

%% All Rights Reserved

%% Permission is granted to copy and use this without charge as long

%% as the copyright notices remain intact.

%%

%%

gsave

90 rotate

/ZapfChancery-MediumItalic findfont 24 scalefont setfont

5 -40 moveto

(This is a mouse pad. It works!) show

( 1987, BeakSoft Inc.)

    dup

        stringwidth pop

        10.9 72 mul

            exch sub

        dup /copyr exch def

        -40 moveto

    show

/Symbol findfont 24 scalefont setfont

(\343)

    dup

        stringwidth pop

        copyr exch sub

        -40 moveto

    show

grestore

.8 setlinewidth

50 0 moveto

250

    { 2.4 0 rmoveto gsave 0 11 72 mul rlineto stroke grestore } repeat

.6 setlinewidth

50 0 moveto

300 { 0 2.8 rmoveto gsave 8.5 72 mul 0 rlineto stroke grestore } repeat

showpage

Comments

Got something to say?

You must be logged in to post a comment.