Return to YapWrap.psw CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / Yap

Annotation of Examples/AppKit/Yap/YapWrap.psw, revision 1.1

1.1     ! root        1: /*
        !             2:  *  The following pswrap functions are used by YapOutput in the Yap program...
        !             3:  *  By: Ali Ozer
        !             4:  *
        !             5:  *  You may freely copy, distribute and reuse the code in this example.
        !             6:  *  NeXT disclaims any warranty of any kind, expressed or implied,
        !             7:  *  as to its fitness for any particular use.
        !             8:  */
        !             9: 
        !            10: defineps GetUserTime (| int *utime)
        !            11:   yaptime utime
        !            12: endps
        !            13: 
        !            14: /*
        !            15:  * GetFocus gets the bbox of the current clippath, the ctm, and 
        !            16:  * current win number. ReFocus focuses given these values.
        !            17:  */
        !            18: 
        !            19: defineps GetFocus(|float *llx; float *lly, *urx, *ury, ctm[6]; int *win)
        !            20:     gsave clippath pathbbox ury urx lly llx grestore
        !            21:     matrix currentmatrix {ctm} forall
        !            22:     currentwindow win
        !            23: endps
        !            24: 
        !            25: defineps ReFocus(int win; float ctm[6]; float llx, lly, urx, ury)
        !            26:     win windowdeviceround      % focus on this window
        !            27:     ctm setmatrix              % set up the matrix
        !            28:     newpath                    % reestablish the clip path
        !            29:        llx lly moveto
        !            30:        llx ury lineto
        !            31:        urx ury lineto
        !            32:        urx lly lineto
        !            33:     closepath clip
        !            34:     newpath
        !            35: endps
        !            36: 

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