Return to Arrows.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Annotation of Examples/PostScript/Arrows.eps, revision 1.1

1.1     ! root        1: %!PS-Adobe-2.0 EPSF-2.0
        !             2: %%Title: arrows.eps
        !             3: %%Creator: Adobe Systems Incorporated
        !             4: %%Pages: 0 1 
        !             5: %%BoundingBox: 0 0 300 540
        !             6: %%EndComments
        !             7: %%BeginProcSet: arrows 1.0 0
        !             8: % From: Green Book Listing 3-4, on page 47.
        !             9: 
        !            10: % "arrowhead" takes these arguments:
        !            11: % lineweight prevX prevY
        !            12:  /arrowhead { %def
        !            13:        gsave
        !            14:                currentpoint
        !            15:                4 2 roll exch 4 -1 roll exch
        !            16:                sub 3 1 roll sub
        !            17:                exch atan rotate dup scale
        !            18:                -1 2 rlineto
        !            19:                7 -2 rlineto
        !            20:                -7 -2 rlineto
        !            21:                closepath fill
        !            22:        grestore
        !            23:        newpath
        !            24:  } bind def
        !            25:  /l^ { %def    % lineto-arrow
        !            26:        currentlinewidth currentpoint 5 3 roll
        !            27:        lineto
        !            28:        currentpoint stroke moveto
        !            29:        arrowhead
        !            30:  } bind def
        !            31:  /rl^ { %def    % rlineto-arrow
        !            32:        currentlinewidth currentpoint 5 3 roll
        !            33:        rlineto
        !            34:        currentpoint stroke moveto
        !            35:        arrowhead
        !            36:  } bind def
        !            37:  /arc^ { %def    % arc-arrow
        !            38:        5 copy arc
        !            39:        currentpoint stroke moveto           % stroke arc
        !            40:   % getting the correct orientation for the arrowhead
        !            41:   % is tricky. This procedure uses the arguments to
        !            42:   % "arc" to determine the tangent of the curve at the
        !            43:   % endpoint, and it orients the arrowhead along that
        !            44:   % tangent line.  It leaves an X-Y point that is just
        !            45:   % behind the arrowhead along the tangent.
        !            46:   % newX = X + radius * cos(endAngle-1)
        !            47:   % newY = Y + radius * sin(endAngle-1)
        !            48:        exch pop 1 sub   % endAngle - 1 degree
        !            49:        dup cos 2 index mul 4 index add     % arrowX
        !            50:        exch sin 2 index mul 3 index add    % arrowY
        !            51:        currentlinewidth 2 add 3 1 roll      % thickness
        !            52:        arrowhead pop pop pop                  % draw -\>
        !            53:  } bind def
        !            54: %%EndProcSet: arrows 1.0 0
        !            55: %%EndProlog
        !            56:  % line sample:
        !            57:  150 420 moveto
        !            58:  0 10 360 {
        !            59:        currentlinewidth .1 add setlinewidth
        !            60:        gsave
        !            61:        dup cos 100 mul
        !            62:        exch sin 100 mul
        !            63:        rl^
        !            64:        grestore
        !            65:  } bind for
        !            66:  newpath
        !            67:  % curve sample:
        !            68:  /radius 10 def .1 setlinewidth
        !            69:  0 30 360 {
        !            70:        /radius radius 10 add def
        !            71:        150 150 radius 0 5 -1 roll arc^
        !            72:  } bind for
        !            73:  showpage
        !            74: %%Trailer

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.