home *** CD-ROM | disk | FTP | other *** search
- /*
- ### from primary to window corrds ###
-
- Input: vx: primary coords
- Output: vw: window coords
- vw in primary coords (polar_coord=0) in secondary coords(polar_coord=1)
- NOTE:sw can be either polar_coord or polar_section
- */
-
- to_window_variables(vw,vx,sw)
- double vw[],vx[];
- int sw;
- {
- int i;
- extern int var_dim,enable_polar;
- if(enable_polar==1 && sw==1)
- euclid_to_polar(vw,vx);
- else
- for(i=0;i<var_dim;i++) vw[i] = vx[i];
- }
-