home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.mdf / SourceCode / AdobeExamples / NX_StrAdj / StrokeViewWraps.psw < prev    next >
Encoding:
Text File  |  1993-01-18  |  1.8 KB  |  65 lines
  1.  
  2. /*
  3.  * (a)  (C) 1990 by Adobe Systems Incorporated. All rights reserved.
  4.  *
  5.  * (b)  If this Sample Code is distributed as part of the Display PostScript
  6.  *    System Software Development Kit from Adobe Systems Incorporated,
  7.  *    then this copy is designated as Development Software and its use is
  8.  *    subject to the terms of the License Agreement attached to such Kit.
  9.  *
  10.  * (c)  If this Sample Code is distributed independently, then the following
  11.  *    terms apply:
  12.  *
  13.  * (d)  This file may be freely copied and redistributed as long as:
  14.  *    1) Parts (a), (d), (e) and (f) continue to be included in the file,
  15.  *    2) If the file has been modified in any way, a notice of such
  16.  *      modification is conspicuously indicated.
  17.  *
  18.  * (e)  PostScript, Display PostScript, and Adobe are registered trademarks of
  19.  *    Adobe Systems Incorporated.
  20.  * 
  21.  * (f) THE INFORMATION BELOW IS FURNISHED AS IS, IS SUBJECT TO
  22.  *    CHANGE WITHOUT NOTICE, AND SHOULD NOT BE CONSTRUED
  23.  *    AS A COMMITMENT BY ADOBE SYSTEMS INCORPORATED.
  24.  *    ADOBE SYSTEMS INCORPORATED ASSUMES NO RESPONSIBILITY
  25.  *    OR LIABILITY FOR ANY ERRORS OR INACCURACIES, MAKES NO
  26.  *    WARRANTY OF ANY KIND (EXPRESS, IMPLIED OR STATUTORY)
  27.  *    WITH RESPECT TO THIS INFORMATION, AND EXPRESSLY
  28.  *    DISCLAIMS ANY AND ALL WARRANTIES OF MERCHANTABILITY, 
  29.  *    FITNESS FOR PARTICULAR PURPOSES AND NONINFRINGEMENT
  30.  *    OF THIRD PARTY RIGHTS.
  31.  */
  32.  
  33. /*
  34.  *    StrokeViewWraps.psw
  35. */
  36.  
  37. defineps PSWMarkTime ()
  38.     /StartTime realtime def
  39. endps
  40.  
  41. defineps PSWReturnTime (|int *ElapsedTime)
  42.     realtime StartTime sub 
  43.     ElapsedTime
  44. endps
  45.  
  46. defineps PSWDefs ()
  47.     /MakeLine { % X1 Y1 X0 Y0
  48.         moveto
  49.         lineto
  50.     } bind def    
  51.     
  52.     /MakeArc { % X Y Rad AngBeg AngEnd X' Y
  53.         moveto arc
  54.     } bind def    
  55. endps
  56.  
  57. defineps PSWMakeLine (float X0, Y0, X1, Y1)
  58.     X1 Y1 X0 Y0 MakeLine
  59. endps
  60.  
  61. defineps PSWMakeArc (float X, Y, Rad, AngBeg, AngEnd)
  62.     X Y Rad AngBeg AngEnd  X Rad add Y MakeArc 
  63. endps
  64.  
  65.