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
163
164
165
|
// Copyright (C) 1999-2018
// Smithsonian Astrophysical Observatory, Cambridge, MA, USA
// For conditions of distribution and use, see copyright notice in "copyright"
#include "frame3dtruecolor8.h"
#include "colorscaletrue8.h"
// Tk Canvas Widget Function Declarations
int Frame3dTrueColor8CreateProc(Tcl_Interp*, Tk_Canvas, Tk_Item*, int, Tcl_Obj *const []);
// Frame3dTrueColor8 Specs
static Tk_CustomOption tagsOption = {
NULL, NULL, NULL
};
static Tk_ConfigSpec frame3dTrueColor8Specs[] = {
{TK_CONFIG_STRING, (char*)"-command", NULL, NULL, "frame3d",
Tk_Offset(WidgetOptions, cmdName), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_INT, (char*)"-x", NULL, NULL, "1",
Tk_Offset(WidgetOptions, x), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_INT, (char*)"-y", NULL, NULL, "1",
Tk_Offset(WidgetOptions, y), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_INT, (char*)"-width", NULL, NULL, "512",
Tk_Offset(WidgetOptions, width), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_INT, (char*)"-height", NULL, NULL, "512",
Tk_Offset(WidgetOptions, height), TK_CONFIG_OPTION_SPECIFIED, NULL},
{TK_CONFIG_ANCHOR, (char*)"-anchor", NULL, NULL, "nw",
Tk_Offset(WidgetOptions, anchor), 0, NULL},
{TK_CONFIG_CUSTOM, (char*)"-tags", NULL, NULL, NULL,
0, TK_CONFIG_NULL_OK, &tagsOption},
{TK_CONFIG_STRING, (char*)"-helvetica", NULL, NULL, "helvetica",
Tk_Offset(WidgetOptions, helvetica), 0, NULL},
{TK_CONFIG_STRING, (char*)"-courier", NULL, NULL, "courier",
Tk_Offset(WidgetOptions, courier), 0, NULL},
{TK_CONFIG_STRING, (char*)"-times", NULL, NULL, "times",
Tk_Offset(WidgetOptions, times), 0, NULL},
{TK_CONFIG_END, NULL, NULL, NULL, NULL, 0, 0, NULL},
};
// Tk Static Structure
static Tk_ItemType frame3dTrueColor8Type = {
(char*)"frame3dtruecolor8", // name
sizeof(WidgetOptions), // item size
Frame3dTrueColor8CreateProc, // configProc
frame3dTrueColor8Specs, // configSpecs
WidgetConfigProc, // configProc
WidgetCoordProc, // coordProc
WidgetDeleteProc, // deleteProc
WidgetDisplayProc, // displayProc
0, // alwaysRedraw
WidgetPointProc, // pointProc
WidgetAreaProc, // areaProc
WidgetPostscriptProc, // postscriptProc
WidgetScaleProc, // scaleProc
WidgetTranslateProc, // translateProc
(Tk_ItemIndexProc*)NULL, // indexProc
WidgetICursorProc, // icursorProc
(Tk_ItemSelectionProc*)NULL, // selectionProc
(Tk_ItemInsertProc*)NULL, // insertProc
(Tk_ItemDCharsProc*)NULL, // dCharsProc
(Tk_ItemType*)NULL // nextPtr
};
// Non-Member Functions
int Frame3dTrueColor8_Init(Tcl_Interp* interp)
{
tagsOption.parseProc = Tk_CanvasTagsParseProc;
tagsOption.printProc = Tk_CanvasTagsPrintProc;
Tk_CreateItemType(&frame3dTrueColor8Type);
return TCL_OK;
}
int Frame3dTrueColor8CreateProc(Tcl_Interp* interp, Tk_Canvas canvas,
Tk_Item* item, int argc, Tcl_Obj *const argv[])
{
Frame3dTrueColor8* frame = new Frame3dTrueColor8(interp, canvas, item);
// and set default configuration
if (frame->configure(argc, (const char**)argv, 0) != TCL_OK) {
delete frame;
Tcl_AppendResult(interp, " error occured while creating frame.", NULL);
return TCL_ERROR;
}
return TCL_OK;
}
// Frame3dTrueColor8 Member Functions
Frame3dTrueColor8::Frame3dTrueColor8(Tcl_Interp* i, Tk_Canvas c, Tk_Item* item)
: Frame3d(i,c,item), TrueColor8(visual)
{
configSpecs = frame3dTrueColor8Specs; // frame configure options
}
Frame3dTrueColor8::~Frame3dTrueColor8()
{
// we must do this at this level, because updateColorScale is called
unloadAllFits();
}
void Frame3dTrueColor8::updateColorScale()
{
// we need colors before we can construct a scale
if (!colorCells)
return;
if (colorScale)
delete colorScale;
switch (context->colorScaleType()) {
case FrScale::LINEARSCALE:
colorScale =
new LinearScaleTrueColor8(colorCount, colorCells, colorCount, visual);
break;
case FrScale::LOGSCALE:
colorScale =
new LogScaleTrueColor8(SCALESIZE, colorCells, colorCount,
context->expo(), visual);
break;
case FrScale::POWSCALE:
colorScale =
new PowScaleTrueColor8(SCALESIZE, colorCells, colorCount,
context->expo(), visual);
break;
case FrScale::SQRTSCALE:
colorScale =
new SqrtScaleTrueColor8(SCALESIZE, colorCells, colorCount, visual);
break;
case FrScale::SQUAREDSCALE:
colorScale =
new SquaredScaleTrueColor8(SCALESIZE, colorCells, colorCount, visual);
break;
case FrScale::ASINHSCALE:
colorScale =
new AsinhScaleTrueColor8(SCALESIZE, colorCells, colorCount, visual);
break;
case FrScale::SINHSCALE:
colorScale =
new SinhScaleTrueColor8(SCALESIZE, colorCells, colorCount, visual);
break;
case FrScale::HISTEQUSCALE:
colorScale =
new HistEquScaleTrueColor8(SCALESIZE, colorCells, colorCount,
context->histequ(), HISTEQUSIZE,
visual);
break;
case FrScale::IISSCALE:
colorScale =
new IISScaleTrueColor8(colorCells, colorCount, visual);
break;
}
}
|
