← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to libsrc/agl/ag_vdef.c

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
libsrc/agl/ag_vdef.c
 
1
/*===========================================================================
 
2
  Copyright (C) 1995-2005 European Southern Observatory (ESO)
 
3
 
 
4
  This program is free software; you can redistribute it and/or 
 
5
  modify it under the terms of the GNU General Public License as 
 
6
  published by the Free Software Foundation; either version 2 of 
 
7
  the License, or (at your option) any later version.
 
8
 
 
9
  This program is distributed in the hope that it will be useful,
 
10
  but WITHOUT ANY WARRANTY; without even the implied warranty of
 
11
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
12
  GNU General Public License for more details.
 
13
 
 
14
  You should have received a copy of the GNU General Public 
 
15
  License along with this program; if not, write to the Free 
 
16
  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge, 
 
17
  MA 02139, USA.
 
18
 
 
19
  Correspondence concerning ESO-MIDAS should be addressed as follows:
 
20
        Internet e-mail: midas@eso.org
 
21
        Postal address: European Southern Observatory
 
22
                        Data Management Division 
 
23
                        Karl-Schwarzschild-Strasse 2
 
24
                        D 85748 Garching bei Muenchen 
 
25
                        GERMANY
 
26
===========================================================================*/
 
27
 
 
28
/*
 
29
 * HEADER : ag_vdef.c      - Vers 3.6.002  - Sep 1993 -  L. Fini, OAA
 
30
 *                         - Vers 3.6.001  - Aug 1992 -  L. Fini, OAA
 
31
 *
 
32
 *
 
33
 *                           C INTERFACE MODULE
 
34
 */
 
35
 
 
36
/*
 
37
 
 
38
.VERSION
 
39
051021          last modif
 
40
 
 
41
*/
 
42
 
 
43
 
 
44
#include <stdlib.h>
 
45
 
 
46
#include <aglenvr.h>
 
47
#include <aglstat.h>
 
48
 
 
49
 
 
50
/****************************************************************************/
 
51
/*                         aglparse (Internal AGL use)                      */
 
52
 
 
53
/* Analyzes the device identification string and returns device, input      */
 
54
/* metafile and output metafile fields into output strings                  */
 
55
 
 
56
static void aglparse(devidn,device,flag,inpfil,outfil)
 
57
char *devidn;            /* string to analyze                              */
 
58
char *device;            /* device field (length MUST be<=PHNAMLNG)        */
 
59
char *flag;              /* don't erase optional flag (single character)   */
 
60
char *inpfil;            /* input m.file field (length MUST be<=PHNAMLNG)  */
 
61
char *outfil;            /* output m.file field (length MUST be<=PHNAMLNG) */
 
62
{
 
63
int slash = '/';
 
64
char *field,*pntr;
 
65
extern char *AG_SCAN();
 
66
 
 
67
*device = '\0'; 
 
68
*flag   = '\0';
 
69
*inpfil = '\0';
 
70
*outfil = '\0';
 
71
 
 
72
field=AG_SCAN(devidn,':',PHNAMLNG,device);              /* get device name   */
 
73
 
 
74
pntr = strrchr(device,slash);           /* Search slash and flag (if any)    */
 
75
if(pntr != NULL) { 
 
76
        if(strlen(pntr)==2) {           /* Just "/" followed by single 'n'   */
 
77
                int chr= *(pntr+1);     /* is taken as flag                  */
 
78
 
 
79
                if((chr=TOLOWER(chr))=='n')
 
80
                        *pntr++ = '\0';
 
81
                        *flag = chr; 
 
82
        }
 
83
}
 
84
 
 
85
if(*field=='\0') 
 
86
        return;
 
87
 
 
88
field=AG_SCAN(field,'>',PHNAMLNG,inpfil);       /* get input m.file name  */
 
89
 
 
90
if(*field=='\0') 
 
91
                return;
 
92
 
 
93
field=AG_SCAN(field,'\0',PHNAMLNG,outfil);      /* get output m.file name */
 
94
}
 
95
 
 
96
 
 
97
/*****************************************************************************/
 
98
/*                          makevwp (Internal AGL Use)                       */
 
99
 
 
100
/* Allocate space for viewport structure and clear viewport status           */
 
101
 
 
102
static void makevwp()
 
