|
Revision 4, 417 bytes
(checked in by jms, 8 months ago)
|
Chargement de jps2ps dans le SVN.
|
| Line | |
|---|
| 1 |
/Oy 0 def |
|---|
| 2 |
|
|---|
| 3 |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|---|
| 4 |
/baton0 {.5 bat@n} def |
|---|
| 5 |
/baton1 {1 bat@n} def |
|---|
| 6 |
/baton2 {3 bat@n} def |
|---|
| 7 |
/baton3 {4 bat@n} def |
|---|
| 8 |
/baton {2 bat@n} def |
|---|
| 9 |
|
|---|
| 10 |
%% syntaxe : x y e bat@n --> e = epaisseur du trait |
|---|
| 11 |
/bat@n { |
|---|
| 12 |
gsave |
|---|
| 13 |
newpath |
|---|
| 14 |
setlinewidth |
|---|
| 15 |
0 setlinecap |
|---|
| 16 |
2 copy |
|---|
| 17 |
pop Oy smoveto |
|---|
| 18 |
slineto |
|---|
| 19 |
stroke |
|---|
| 20 |
grestore |
|---|
| 21 |
} def |
|---|
| 22 |
|
|---|
| 23 |
/batons { |
|---|
| 24 |
aload length 2 idiv |
|---|
| 25 |
{baton} repeat |
|---|
| 26 |
} def |
|---|
| 27 |
|
|---|
