home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
NeXTSTEP 3.0
/
NeXTSTEP3.0.iso
/
NextDeveloper
/
Examples
/
AppKit
/
Yap
/
YapWrap.psw
< prev
Wrap
Text File
|
1991-06-07
|
974b
|
37 lines
/*
* The following pswrap functions are used by YapOutput in the Yap program...
* By: Ali Ozer
*
* You may freely copy, distribute and reuse the code in this example.
* NeXT disclaims any warranty of any kind, expressed or implied,
* as to its fitness for any particular use.
*/
defineps GetUserTime (| int *utime)
yaptime utime
endps
/*
* GetFocus gets the bbox of the current clippath, the ctm, and
* current win number. ReFocus focuses given these values.
*/
defineps GetFocus(|float *llx; float *lly, *urx, *ury, ctm[6]; int *win)
gsave clippath pathbbox ury urx lly llx grestore
matrix currentmatrix {ctm} forall
currentwindow win
endps
defineps ReFocus(int win; float ctm[6]; float llx, lly, urx, ury)
win windowdeviceround % focus on this window
ctm setmatrix % set up the matrix
newpath % reestablish the clip path
llx lly moveto
llx ury lineto
urx ury lineto
urx lly lineto
closepath clip
newpath
endps