h13623
s 00000/00000/00057
d D 1.2 83/03/31 12:46:27 mmm 2 1
c 
e
s 00057/00000/00000
d D 1.1 83/03/15 21:45:48 tes 1 0
c date and time created 83/03/15 21:45:48 by tes
e
u
4
U
t
T
I 1
subroutine gzndcw (xin, yin, xout, yout)
########################################################################
#                                                                      #
#          THIS MATERIAL IS CONFIDENTIAL AND IS FURNISHED UNDER        #
#          A WRITTEN LICENSE AGREEMENT.  IT MAY NOT BE USED,           #
#          COPIED OR DISCLOSED TO OTHERS EXCEPT IN ACCORDANCE          #
#          WITH THE TERMS OF THAT AGREEMENT.                           #
#                                                                      #
#          COPYRIGHT (C) 1982 GRAPHIC SOFTWARE SYSTEMS INC.            #
#          ALL RIGHTS RESERVED.                                        #
#                                                                      #
#          COPYRIGHT (C) 1981 GRAPHIC SOFTWARE SYSTEMS INC.            #
#          ALL RIGHTS RESERVED.                                        #
#                                                                      #
#     Function: transform a point from NDC space to the 2D world       #
#                                                                      #
#     Input Parameters:                                                #
#            xin - x ndc coordinate                                    #
#            yin - y ndc coordinate                                    #
#     Output Parameters:                                               #
#            xout - x 2D world coordinate                              #
#            yout - y 2D world coordinate                              #
#                                                                      #
#     Routines Called:                                                 #
#            gzmtml - matrix multiplier                                #
#            gzvwtn - update modeling and viewing transform            #
#                                                                      #
########################################################################
real xin, yin, xout, yout
 
real temp1(3), temp11, temp12, temp13,
     temp2(3), temp21, temp22, temp23
 
include(`gkscom')
 
equivalence (temp1(1), temp11), (temp1(2), temp12), (temp1(3), temp13),
            (temp2(1), temp21), (temp2(2), temp22), (temp2(3), temp23)
 
#    temp1(3)
data temp13 /1.0/
 
   if (nview == 1) call gzvwtn
 
   #   temp1(1) = xin
   #   temp1(2) = yin
   temp11 = xin
   temp12 = yin
 
   call gzmtml (1,3,3,temp1,rview,temp2)
 
   #   xout = temp2(1)
   #   yout = temp2(2)
   xout = temp21
   yout = temp22
 
   return
end
E 1