103
{
 
104
 
 
105
int idvw;
 
106
AGL_status.errstat=AGLNOERR;
 
107
 
 
108
AGL_status.vwpoint = (struct VWPDYN *)malloc((size_t)(sizeof(struct VWPDYN)));
 
109
 
 
110
if(AGL_status.vwpoint==NULL) { 
 
111
        AGL_status.errstat=MEMORYERR; 
 
112
        return; 
 
113
}
 
114
 
 
115
for(idvw = 0;idvw<MAXVWPTS;idvw++)         /* Search a free slot           */
 
116
        if(AGL_status.vwpts[idvw] == NULL) 
 
117
                break;
 
118
 
 
119
if(idvw==MAXVWPTS) { 
 
120
        AGL_status.errstat=VWPOVFSEV; 
 
121
        return; 
 
122
}
 
123
 
 
124
AGL_status.curvwp=idvw;
 
125
AGL_status.vwpts[idvw] = AGL_status.vwpoint;
 
126
 
 
127
DY(curchan)=(-1);
 
128
DY(color)=0;
 
129
DY(lstyle)=0;
 
130
DY(lwidth)=0;
 
131
DY(textlw)=0;
 
132
DY(wrmode)='S';
 
133
DY(curstyl)=0;
 
134
DY(modeflag)=NORMAL;
 
135
DY(autoasp)=OFF;
 
136
DY(window)=FALSE;
 
137
DY(flogx)=FALSE; DY(flogy)=FALSE;
 
138
DY(changle)=0.0;
 
139
DY(angfct)=0.017453293;
 
140
DY(scale) = 1.0;
 
141
DY(chrhsize) = 1.0;
 
142
DY(chrvsize) = 1.0;
 
143
DY(symbsize) = 1.0;
 
144
DY(filact)=NOMETAFILE;
 
145
DY(metamode)=SOFTMETAFILE;
 
146
DY(metafile)=NULL;
 
147
DY(curfont)=0;
 
148
DY(UsrRTransf)=NULL;
 
149
DY(UsrTransf)=NULL;
 
150
DY(UsrInit)=NULL;
 
151
}
 
152
 
 
153
 
 
154
/*****************************************************************************/
 
155
/*++                          AG_VDEF (C callable)                           */
 
156
 
 
157
/* AG_VDEF    Define viewport                                                */
 
158
 
 
159
 
 
160
/* Define and activate a new viewport. If a viewport is currently active it  */
 
161
/* is saved prior of activating the new one. After definition the graphic    */
 
162
/* mode is NORMALIZED.                                                       */
 
163
 
 
164
/* The first time a viewport is activated on a given device, the device is   */
 
165
/* allocated and initialized. Subsequent activation of viewports referencing */
 
166
/* the same device will not reinitialize it. The device is released when the */
 
167
/* last viewport referencing it is killed.                                   */
 
168
 
 
169
int AG_VDEF (device,xa,xb,ya,yb,xlim,ylim)
 
170
 
 
171
                              /* Returns integer viewport identifier (or < 0 */
 
172
                              /* if an error occurs)                         */
 
173
 
 
174
 char *device;                /* Graphic device identification. It is a      */
 
175
                              /* string with the following syntax:           */
 
176
 
 
177
                              /*    device[.aux][/n]:[inpmet][>outmet[/a]]   */
 
178
 
 
179
                              /* where:                                      */
 
180
 
 
181
                              /* device - Device name  See below for naming  */
 
182
                              /*          rules.                             */
 
183
 
 
184
                              /* aux    - Auxiliary user information. This   */
 
185
                              /*          string is passed as such to the    */
 
186
                              /*          device driver to select special    */
 
187
                              /*          device dependent features. E.g.:   */
 
188
                              /*          it may be used by some drivers to  */
 
189
                              /*          select either portrait or land-    */
 
190
                              /*          scape orientation, and the like.   */
 
191
                              /*          Specifications for auxiliary info  */
 
192
                              /*          are given in the device specific   */
 
193
                              /*          documentation.                     */
 
194
 
 
195
                              /* /n     - optional "no erase on init" flag.  */
 
196
                              /* :      - required separator.                */
 
197
                              /* inpmet - optional input metafile name. If   */
 
198
                              /*          specified the named metafile is    */
 
199
                              /*          executed just after viewport acti- */
 
200
                              /*          vation.                            */
 
201
                              /* >        Output metafile designator (requi- */
 
202
                              /*          red if output metafile name is     */
 
203
                              /*          specified).                        */
 
204
                              /* outmet - Optional output metafile name. If  */
 
205
                              /*          specified the named metafile is    */
 
206
                              /*          opened for output just after view- */
 
207
                              /*          port activation and prior of input */
 
208
                              /*          metafile execution.                */
 
209
                              /* /a     - Optional request for append mode   */
 
210
                              /*          opening of output metafile.        */
 
211
 
 
212
 double  xa,xb,ya,yb;         /* Viewport bounds (Normalized: 0.0-1.0).      */
 
213
                              /* xa<xb, ya<yb. (xb-xa)>0.001, (yb-ya)>0.001  */
 
