home *** CD-ROM | disk | FTP | other *** search
- /*
- * Vdi contrl functions library interface (part 2)
- *
- * v_clrwk clear workstation
- * v_updwk update workstation
- * vst_load_fonts load fonts
- * vst_unload_fonts unload fonts
- * vs_clip set clipping rect
- *
- * ++jrb bammi@cadence.com
- * modified: mj -- ntomczak@vm.ucs.ualberta.ca
- */
- #include "common.h"
-
- #ifdef __DEF_ALL__
-
- #define L_v_clrwk
- #define L_v_updwk
- #define L_vst_load
- #define L_vst_unlo
- #define L_vs_clip
-
- #endif /* __DEF_ALL__ */
-
-
- #ifdef L_v_clrwk
-
- /* clear workstation
- * returns void
- */
- void v_clrwk(int handle)
- {
- __vdi__(VDI_CONTRL_ENCODE(3, 0, 0, 0), handle);
- }
- #endif /* L_v_clrwk */
-
- #ifdef L_v_updwk
-
- /* update workstation
- * returns void
- */
- void v_updwk(int handle)
- {
- __vdi__(VDI_CONTRL_ENCODE(4, 0, 0, 0), handle);
- }
- #endif /* L_v_updwk */
-
- #ifdef L_vst_load
-
- /* load fonts as per assign.sys (atari -- when will you fix this brain death??)
- * returns # of additional font id's
- */
- int vst_load_fonts(int handle, int select)
- {
- _intin[0] = select;
- __vdi__(VDI_CONTRL_ENCODE(119, 0, 1, 0), handle);
-
- return (int)_intout[0];
- }
- #endif /* L_vst_load */
-
- #ifdef L_vst_unlo
-
- /* unload fonts (what a joke -- atari please fix)
- * returns void
- */
- void vst_unload_fonts(int handle, int select)
- {
- _intin[0] = select;
- __vdi__(VDI_CONTRL_ENCODE(120, 0, 1, 0), handle);
- }
- #endif /* L_vst_unlo */
-
- #ifdef L_vs_clip
-
- /* set clip rect
- * returns void
- */
- void vs_clip(int handle, int clip_flag, int pxyarray[])
- {
- #ifdef __MSHORT__ /* we have 16 bit ints, just change vdi params */
- _vdiparams[2] = (void *) &pxyarray[0];
- #else /* 32 bit ints - let's copy */
- register int i;
-
- for(i = 0; i < 4; i++)
- _ptsin[i] = pxyarray[i];
- #endif
-
- _intin[0] = clip_flag;
-
- __vdi__(VDI_CONTRL_ENCODE(129, 2, 1, 0), handle);
-
- #ifdef __MSHORT__
- _vdiparams[2] = (void *)&_ptsin[0]; /* restore vdi parameters */
- #endif
- }
- #endif /* L_vs_clip */
-
- /* -eof- */
-