| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26 //
27 //
28 //
29
30 #include "G4RTXScanner.hh"
31
32 #include "G4TheRayTracer.hh"
33 #include "G4RayTracerXViewer.hh"
34 #include "G4ViewParameters.hh"
35 #include <X11/Xlib.h>
36 #include <X11/Xutil.h>
37 #include <X11/Xatom.h>
38
39 #define G4warn G4cout
40
41 extern "C" {
42 Bool G4RayTracerXScannerWaitForNotify (Displ
43 return (e->type == MapNotify) && (e->xmap.
44 }
45 }
46
47 G4RTXScanner::G4RTXScanner():
48 G4VRTScanner(), theNRow(0), theNColumn(0), t
49 ,theIRow(0), theIColumn(0)
50 ,display(0), win(0), scmap(0)
51 {
52 theGSName = "RayTracerX";
53 theGSNickname = "RayTracerX";
54 }
55
56 G4RTXScanner::~G4RTXScanner() {}
57
58 const G4String& G4RTXScanner::GetGSName() cons
59 {return theGSName;}
60
61 const G4String& G4RTXScanner::GetGSNickname()
62 {return theGSNickname;}
63
64 void G4RTXScanner::Initialize(G4int nRow, G4in
65 theNRow = nRow;
66 theNColumn = nColumn;
67 G4int nMax = std::max (nRow, nColumn);
68 theStep = 1;
69 if (nMax > 3) {
70 for (;;) {
71 theStep *= 3;
72 if (theStep > nMax) break;
73 }
74 }
75 theIRow = theStep / 2;
76 theIColumn = theStep / 2 - theStep;
77 }
78
79 G4bool G4RTXScanner::Coords(G4int& iRow, G4int
80 {
81 // Increment column...
82 theIColumn += theStep;
83
84 // Skip coordinates covered in the previous
85 if ((theIColumn + (3 * theStep) / 2 + 1)%(3
86 (theIRow + (3 * theStep) / 2 + 1)%(3 * t
87 theIColumn += theStep;
88
89 // If necessary, increment row...
90 if (theIColumn >= theNColumn) {
91 theIColumn = theStep / 2;
92 theIRow += theStep;
93 }
94
95 // Return if finished...
96 if (theIRow >= theNRow && theStep <= 1) retu
97
98 // Start next scan if necessary...
99 if (theIRow >= theNRow) {
100 theStep /= 3;
101 theIRow = theStep / 2;
102 theIColumn = theStep / 2;
103 }
104
105 // Return current row and column...
106 iRow = theIRow;
107 iColumn = theIColumn;
108 return true;
109 }
110
111 G4bool G4RTXScanner::GetXWindow(const G4String
112 {
113 display = XOpenDisplay(0); // Use display d
114 if (!display) {
115 G4warn << "G4RTXScanner::Initialize(): can
116 << G4endl;
117 return false;
118 }
119
120 int screen_num = DefaultScreen(display);
121
122 // Window size and position...
123 int xOffset = 0, yOffset = 0;
124 XSizeHints* size_hints = XAllocSizeHints();
125 unsigned int width, height;
126 const G4String& XGeometryString = vp.GetXGeo
127 if (!XGeometryString.empty()) {
128 G4int geometryResultMask = XParseGeometry
129 ((char*)XGeometryString.c_str(),
130 &xOffset, &yOffset, &width, &height);
131 if (geometryResultMask & (WidthValue | Hei
132 if (geometryResultMask & XValue) {
133 if (geometryResultMask & XNegative) {
134 xOffset = DisplayWidth(display, screen_num
135 }
136 size_hints->flags |= PPosition;
137 size_hints->x = xOffset;
138 }
139 if (geometryResultMask & YValue) {
140 if (geometryResultMask & YNegative) {
141 yOffset = DisplayHeight(display, screen_nu
142 }
143 size_hints->flags |= PPosition;
144 size_hints->y = yOffset;
145 }
146 } else {
147 G4warn << "ERROR: Geometry string \""
148 << XGeometryString
149 << "\" invalid. Using \"600x600\"."
150 << G4endl;
151 width = 600;
152 height = 600;
153 }
154 } else {
155 G4warn << "ERROR: Geometry string \""
156 << XGeometryString
157 << "\" is empty. Using \"600x600\"."
158 << G4endl;
159 width = 600;
160 height = 600;
161 }
162 size_hints->width = width;
163 size_hints->height = height;
164 size_hints->flags |= PSize;
165
166 win = XCreateSimpleWindow
167 (display, RootWindow(display, screen_num),
168 xOffset, yOffset, width, height,
169 0, // Bor
170 WhitePixel(display, screen_num), // Bor
171 BlackPixel(display, screen_num)); // Bac
172
173 XGCValues values;
174 gc = XCreateGC(display, win, 0, &values);
175
176 int nMaps;
177 Status status = XGetRGBColormaps
178 (display, RootWindow(display, screen_num),
179 &scmap, &nMaps, XA_RGB_BEST_MAP);
180 if (!status) {
181 system("xstdcmap -best"); // ...and try a
182 status = XGetRGBColormaps
183 (display, RootWindow(display, screen_num
184 &scmap, &nMaps, XA_RGB_BEST_MAP);
185 if (!status) {
186 G4warn <<
187 "G4RTXScanner::Initialize(): cannot get colo
188 "\n Perhaps your system does not support XA
189 << G4endl;
190 return false;
191 }
192 }
193 if (!scmap->colormap) {
194 G4warn << "G4RTXScanner::Initialize(): col
195 << G4endl;
196 return false;
197 }
198
199 XWMHints* wm_hints = XAllocWMHints();
200 XClassHint* class_hint = XAllocClassHint();
201 const char* window_name = name.c_str();
202 XTextProperty windowName;
203 XStringListToTextProperty((char**)&window_na
204
205 XSetWMProperties(display, win, &windowName,
206 0, 0, size_hints, wm_hints, class_hint)
207
208 XMapWindow(display, win);
209
210 // Wait for window to appear (wait for an "m
211 XSelectInput(display, win, StructureNotifyMa
212 XEvent event;
213 XIfEvent (display, &event, G4RayTracerXScann
214
215 return true;
216 }
217
218 void G4RTXScanner::Draw
219 (unsigned char red, unsigned char green, unsig
220 // Draw coloured square at current position.
221 {
222 unsigned long pixel_value = scmap->base_pixe
223 ((unsigned long) ((red * scmap->red_max) /
224 ((unsigned long) ((green * scmap->green_ma
225 ((unsigned long) ((blue * scmap->blue_max)
226 XSetForeground(display, gc, pixel_value);
227
228 if (theStep > 1) {
229 XFillRectangle(display, win, gc,
230 theIColumn - theStep / 2,
231 theIRow - theStep / 2,
232 theStep, theStep);
233 } else {
234 XDrawPoint(display, win, gc, theIColumn, t
235 }
236
237 XFlush(display);
238 }
239