87c91e6318d3513654c721722beb2c7a40dff090
[occt.git] / src / QADraw / QADraw.cxx
1 // Created on: 2002-02-04
2 // Created by: QA Admin
3 // Copyright (c) 2002-2012 OPEN CASCADE SAS
4 //
5 // The content of this file is subject to the Open CASCADE Technology Public
6 // License Version 6.5 (the "License"). You may not use the content of this file
7 // except in compliance with the License. Please obtain a copy of the License
8 // at http://www.opencascade.org and read it completely before using this file.
9 //
10 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
12 //
13 // The Original Code and all software distributed under the License is
14 // distributed on an "AS IS" basis, without warranty of any kind, and the
15 // Initial Developer hereby disclaims all such warranties, including without
16 // limitation, any warranties of merchantability, fitness for a particular
17 // purpose or non-infringement. Please see the License for the specific terms
18 // and conditions governing the rights and limitations under the License.
19
20
21
22 #if defined(WNT)
23 #include <windows.h>
24 #endif
25 #include <QADraw.hxx>
26 #include <QADraw_DataMapOfAsciiStringOfAddress.hxx>
27 #include <Draw_Interpretor.hxx>
28 #include <Image_AlienPixMap.hxx>
29 #include <V3d_View.hxx>
30 #include <ViewerTest.hxx>
31 #include <ViewerTest_EventManager.hxx>
32 #include <TColStd_StackOfInteger.hxx>
33 #include <TColStd_ListOfInteger.hxx>
34 #include <TColStd_ListIteratorOfListOfInteger.hxx>
35 #include <TColStd_HSequenceOfReal.hxx>
36 #include <AIS_InteractiveContext.hxx>
37 #include <Draw.hxx>
38 #include <Draw_Window.hxx>
39 #include <Draw_Viewer.hxx>
40 #include <Aspect_WindowDriver.hxx>
41 #include <stdio.h>
42 #include <Aspect_DisplayConnection.hxx>
43 #include <Graphic3d.hxx>
44
45 #if ! defined(WNT)
46 #include <Xw_Window.hxx>
47 //#include <Xm/Xm.h>
48 #include <X11/Xlib.h>
49 #include <X11/Xutil.h>
50 #include <Xw_Cextern.hxx>
51 #include <unistd.h>
52 #else
53 #include <WNT.h>
54 #include <WNT_Window.hxx>
55 #include <io.h>
56 #endif
57
58 #include <tcl.h>
59
60 #if ! defined(STDOUT_FILENO)
61 #define STDOUT_FILENO fileno(stdout)
62 #endif
63
64 // mkv 15.07.03
65 #if ! defined(STDERR_FILENO)
66 #define STDERR_FILENO fileno(stderr)
67 #endif
68
69 Draw_Interpretor *thePCommands = NULL;
70
71 #if ! defined(WNT)
72 //extern Draw_Interpretor theCommands;
73
74 extern void (*Draw_BeforeCommand)();
75 extern void (*Draw_AfterCommand)(Standard_Integer);
76 #else
77 //Standard_EXPORT Draw_Interpretor theCommands;
78
79 Standard_EXPORT void (*Draw_BeforeCommand)();
80 Standard_EXPORT void (*Draw_AfterCommand)(Standard_Integer);
81 #endif
82
83
84 #include <Draw_PluginMacro.hxx>
85
86 // avoid warnings on 'extern "C"' functions returning C++ classes
87 #ifdef WNT
88 #pragma warning(4:4190)
89 #endif
90
91
92 int st_err = 0;
93
94 void (*Draw_BeforeCommand_old)();
95 void (*Draw_AfterCommand_old)(Standard_Integer);
96
97 static Standard_Boolean should_be_printed = Standard_True;
98
99 static Standard_Boolean shouldDUP() {
100   // MKV 30.03.05
101 #if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
102   const Standard_Character * adup = Tcl_GetVar(thePCommands->Interp(),
103                                          "QA_DUP",TCL_GLOBAL_ONLY);
104 #else
105   Standard_Character * adup = Tcl_GetVar(thePCommands->Interp(),
106                                          "QA_DUP",TCL_GLOBAL_ONLY);
107 #endif
108   Standard_Integer aDUP=1;
109   if((adup != NULL) && (Draw::Atof(adup) == 0)) {
110     aDUP = 0;
111   }
112
113   return aDUP;
114 }
115
116 static void before() {
117   should_be_printed = Standard_True;
118   if(Draw_BeforeCommand_old) (*Draw_BeforeCommand_old) ();
119 }
120
121 static void  after(Standard_Integer a)
122 {
123   if(Draw_AfterCommand_old) (*Draw_AfterCommand_old) (a);
124   if(!should_be_printed) {
125 //    Tcl_ResetResult(theCommands.Interp());
126   }
127 }
128
129 static QADraw_DataMapOfAsciiStringOfAddress stFuncMap;
130
131   // MKV 30.03.05
132 #if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
133 static Standard_Integer (*CommandCmd_Old)
134 (ClientData clientData, Tcl_Interp *interp,
135  Standard_Integer argc, const char* argv[]) = NULL;
136 #else
137 static Standard_Integer (*CommandCmd_Old)
138 (ClientData clientData, Tcl_Interp *interp,
139  Standard_Integer argc, char* argv[]) = NULL;
140 #endif
141
142   // MKV 30.03.05
143 #if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
144 static Standard_Integer CommandCmd
145 (ClientData clientData, Tcl_Interp *interp,
146  Standard_Integer argc, const char* argv[])
147 #else
148 static Standard_Integer CommandCmd
149 (ClientData clientData, Tcl_Interp *interp,
150  Standard_Integer argc, char* argv[])
151 #endif
152 {
153   Standard_Integer old_out = 0;
154   Standard_Integer old_err = 0;
155   Standard_Integer fd_out = 0;
156   Standard_Integer fd_err = 0;
157
158   FILE * aFile_out = NULL;
159   FILE * aFile_err = NULL;
160
161   char *nameo = NULL;
162   char *namee = NULL;
163 #ifdef WNT
164   if(strlen(getenv("TEMP")) == 0) {
165     cerr << "The TEMP variable is not set." << endl;
166     aFile_out = tmpfile();
167     aFile_err = tmpfile();
168   } else {
169     nameo = _tempnam(getenv("TEMP"),"tmpo");
170     namee = _tempnam(getenv("TEMP"),"tmpe");
171     aFile_out=fopen(nameo, "w+");
172     aFile_err=fopen(namee, "w+");
173   }
174 #else
175     aFile_out = tmpfile();
176     aFile_err = tmpfile();
177 #endif
178   fd_out = fileno(aFile_out);
179   fd_err = fileno(aFile_err);
180   if(fd_out !=-1 && fd_err !=-1) {
181     old_err = dup(STDERR_FILENO);
182     old_out = dup(STDOUT_FILENO);
183     dup2(fd_err,STDERR_FILENO);
184     dup2(fd_out,STDOUT_FILENO);
185   } else
186     cout << "Faulty : Can not create temporary file."   << endl;
187
188   Standard_Integer clen = sizeof(Standard_Character);
189
190   Standard_Character * QA = getenv("QA_print_command");
191   if((QA != NULL) && (!strcmp(QA,"1"))) {
192     for(Standard_Integer i=0;i<argc;i++) {
193       write(st_err,argv[i],clen*strlen(argv[i]));
194       write(st_err," ",clen);
195     }
196     write(st_err,"\n",clen);
197   }
198
199   // MKV 30.03.05
200 #if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
201   TCollection_AsciiString aName((char *) argv[0]);
202 #else
203   TCollection_AsciiString aName(argv[0]);
204 #endif
205
206   Standard_Integer res = 0;
207
208   if(stFuncMap.IsBound(aName)) {
209     // MKV 30.03.05
210 #if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
211     CommandCmd_Old  = (int(*)(void*, Tcl_Interp*, int, const char**))  stFuncMap((char *) argv[0]);
212 #else
213     CommandCmd_Old  = (int(*)(void*, Tcl_Interp*, int, char**))  stFuncMap(argv[0]);
214 #endif
215     res = (*CommandCmd_Old) (clientData,interp,argc,argv);
216   }
217
218   fflush(stderr);
219   fflush(stdout);
220   close(STDERR_FILENO);
221   close(STDOUT_FILENO);
222   dup2(old_err,STDERR_FILENO);
223   dup2(old_out,STDOUT_FILENO);
224   close(old_err);
225   close(old_out);
226
227   Standard_Character buf[256];
228   Standard_Integer len = 0;
229
230   rewind(aFile_err);
231   while((len = read(fd_err,buf,clen*255)/clen) > 0) {
232     buf[len]='\0';
233     if(shouldDUP()) {
234       (*thePCommands) << buf;
235     } else {
236       write(st_err,buf,clen*len);
237     }
238   }
239   close(fd_err);
240
241   rewind(aFile_out);
242   buf[0] = '\0';
243   len = 0;
244   while((len = read(fd_out,buf,clen*255)/clen) > 0) {
245     buf[len]='\0';
246     if(shouldDUP()) {
247       (*thePCommands) << buf;
248     } else {
249       write(st_err,buf,clen*len);
250     }
251   }
252   close(fd_out);
253
254   if(shouldDUP()) {
255     Standard_Character *Result = (Standard_Character *)thePCommands->Result();
256     if(Result[0] != '\0') {
257       Standard_Integer pos = 0;
258       Standard_Integer rlen = strlen(Result);
259       while(pos < rlen) {
260         Standard_Integer nb = 256;
261         if((rlen - pos) <= 256) {
262           nb = rlen - pos;
263         }
264         write(st_err,Result+pos,nb*clen);
265         pos += nb;
266       }
267       write(st_err,"\n",clen);
268       should_be_printed = Standard_False  ;
269     }
270   } //else {
271   if(nameo)
272     free(nameo);
273   if(namee)
274     free(namee);
275   return res;
276 }
277
278 static Standard_Integer QARebuild (Draw_Interpretor& di, Standard_Integer /*n*/, const char ** a)
279 {
280
281   Tcl_CmdInfo *infoPtr = new Tcl_CmdInfo;
282
283   if(!strcmp(a[0],a[1]))
284     return 0;
285
286   char* var_a = (char*)a[1];
287   Standard_Integer res = Tcl_GetCommandInfo(di.Interp(),var_a,infoPtr);
288   if(res && (infoPtr->proc != &CommandCmd)) {
289     TCollection_AsciiString aName(var_a);
290     if (!stFuncMap.IsBound(aName)) {
291       stFuncMap.Bind(aName, (Standard_Address) infoPtr->proc);
292
293       infoPtr->proc = &CommandCmd;
294 #if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION == 3
295       infoPtr->isNativeObjectProc = 0;
296       infoPtr->objProc = NULL;
297 #endif
298       Tcl_SetCommandInfo(di.Interp(),var_a,infoPtr);
299     }
300   }
301
302   return 0;
303 }
304
305 Handle(TColStd_HSequenceOfReal) GetColorOfPixel (const Image_PixMap&    theImage,
306                                                  const Standard_Integer theCoordinateX,
307                                                  const Standard_Integer theCoordinateY,
308                                                  const Standard_Integer theRadius)
309 {
310   Handle(TColStd_HSequenceOfReal) aSeq = new TColStd_HSequenceOfReal();
311   if (theImage.IsEmpty()) {
312     std::cerr << "The image is null.\n";
313     return aSeq;
314   }
315   Standard_Integer aWidth   = (Standard_Integer )theImage.SizeX();
316   Standard_Integer anHeight = (Standard_Integer )theImage.SizeY();
317
318   Quantity_Color aColorTmp;
319   for (Standard_Integer anXIter = theCoordinateX - theRadius;
320        anXIter <= theCoordinateX + theRadius; ++anXIter)
321   {
322     if (anXIter < 0 || anXIter >= aWidth)
323     {
324       continue;
325     }
326     for (Standard_Integer anYIter = theCoordinateY - theRadius;
327          anYIter <= theCoordinateY + theRadius; ++anYIter)
328     {
329       if (anYIter < 0 || anYIter >= anHeight)
330       {
331         continue;
332       }
333       // Image_PixMap stores image upside-down in memory!
334       aColorTmp = theImage.PixelColor (anXIter, anYIter);
335       aSeq->Append (aColorTmp.Red());
336       aSeq->Append (aColorTmp.Green());
337       aSeq->Append (aColorTmp.Blue());
338     }
339   }
340   return aSeq;
341 }
342
343 static Standard_Integer QAAISGetPixelColor (Draw_Interpretor& theDi,
344                                             Standard_Integer  theArgsNb,
345                                             const char**      theArgs)
346 {
347   if (theArgsNb != 3 && theArgsNb != 6)
348   {
349     theDi << "Usage : " << theArgs[0] << " coordinate_X coordinate_Y [color_R color_G color_B]" << "\n";
350     return 1; // TCL_ERROR
351   }
352
353   Handle(V3d_View) aView3d = ViewerTest::CurrentView();
354   if (aView3d.IsNull())
355   {
356     theDi << "You must initialize AISViewer before this command.\n";
357     return 1; // TCL_ERROR
358   }
359
360   const Handle(Aspect_Window) anAISWindow = aView3d->Window();
361   Standard_Integer aWindowSizeX = 0;
362   Standard_Integer aWindowSizeY = 0;
363   anAISWindow->Size (aWindowSizeX, aWindowSizeY);
364
365   Standard_Integer anArgIter = 1;
366   const Standard_Integer aPickCoordX = Draw::Atoi (theArgs[anArgIter++]);
367   const Standard_Integer aPickCoordY = Draw::Atoi (theArgs[anArgIter++]);
368   const Standard_Integer aRadius = (theArgsNb == 3) ? 0 : 1;
369
370   Image_ColorRGBF aColorInput = {{ 0.0f, 0.0f, 0.0f }};
371   if (theArgsNb == 6)
372   {
373     aColorInput.r() = (Standard_ShortReal )Draw::Atof (theArgs[anArgIter++]);
374     aColorInput.g() = (Standard_ShortReal )Draw::Atof (theArgs[anArgIter++]);
375     aColorInput.b() = (Standard_ShortReal )Draw::Atof (theArgs[anArgIter++]);
376   }
377
378   Image_PixMap anImage;
379   aView3d->ToPixMap (anImage, aWindowSizeX, aWindowSizeY);
380   const Handle(TColStd_HSequenceOfReal) aSeq = GetColorOfPixel (anImage, aPickCoordX, aPickCoordY, aRadius);
381   cout << "Length = " << aSeq->Length() << endl;
382
383   Image_ColorRGBF aColorPicked = {{ 0.0f, 0.0f, 0.0f }};
384   Standard_Boolean isNotEqual = Standard_True;
385   for (Standard_Integer i = 1; i <= aSeq->Length(); i += 3)
386   {
387     aColorPicked.r() = (Standard_ShortReal )aSeq->Value (i + 0);
388     aColorPicked.g() = (Standard_ShortReal )aSeq->Value (i + 1);
389     aColorPicked.b() = (Standard_ShortReal )aSeq->Value (i + 2);
390
391     if (theArgsNb == 3 ||
392         ((Abs (aColorPicked.r() - aColorInput.r()) <= Precision::Confusion())
393       && (Abs (aColorPicked.g() - aColorInput.g()) <= Precision::Confusion())
394       && (Abs (aColorPicked.b() - aColorInput.b()) <= Precision::Confusion())))
395     {
396       isNotEqual = Standard_False;
397       break;
398     }
399   }
400
401   theDi << "RED :   " << aColorPicked.r() << " "
402         << "GREEN : " << aColorPicked.g() << " "
403         << "BLUE :  " << aColorPicked.b() << "\n";
404
405   if (theArgsNb == 6)
406   {
407     theDi << "User color: \n"
408           << "RED :   " << aColorInput.r() << " "
409           << "GREEN : " << aColorInput.g() << " "
410           << "BLUE :  " << aColorInput.b() << "\n";
411   }
412
413   if (isNotEqual)
414   {
415     theDi << "Faulty : colors are not equal.\n";
416     return 1; // TCL_ERROR
417   }
418   return 0;
419 }
420
421 #if ! defined(WNT)
422 extern int ViewerMainLoop (Standard_Integer argc, const char ** argv);
423 #else
424 Standard_EXPORT int ViewerMainLoop (Standard_Integer argc, const char ** argv);
425 #endif
426 #if ! defined(WNT)
427 extern int ViewerMainLoop2d (Standard_Integer argc, const char ** argv);
428 #else
429 Standard_EXPORT int ViewerMainLoop2d (Standard_Integer argc, const char ** argv);
430 #endif
431
432 static Standard_Integer QAAISGetMousePoint (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
433 {
434   if ( argc != 1 ) {
435     di << "Usage : " << argv[0] << "\n";
436     return 1;
437   }
438   Handle (V3d_View) QAAISView = ViewerTest::CurrentView ();
439   if ( QAAISView.IsNull () ) {
440     di << "You must initialize AISViewer before this command." << "\n";
441     return 1;
442   }
443   Standard_Integer QAAISMouseCoordinateX = 0;
444   Standard_Integer QAAISMouseCoordinateY = 0;
445   Standard_Integer argccc = 5;
446   const char *bufff[] = { "A", "B", "C", "D", "E" };
447   const char **argvvv = (const char **) bufff;
448   while ( ViewerMainLoop (argccc, argvvv) ) {
449     ViewerTest::GetMousePosition (QAAISMouseCoordinateX, QAAISMouseCoordinateY);
450   }
451   ViewerTest::GetMousePosition (QAAISMouseCoordinateX, QAAISMouseCoordinateY);
452   di << "X-coordinate: " << QAAISMouseCoordinateX << "; Y-coordinate: " << QAAISMouseCoordinateY << "\n";
453   return 0;
454 }
455
456 static Standard_Integer QAAISGetColorCoord (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
457 {
458 #if ! defined(WNT)
459   if ( argc > 2 ) {
460     di << "Usage : " << argv[0] << " [3d|2d]" << "\n";
461     return 1;
462   }
463   Handle(Xw_Window) QAAISWindow;
464
465   Standard_Boolean is3d = 1;
466
467   if(argc == 1 || !strcmp(argv[1],"3d")) {
468
469     Handle (V3d_View) QAAIS_MainView = ViewerTest::CurrentView ();
470     if ( QAAIS_MainView.IsNull () ) {
471       di << "You must initialize AISViewer before this command." << "\n";
472       return 1;
473     }
474     QAAISWindow = Handle(Xw_Window)::DownCast (QAAIS_MainView->V3d_View::Window());
475     is3d = 1;
476   }
477
478   Standard_Integer QAAIS_WindowSize_X = 0;
479   Standard_Integer QAAIS_WindowSize_Y = 0;
480   QAAISWindow->Size(QAAIS_WindowSize_X, QAAIS_WindowSize_Y);
481   Handle(Aspect_DisplayConnection) aDisplayConnection = new Aspect_DisplayConnection();
482   Handle(Graphic3d_GraphicDriver)  aGraphicDriver = Graphic3d::InitGraphicDriver (aDisplayConnection);
483
484   Draw_Window QAAIS_CoordWindow ("coordinate", 421, 205, 200, 60);
485   QAAIS_CoordWindow.DisplayWindow ();
486   QAAIS_CoordWindow.SetColor (12);
487
488   Handle (Xw_Window) QAAIS_ColorWindow = new Xw_Window (aDisplayConnection, "color", 0.4074, 0.678, 0.1962, 0.06, Quantity_NOC_BLACK);
489   Handle (V3d_Viewer) QAAIS_ColorViewer = new V3d_Viewer (aGraphicDriver, Standard_ExtString ("COLOR"));
490   Handle (V3d_View) QAAIS_ColorView = QAAIS_ColorViewer -> CreateView ();
491   QAAIS_ColorWindow -> Map ();
492   QAAIS_ColorView -> SetWindow (QAAIS_ColorWindow);
493   QAAIS_ColorView -> SetBackgroundColor (Quantity_NOC_BLACK);
494   QAAIS_ColorView -> Redraw ();
495
496   Standard_Integer QAAIS_MousePoint_X = 0;
497   Standard_Integer QAAIS_MousePoint_Y = 0;
498   Standard_Character QAAIS_MousePointX[32];
499   Sprintf (QAAIS_MousePointX, "X : %d", QAAIS_MousePoint_X);
500   Standard_Character QAAIS_MousePointY[32];
501   Sprintf (QAAIS_MousePointY, "Y : %d", QAAIS_MousePoint_Y);
502   Standard_ShortReal QAAIS_ColorRED = 0;
503   Standard_ShortReal QAAIS_ColorGRN = 0;
504   Standard_ShortReal QAAIS_ColorBLU = 0;
505   Quantity_Color QAAIS_ShowingColor;
506   QAAIS_ShowingColor.SetValues (QAAIS_ColorRED, QAAIS_ColorGRN, QAAIS_ColorBLU, Quantity_TOC_RGB);
507   Standard_Integer argccc = 5;
508   const char *bufff[] = { "A", "B", "C", "D", "E" };
509   const char **argvvv = (const char **) bufff;
510   while ( is3d ? ViewerMainLoop (argccc, argvvv) : ViewerMainLoop2d (argccc, argvvv)) {
511     Handle(TColStd_HSequenceOfReal) aSeq;
512     Image_PixMap anImage;
513     if(is3d)
514     {
515       ViewerTest::GetMousePosition (QAAIS_MousePoint_X, QAAIS_MousePoint_Y);
516       Handle (V3d_View) QAAIS_MainView = ViewerTest::CurrentView();
517       QAAIS_MainView->ToPixMap (anImage, QAAIS_WindowSize_X, QAAIS_WindowSize_Y);
518     }
519     aSeq = GetColorOfPixel (anImage, QAAIS_MousePoint_X, QAAIS_MousePoint_Y, 0);
520
521     QAAIS_ColorRED = aSeq->Value(1);
522     QAAIS_ColorGRN = aSeq->Value(2);
523     QAAIS_ColorBLU = aSeq->Value(3);
524     QAAIS_ShowingColor.SetValues (QAAIS_ColorRED, QAAIS_ColorGRN, QAAIS_ColorBLU, Quantity_TOC_RGB);
525     QAAIS_ColorView -> SetBackgroundColor (QAAIS_ShowingColor);
526     QAAIS_ColorView -> Redraw ();
527     QAAIS_CoordWindow.Clear();
528     Sprintf (QAAIS_MousePointX, "X : %d", QAAIS_MousePoint_X);
529     Sprintf (QAAIS_MousePointY, "Y : %d", QAAIS_MousePoint_Y);
530     QAAIS_CoordWindow.DrawString (30, 35, QAAIS_MousePointX);
531     QAAIS_CoordWindow.DrawString (125, 35, QAAIS_MousePointY);
532   }
533   QAAIS_CoordWindow.Destroy ();
534 #endif //WNT
535     return 0;
536 }
537
538 //==============================================================================
539 //  VIEWER GLOBALs
540 //==============================================================================
541 #ifndef WNT
542 extern Draw_Viewer dout;
543 extern Display*         Draw_WindowDisplay;
544 extern Colormap         Draw_WindowColorMap;
545 #else
546 Standard_IMPORT Draw_Viewer dout;
547 #endif
548
549 //=======================================================================
550 #if ! defined(WNT)
551 extern ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
552 extern Handle(AIS_InteractiveContext)& TheAISContext();
553 #else
554 Standard_EXPORT ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
555 Standard_EXPORT Handle(AIS_InteractiveContext)& TheAISContext();
556 #endif
557 #include <ViewerTest_DoubleMapOfInteractiveAndName.hxx>
558 #include <AIS_Trihedron.hxx>
559 #include <AIS_Axis.hxx>
560 #include <Geom_Line.hxx>
561 #include <AIS_Line.hxx>
562
563 //==============================================================================
564 // function : VTrihedronOrigins
565 // author   : ota
566 // purpose  : draws triheron axis origin lines.
567 // Draw arg : vtri_orig trihedron_name
568 //==============================================================================
569 static int VTrihedronOrigins(Draw_Interpretor& di,
570                               Standard_Integer argc,
571                               const char ** argv)
572 {
573   if(argc != 2){
574     di <<"Usage : vtri_orig tri_name"<<"\n";
575     return 1;
576   }
577
578   if(TheAISContext().IsNull()){
579     di<<"Make 'vinit' before this method call"<<"\n";
580     return 1;
581   }
582
583   //get trihedron from AIS map.
584   TCollection_AsciiString aName(argv[1]);
585   if(!GetMapOfAIS().IsBound2(aName)){
586     di<<"No object named '"<<argv[1]<<"'"<<"\n";
587     return 1;
588   }
589
590   Handle(AIS_Trihedron) aTrih =
591     Handle(AIS_Trihedron)::DownCast(GetMapOfAIS().Find2(aName));
592   if(aTrih.IsNull()){
593     di<<"Trihedron is not found, try another name"<<"\n";
594     return 1;
595   }
596
597   //get axis
598   Handle(AIS_Axis) XAxis = aTrih->XAxis();
599   Handle(AIS_Axis) YAxis = aTrih->YAxis();
600   Handle(AIS_Axis) ZAxis = aTrih->Axis();
601
602   //get geometrical lines
603   Handle(Geom_Line) XGLine = XAxis->Component();
604   Handle(Geom_Line) YGLine = YAxis->Component();
605   Handle(Geom_Line) ZGLine = ZAxis->Component();
606
607   //make AIS_Lines
608   Handle(AIS_Line) XLine = new AIS_Line(XGLine);
609   Handle(AIS_Line) YLine = new AIS_Line(YGLine);
610   Handle(AIS_Line) ZLine = new AIS_Line(ZGLine);
611
612   //put them into AIS map:
613   GetMapOfAIS().Bind(XLine,aName+"_X");
614   GetMapOfAIS().Bind(YLine,aName+"_Y");
615   GetMapOfAIS().Bind(ZLine,aName+"_Z");
616   //print names of created objects:
617   di<<argv[1]<<"_X  "<<argv[1]<<"_Y  "<<argv[1]<<"_Z"<<"\n";
618
619   //try to draw them:
620   TheAISContext()->Display(XLine);
621   TheAISContext()->Display(YLine);
622   TheAISContext()->Display(ZLine);
623
624   return 0;
625 }
626
627 #include <Draw_Viewer.hxx>
628 #include <Draw.hxx>
629
630 static Standard_Integer ViewId(const Standard_CString a)
631 {
632   Standard_Integer id = Draw::Atoi(a);
633   if ((id < 0) || (id >= MAXVIEW)) {
634     cout << "Incorrect view-id, must be in 0.."<<MAXVIEW-1<<endl;
635     return -1;
636   }
637   if (!dout.HasView(id)) {
638     cout <<"View "<<id<<" does not exist."<<endl;
639     return -1;
640   }
641   return id;
642 }
643
644 #include <Draw_Display.hxx>
645
646 //=======================================================================
647 // QArename
648 //=======================================================================
649
650 static Standard_Integer QArename(Draw_Interpretor& di, Standard_Integer n, const char** a)
651 {
652   if (n < 3) return 1;
653   Standard_Boolean cop = !strcasecmp(a[0],"copy");
654
655   Handle(Draw_Drawable3D) D;
656   for (Standard_Integer i = 1; i < n; i += 2) {
657     if (i+1 >= n) return 0;
658     D = Draw::Get(a[i]);
659     if (!D.IsNull()) {
660       if (cop)
661         D = D->Copy();
662       else
663         // clear old name
664         Draw::Set(a[i],Handle(Draw_Drawable3D()));
665
666       Draw::Set(a[i+1],D);
667     }
668   }
669   return 0;
670 }
671
672 //#if defined(V2D)
673 //#include <AIS2D_InteractiveContext.hxx>
674 //static Standard_Integer QANbSelected2d (Draw_Interpretor& /*di*/, Standard_Integer argc, char** argv)
675 //{
676 //  if(argc != 1) {
677 //    cout << "Usage : " << argv[0] << endl;
678 //    return 1;
679 //  }
680 //  Handle(AIS2D_InteractiveContext) aContext = Viewer2dTest::GetAIS2DContext();
681 //  if(aContext.IsNull()) {
682 //    cerr << "use 'v2dinit' command before " << argv[0] << endl;
683 //    return 1;
684 //  }
685 //  cout << aContext->NbSelected() << endl;
686 //  return 0;
687 //}
688 //#endif
689
690 void QADraw::CommonCommands(Draw_Interpretor& theCommands)
691 {
692   ios::sync_with_stdio();
693
694   st_err = dup(STDERR_FILENO);
695
696   Draw_BeforeCommand_old = Draw_BeforeCommand;
697   Draw_AfterCommand_old  = Draw_AfterCommand;
698
699   Draw_BeforeCommand = &before;
700   Draw_AfterCommand  = &after;
701
702   const char* group = "QA_Commands";
703
704   theCommands.Add("QARebuild","QARebuild command_name",__FILE__,QARebuild,group);
705   theCommands.Add("QAGetPixelColor", "QAGetPixelColor coordinate_X coordinate_Y [color_R color_G color_B]", __FILE__,QAAISGetPixelColor, group);
706   theCommands.Add("QAGetMousePoint", "QAGetMousePoint", __FILE__,QAAISGetMousePoint, group);
707   theCommands.Add("QAGetColorCoord", "QAGetColorCoord [3d|2d]", __FILE__,QAAISGetColorCoord, group);
708   theCommands.Add("vtri_orig",
709                   "vtri_orig         : vtri_orig trihedron_name  -  draws axis origin lines",
710                   __FILE__,VTrihedronOrigins,group);
711
712 // adding commands "rename" leads to the fact that QA commands doesn't work properly OCC23410, use function "renamevar"
713 // theCommands.Add("rename","rename name1 toname1 name2 toname2 ...",__FILE__,QArename,group);
714 }
715 /*
716 extern "C" int Tkqadraw_Init(Tcl_Interp *);
717
718 int Tkqadraw_Init(Tcl_Interp * ) {
719
720   ios::sync_with_stdio();
721
722   QADraw::CommonCommands(theCommands);
723   QADraw::AdditionalCommands(theCommands);
724
725   ViewerTest::Commands (theCommands);
726   ViewerTest::ViewerCommands (theCommands);
727
728   Viewer2dTest::Commands(theCommands);
729 //   if (Tcl_PkgProvide(theCommands.Interp(), "Qa", "1.0") != TCL_OK) {
730 //     return TCL_ERROR;
731 //   }
732
733   return TCL_OK;
734 }
735 */
736 //==============================================================================
737 // QADraw::Factory
738 //==============================================================================
739 void QADraw::Factory(Draw_Interpretor& theCommands)
740 {
741   thePCommands = &theCommands;
742
743   // definition of QA Command
744   QADraw::CommonCommands(theCommands);
745   QADraw::AdditionalCommands(theCommands);
746
747   //ViewerTest::Commands (theCommands);
748   //ViewerTest::ViewerCommands (theCommands);
749
750 //#if defined(V2D)
751 //    Viewer2dTest::Commands(theCommands);
752 //#endif
753
754 //#ifdef DEB
755 //      cout << "Draw Plugin : QA commands are loaded" << endl;
756 //#endif
757 }
758
759 // Declare entry point PLUGINFACTORY
760 DPLUGIN(QADraw)