214
 
 
215
 double  xlim,ylim;           /* Viewport dims (in cm). If 0.0 the device    */
 
216
                              /* default values are assigned. The request    */
 
217
                              /* will be accepted only at device initiali-   */
 
218
                              /* zation (i.e. the first time a viewport  is  */
 
219
                              /* opened onto the device). Some devices may   */
 
220
                              /* ignore the request (it is an optional driver*/
 
221
                              /* capability).                                */
 
222
 
 
223
/*  DEVICE NAME SPECIFICATION                                                */
 
224
 
 
225
/*  Device names may be either the special name tt: or a logical or physical */
 
226
/*  name. Device name translation is performed according to the following    */
 
227
/*  steps.                                                                   */
 
228
 
 
229
/*  1. If the name is "tt:", no further translation is performed and it is   */
 
230
/*     assumed that the output must be sent to the current interactive ter-  */
 
231
/*     minal. A definition for the type of terminal must be found within the */
 
232
/*     user defined file agldevs.dat, or in the system wide file agldevs.dat */
 
233
/*     It may be specified either by an entry into the file agldevs.dat such */
 
234
/*     as:                                                                   */
 
235
/*         tt:<devtype>  (eg: tt:tkg.t4010, tt:vt125, etc.)                  */
 
236
 
 
237
/*     If the entry is not found the environment variable (logical name)     */
 
238
/*     AGL3DEV is translated to get the device type (eg: tkg.t4010, vt125,   */
 
239
/*     etc.). If neither the entry is found into agldevs.dat nor the AGL3DEV */
 
240
/*     variable is defined a severe error condition is raised.               */
 
241
 
 
242
/*  2. Any other string is considered to be an environment variable (or logi-*/
 
243
/*     cal name) and translated.                                             */
 
244
 
 
245
/*  3. When no further translation is possible the resulting string (the     */
 
246
/*     original string, if it was a physical name) is used as device name.   */
 
247
 
 
248
/*  4. An entry for the given device name must be found either in the user   */
 
249
/*     specific agldevs.dat file or in the sistem wide file with the same    */
 
250
/*     name, with specification of the type of device. If the entry is not   */
 
251
/*     found the device name is used as physical device for output and the   */
 
252
/*     environment variable (logical name) AGL3DEV is translated to get the  */
 
253
/*     device type. If neither the entry is found into agldevs.dat nor the   */
 
254
/*     AGL3DEV variable is defined a severe error condition is raised.       */
 
255
 
 
256
/*     By default the device is erased when the 1st viewport is opened onto  */
 
257
/*     unless disabled with "/n".                                            */ 
 
258
 
 
259
/*     The following examples shows various device specifications:           */
 
260
 
 
261
/*     tt:                 Send output to current interactive device, find   */
 
262
/*                         device type into file agldevs.dat or into the     */
 
263
/*                         environment variable AGL3DEV.                     */
 
264
/*     tt/n:               As above. Do not erase on opening.                */
 
265
 
 
266
/*     ps0.R90:>meta.tmp   Translate environment variable (logical) ps0, use */
 
267
/*                         the resulting string (or "ps0" if no translation  */
 
268
/*                         exists) as device name. Search for device type    */
 
269
/*                         first into agldev.dat on the current directory    */
 
270
/*                         then in the same file on the AGL standard direc-  */
 
271
/*                         tory; if not found try to translate the environ-  */
 
272
/*                         ment variable (logical) AGL3DEV. If successful    */
 
273
/*                         open the device also sending to it the device     */
 
274
/*                         specific string R90.                              */
 
275
/*                         Then open the output metafile meta.tmp for graphic*/
 
276
/*                         operations recording.                             */
 
277
                                                                         /*--*/
 
