/usr/share/ncarg/hluex/title/ti01c.c is in libncarg-data 6.1.2-7.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 | /***********************************************************************
* *
* Copyright (C) 1995 *
* University Corporation for Atmospheric Research *
* All Rights Reserved *
* *
***********************************************************************/
/*
* File: ti01c.c
*
* Author: Bob Lackman
* National Center for Atmospheric Research
* PO 3000, Boulder, Colorado
*
* Date: Fri Jan 06 18:31:18 MDT 1995
*
* Description: Demonstrates the Title Object resource defaults.
* Since using all the defaults would produce a
* blank plot, an exception is made in this case and
* the main title string is set in the resource file.
*/
#include <stdio.h>
#include <ncarg/hlu/hlu.h>
#include <ncarg/hlu/ResList.h>
#include <ncarg/hlu/App.h>
#include <ncarg/hlu/Title.h>
#include <ncarg/hlu/NcgmWorkstation.h>
#include <ncarg/hlu/PSWorkstation.h>
#include <ncarg/hlu/PDFWorkstation.h>
#include <ncarg/hlu/CairoWorkstation.h>
int main()
{
int appid, wid, pid;
int rlist;
char const *wks_type = "x11";
/*
* Initialize the high level utility library
*/
NhlInitialize();
/*
* Create an application context. Set the app dir to the current
* directory so the application looks for a resource file in the
* working directory. In this example the resource file supplies the
* plot title only.
*/
rlist = NhlRLCreate(NhlSETRL);
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNappDefaultParent,"True");
NhlRLSetString(rlist,NhlNappUsrDir,"./");
NhlCreate(&appid,"ti01",NhlappClass,NhlDEFAULT_APP,rlist);
if (!strcmp(wks_type,"ncgm") || !strcmp(wks_type,"NCGM")) {
/*
* Create a meta file workstation object.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkMetaName,"./ti01c.ncgm");
NhlCreate(&wid,"ti01Work",NhlncgmWorkstationClass,
NhlDEFAULT_APP,rlist);
}
if (!strcmp(wks_type,"x11") || !strcmp(wks_type,"X11")) {
/*
* Create an X11 workstation.
*/
NhlRLClear(rlist);
NhlRLSetInteger(rlist,NhlNwkPause,True);
NhlCreate(&wid,"ti01Work",NhlcairoWindowWorkstationClass,
NhlDEFAULT_APP,rlist);
}
else if (!strcmp(wks_type,"oldps") || !strcmp(wks_type,"OLDPS")) {
/*
* Create an older-style PostScript workstation.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkPSFileName,"ti01c.ps");
NhlCreate(&wid,"ti01Work",NhlpsWorkstationClass,
NhlDEFAULT_APP,rlist);
}
else if (!strcmp(wks_type,"oldpdf") || !strcmp(wks_type,"OLDPDF")) {
/*
* Create an older-style PDF workstation.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkPDFFileName,"ti01c.pdf");
NhlCreate(&wid,"ti01Work",NhlpdfWorkstationClass,
NhlDEFAULT_APP,rlist);
}
else if (!strcmp(wks_type,"pdf") || !strcmp(wks_type,"PDF") ||
!strcmp(wks_type,"ps") || !strcmp(wks_type,"PS")) {
/*
* Create a cairo PS/PDF Workstation object.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkFileName,"ti01c");
NhlRLSetString(rlist,NhlNwkFormat,(char*)wks_type);
NhlCreate(&wid,"ti01Work",NhlcairoDocumentWorkstationClass,
NhlDEFAULT_APP,rlist);
}
else if (!strcmp(wks_type,"png") || !strcmp(wks_type,"PNG")) {
/*
* Create a cairo PNG Workstation object.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,NhlNwkFileName,"ti01c");
NhlRLSetString(rlist,NhlNwkFormat,(char*)wks_type);
NhlCreate(&wid,"ti01Work",NhlcairoImageWorkstationClass,
NhlDEFAULT_APP,rlist);
}
/*
* Specify the viewport extent of the object.
*/
NhlRLClear(rlist);
NhlRLSetFloat(rlist,NhlNvpXF,.2);
NhlRLSetFloat(rlist,NhlNvpYF,.8);
NhlRLSetFloat(rlist,NhlNvpWidthF,.6);
NhlRLSetFloat(rlist,NhlNvpHeightF,.6);
NhlCreate(&pid,"Titles",NhltitleClass,wid,rlist);
NhlDraw(pid);
NhlFrame(wid);
NhlDestroy(pid);
NhlDestroy(wid);
NhlDestroy(appid);
NhlClose();
exit(0);
}
|