Warning, /include/higz/hiwcdc.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.3 1998/01/28 14:34:09 couet
0006 * - GGDM driver removed
0007 *
0008 * Revision 1.2 1996/09/25 14:57:10 couet
0009 * - GPR driver removed
0010 *
0011 * Revision 1.1.1.1 1996/02/14 13:10:17 mclareni
0012 * Higz
0013 *
0014 *
0015 #ifndef CERNLIB_HIGZ_HIWCDC_INC
0016 #define CERNLIB_HIGZ_HIWCDC_INC
0017 *
0018 * Convert WC to DC for the GL interface
0019 *
0020 * hiwcdc.inc
0021 *
0022 #if (defined(CERNLIB_KERNEL))&&(!defined(CERNLIB_MSDOS))
0023 #if defined(CERNLIB_GL)
0024 IXWCDC(U)=INT(WKSC(IWKNB)*(RVXMIN+XRATIO*(U-RWXMIN)))
0025 IYWCDC(V)=INT(WKSC(IWKNB)*(RVYMIN+YRATIO*(V-RWYMIN)))
0026
0027 #endif
0028 #endif
0029 *
0030 * Convert WC to DC for X11
0031 *
0032 * hiwcdc.inc
0033 *
0034 #if (defined(CERNLIB_KERNEL))&&(!defined(CERNLIB_MSDOS))
0035 #if (defined(CERNLIB_X11))&&(defined(CERNLIB_VAX))
0036 IXWCDC(U)=MAX(MIN(XWKV1(IWKNB)+
0037 +XWKR(IWKNB)*(XRATIO*(U-RWXMIN)+RVXMIN-XWKW1(IWKNB))
0038 +,32767.),-32766.)
0039 IYWCDC(V)=MAX(MIN(YWKSIZ(IWKNB)-(YWKV1(IWKNB)+
0040 +YWKR(IWKNB)*(YRATIO*(V-RWYMIN)+RVYMIN-YWKW1(IWKNB)))
0041 +,32767.),-32766.)
0042
0043 #endif
0044 #endif
0045 *
0046 * Convert WC to DC for X11
0047 *
0048 #if (defined(CERNLIB_KERNEL))&&(!defined(CERNLIB_MSDOS))
0049 #if (defined(CERNLIB_X11))&&(!defined(CERNLIB_VAX))
0050 IXWCDC(U)=XWKV1(IWKNB)+
0051 +XWKR(IWKNB)*(XRATIO*(U-RWXMIN)+RVXMIN-XWKW1(IWKNB))
0052 IYWCDC(V)=YWKSIZ(IWKNB)-(YWKV1(IWKNB)+
0053 +YWKR(IWKNB)*(YRATIO*(V-RWYMIN)+RVYMIN-YWKW1(IWKNB)))
0054
0055 #endif
0056 #endif
0057 *
0058 * Convert WC to DC for MacIntosh
0059 *
0060 * hiwcdc.inc
0061 *
0062 #if (defined(CERNLIB_KERNEL))&&(!defined(CERNLIB_MSDOS))
0063 #if defined(CERNLIB_MACMPW)
0064 IXWCDC(U)=WKSC(IWKNB)*(RVXMIN+XRATIO*(U-RWXMIN))
0065 IYWCDC(V)=YWKSIZ(IWKNB)-WKSC(IWKNB)*(RVYMIN+YRATIO*(V-RWYMIN))
0066 #endif
0067 #endif
0068 *
0069 * Convert WC to DC for the PC AT 386/486 interface
0070 *
0071 * hiwcdc.inc
0072 *
0073 #if defined(CERNLIB_MSDOS)
0074 IXWCDC(U)=NINT(WKSC(IWKNB)*(RVXMIN+XRATIO*(U-RWXMIN)))
0075 IYWCDC(V)=NINT(YWKSIZ(IWKNB)
0076 * -WKSC(IWKNB)*(RVYMIN+YRATIO*(V-RWYMIN)))
0077 #endif
0078
0079 #endif
