/usr/share/ncarg/hluex/basic/basic04c.c is in libncarg-data 6.3.0-6build1.
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 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 | /*
* $Id: basic04c.c,v 1.8 1996-01-04 16:45:15 haley Exp $
*/
/***********************************************************************
* *
* Copyright (C) 1995 *
* University Corporation for Atmospheric Research *
* All Rights Reserved *
* *
************************************************************************
*
* File: basic04c.c
*
* Author: Tim Scheitlin (converted by Ed Stautler)
* National Center for Atmospheric Research
* PO 3000, Boulder, Colorado
*
* Date: Mon Mar 20 10:43:42 MST 1995
*
* Description: This example demonstrates how to select and
* change the workstation device for drawing your
* output to an NCGM file or an X workstation
* window using the following steps.
*
* 1. Create output workstation objects.
* 2. Create the data for the plots.
* 3. Create the contour object.
* 4. Draw the contour object.
* 5. Call frame.
* 6. Change workstations.
* 7. Draw the contour object.
* 8. Call frame.
* 9. Clean up memory.
*/
#include <ncarg/hlu/App.h>
#include <ncarg/hlu/ResList.h>
#include <ncarg/hlu/NcgmWorkstation.h>
#include <ncarg/hlu/CairoWorkstation.h>
#include <ncarg/hlu/ContourPlot.h>
#include <ncarg/hlu/ScalarField.h>
#include <ncarg/hlu/hlu.h>
int main ()
{
int appid,nwks,xwks,xcon,field1,rlist;
int data1[5][5] = { {3,4,4,5,5},
{2,3,5,5,4},
{2,4,5,4,4},
{3,4,4,4,3},
{3,3,3,3,3} };
ng_size_t dims[2] = { 5, 5 };
/*
* ##########
* # STEP 1 #
* ##########
* Initialize the graphics libraries and create a resource list that
* is normally used to assign name/value pairs within objects. Then
* clear (empty) this list, and create an application object. This
* object manages multiple resource databases used by separate objects.
*/
NhlInitialize();
rlist = NhlRLCreate(NhlSETRL);
NhlRLClear(rlist);
NhlCreate(&appid,"appid",NhlappClass,NhlDEFAULT_APP,rlist);
/*
* ##########
* # STEP 2 #
* ##########
* For each type of output you must create a workstation object using create.
*
* The first argument, "&xwks", is a variable that identifies the object.
* The second argument, '"xwks"', to the create call sets the name of the
* object being created. The third argument, "NhlcairoWindowWorkstationClass", or
* "NhlncgmWorkstationClass" identifies the type or class of the object
* to create. In this case an X workstation or an NCGM workstation.
* The fourth argument, "NhlDEFAULT_APP", specifies the id of the object's
* parent. In this case, the object has no parent, so the constant
* "NhlDEFAULT_APP" is used. The fifth argument, "rlist", is the resource
* list modifiers to be used when creating the object.
*/
NhlRLClear(rlist);
NhlCreate(&xwks,"xwks",NhlcairoWindowWorkstationClass,NhlDEFAULT_APP,rlist);
/*
* The resource, wkMetaName, lets you specify the name of the output NCGM
* file. In this example, it is called basic04c.ncgm. If omitted, the
* default name, gmeta, will be used.
*/
NhlRLClear(rlist);
NhlRLSetString(rlist,"wkMetaName","basic04c.ncgm");
NhlCreate(&nwks,"nwks",NhlncgmWorkstationClass,NhlDEFAULT_APP,
rlist);
/*
* Create a scalar field object that will be used as a data set for a
* contour object. The sfDataArray resource is used to assign a data
* array to a scalar field data object.
*/
NhlRLClear(rlist);
NhlRLSetMDIntegerArray(rlist,"sfDataArray",&data1[0][0],2,dims);
NhlCreate(&field1,"field1",NhlscalarFieldClass,
NhlDEFAULT_APP,rlist);
/*
* ##########
* # STEP 3 #
* ##########
* Create the object you want to draw.
*
* Create a contour object and
* assign data using the cnScalarFieldData resource.
*/
NhlRLClear(rlist);
NhlRLSetInteger(rlist,"cnScalarFieldData",field1);
NhlCreate(&xcon,"xcon",NhlcontourPlotClass,xwks,rlist);
/*
* ##########
* # STEP 4 #
* ##########
* Draw the object
*/
NhlDraw(xwks);
/*
* ##########
* # STEP 5 #
* ##########
* Call frame to update and clear the workstations
*/
NhlFrame(xwks);
/*
* ##########
* # STEP 6 #
* ##########
* Change workstations
*/
NhlChangeWorkstation(xcon,nwks);
/*
* ##########
* # STEP 7 #
* ##########
* Draw the object
*/
NhlDraw(nwks);
/*
* ##########
* # STEP 8 #
* ##########
* Call frame to update and clear the workstations
*/
NhlFrame(nwks);
/*
* ##########
* # STEP 6 #
* ##########
* Clean up memory.
*/
NhlDestroy(xwks);
NhlDestroy(nwks);
NhlClose();
exit (0);
}
|