[GRASS-SVN] r37768 - in grass/branches/develbranch_6/ps/ps.map: . decorations

svn_grass at osgeo.org svn_grass at osgeo.org
Sat Jun 6 21:40:05 EDT 2009


Author: hamish
Date: 2009-06-06 21:40:05 -0400 (Sat, 06 Jun 2009)
New Revision: 37768

Added:
   grass/branches/develbranch_6/ps/ps.map/decorations/
   grass/branches/develbranch_6/ps/ps.map/decorations/compass_exterior.eps
   grass/branches/develbranch_6/ps/ps.map/decorations/compass_interior.eps
Removed:
   grass/branches/develbranch_6/ps/ps.map/decorations/
Log:
compass decorations from Jorge Tizado (merge from devbr6)

Added: grass/branches/develbranch_6/ps/ps.map/decorations/compass_exterior.eps
===================================================================
--- grass/branches/develbranch_6/ps/ps.map/decorations/compass_exterior.eps	                        (rev 0)
+++ grass/branches/develbranch_6/ps/ps.map/decorations/compass_exterior.eps	2009-06-07 01:40:05 UTC (rev 37768)
@@ -0,0 +1,9 @@
+%!PS-Adobe-2.0 EPSF-1.2
+%%BoundingBox: 0 0 220 220
+gsave 110 110 moveto
+/str 20 string def
+.5 setlinewidth 1 0 1 setrgbcolor /Helvetica findfont 8 scalefont setfont
+90 rotate
+100 0 90 270 {gsave rotate dup 0 rlineto [1] 0 setdash stroke grestore} for
+0 -1 -359 {/i exch def gsave i rotate dup 0 rmoveto i 10 mod 0 eq {-9 0 rlineto i neg str cvs dup stringwidth pop 2 div 10 exch rmoveto gsave 270 rotate show grestore} {i 5 mod 0 eq {-6} {-3} ifelse 0 rlineto} ifelse stroke grestore} for pop
+grestore
\ No newline at end of file

Added: grass/branches/develbranch_6/ps/ps.map/decorations/compass_interior.eps
===================================================================
--- grass/branches/develbranch_6/ps/ps.map/decorations/compass_interior.eps	                        (rev 0)
+++ grass/branches/develbranch_6/ps/ps.map/decorations/compass_interior.eps	2009-06-07 01:40:05 UTC (rev 37768)
@@ -0,0 +1,9 @@
+%!PS-Adobe-2.0 EPSF-1.2
+%%BoundingBox: 0 0 150 150
+gsave 75 75 moveto
+/str 20 string def
+.5 setlinewidth 1 0 1 setrgbcolor /Helvetica findfont 6 scalefont setfont
+90 rotate
+60 0 90 270 {gsave rotate dup 0 rlineto stroke grestore} for
+0 -1 -359 {/i exch def gsave i rotate dup 0 rmoveto i 10 mod 0 eq {6 0 rlineto i 30 mod 0 eq {i neg str cvs dup stringwidth pop 2 div 1 exch rmoveto gsave 270 rotate show grestore} if} {i 5 mod 0 eq {3} {1.5} ifelse 0 rlineto} ifelse stroke grestore} for
+grestore



More information about the grass-commit mailing list