278
{
 
279
static char *modnam = "VDEF";
 
280
double xal,yal,xbl,ybl;
 
281
char intdev[PHNAMLNG],inpfil[PHNAMLNG],outfil[PHNAMLNG];
 
282
char flag;
 
283
void AGL_fvwp();
 
284
void makevwp();
 
285
 
 
286
AG_DMSG(modnam,(char *)0);
 
287
 
 
288
AGL_init();
 
289
if ( AGL_status.errstat != AGLNOERR ) 
 
290
        AGL_siger(modnam);
 
291
 
 
292
if(AGL_status.curvwp!=VWPEMPTY) 
 
293
        AGL_vflsh();       /* Empty current viewport buffer    */
 
294
 
 
295
aglparse(device,intdev,&flag,inpfil,outfil);    /* Analyze string syntax   */
 
296
 
 
297
if(*intdev == '\0') { 
 
298
        AGL_puterr(NODEVICE,modnam); 
 
299
        return(-1); 
 
300
}
 
301
 
 
302
if(flag=='n') 
 
303
        AGL_status.ersonst=FALSE; 
 
304
else 
 
305
        AGL_status.ersonst=TRUE;
 
306
 
 
307
xal=xa; xbl=xb; yal=ya; ybl=yb;
 
308
                                             /* Test viewport bounds         */
 
309
AGL_status.errstat=AGLNOERR;
 
310
 
 
311
if((xal<0.0)||(xal>1.0)) { 
 
312
        AGL_status.errstat = ILLBOUWNG; 
 
313
        xal = 0.0; 
 
314
}
 
315
if((xbl<0.0)||(xbl>1.0)) { 
 
316
        AGL_status.errstat = ILLBOUWNG; 
 
317
        xbl = 1.0; 
 
318
}
 
319
if((yal<0.0)||(yal>1.0)) { 
 
320
        AGL_status.errstat = ILLBOUWNG; 
 
321
        yal = 0.0; 
 
322
}
 
323
if((ybl<0.0)||(ybl>1.0)) { 
 
324
        AGL_status.errstat = ILLBOUWNG; 
 
325
        ybl = 1.0; 
 
326
}
 
327
 
 
328
if( xbl <= xal+0.001 ) { 
 
329
        AGL_status.errstat = ILLBOUWNG; 
 
330
        xal = 0.0; 
 
331
        xbl = 1.0; 
 
332
}
 
333
if( ybl <= yal+0.001 ) { 
 
334
        AGL_status.errstat = ILLBOUWNG; 
 
335
        yal = 0.0; 
 
336
        ybl = 1.0; 
 
337
}
 
338
 
 
339
if(AGL_status.errstat != AGLNOERR) 
 
340
        AGL_siger(modnam);    /* test error conditions      */
 
341
 
 
342
makevwp();                           /* Create viewport structure       */
 
343
 
 
344
if(AGL_status.errstat!=AGLNOERR) { 
 
345
        AGL_siger(modnam); 
 
346
        return(-1); 
 
347
}
 
348
 
 
349
AGL_gdev(intdev,xlim,ylim);             /* Init device                  */
 
350
 
 
351
if(AGL_status.errstat>=ERRTRSH) {       /* Special error test           */
 
352
        AGL_fvwp(AGL_status.curvwp);    /* Deallocate viewport          */
 
353
        AGL_siger(modnam);              /* Signal error and return      */
 
354
        return(-1);
 
355
}
 
356
else 
 
357
        if(AGL_status.errstat!=AGLNOERR) 
 
358
                AGL_siger(modnam);
 
359
                            
 
360
XVWLOW = xal; XVWUP = xbl;              /*  set viewport parameters         */
 
361
YVWLOW = yal; YVWUP = ybl;
 
362
 
 
363
XCLOW = xal; XCLUP = xbl;               /*  set clipping area parameters    */
 
364
YCLOW = yal; YCLUP = ybl;
 
365
 
 
366
XSVLOW = xal; XSVUP = xbl;              /*  set saved clip.area parameters */
 
367
YSVLOW = yal; YSVUP = ybl;
 
368
 
 
369
AGL_status.devid = DY(devidx);
 
370
 
 
371
DY(color) = DEFFOREGR(AGL_status.devid);                /* Set default color            */
 
372
DY(lstyle) = 0;                         /* Set solid line style         */
 
373
AGL_sstyl(DOTLEN(AGL_status.devid));
 
374
AGL_sclr();                             /* Set color on device          */
 
375
AGL_swdt(0);                            /* Set width on device          */
 
376
if(DY(UsrInit) != NULL)
 
377
        (*DY(UsrInit))();
 
378
AGL_sstat();                            /* Set graphic status           */
 
379
 
 
380
#ifndef NO_METAFILE_SUPPORT
 
381
 
 
382
if(*inpfil != '\0') {
 
383
        AGL_push(modnam);               /* Push routine name into stack */
 
384
        AGL_mfex(inpfil);               /* Execute the metafile         */
 
385
        AGL_pop();                      /* Pop routine name from stack  */
 
386
}
 
387
 
 
388
if(*outfil != '\0') {                   /* Open output metafile         */
 
389
        AGL_mopn(outfil);
 
390
        if(AGL_status.errstat != AGLNOERR) 
 
391
                AGL_siger(modnam);
 
392
}
 
393
#endif
 
394
 
 
395
sprintf(inpfil,"%d",AGL_status.curvwp);
 
396
AG_DMSG("Viewport id:",inpfil);
 
397
 
 
398
return(AGL_status.curvwp);              /* Return viewport identifier  */
 
399
}
 
400