28625ce3bfe512705683f4cbe9b5d23e4b711070
[occt.git] / src / ViewerTest / ViewerTest_ViewerCommands.cxx
1 // Created on: 1998-09-01
2 // Created by: Robert COUBLANC
3 // Copyright (c) 1998-1999 Matra Datavision
4 // Copyright (c) 1999-2012 OPEN CASCADE SAS
5 //
6 // The content of this file is subject to the Open CASCADE Technology Public
7 // License Version 6.5 (the "License"). You may not use the content of this file
8 // except in compliance with the License. Please obtain a copy of the License
9 // at http://www.opencascade.org and read it completely before using this file.
10 //
11 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13 //
14 // The Original Code and all software distributed under the License is
15 // distributed on an "AS IS" basis, without warranty of any kind, and the
16 // Initial Developer hereby disclaims all such warranties, including without
17 // limitation, any warranties of merchantability, fitness for a particular
18 // purpose or non-infringement. Please see the License for the specific terms
19 // and conditions governing the rights and limitations under the License.
20
21
22 // Robert Boehne 30 May 2000 : Dec Osf
23
24 #ifdef HAVE_CONFIG_H
25 # include <config.h>
26 #endif
27
28 #ifdef WNT
29 #include <windows.h>
30 #endif
31
32 #include <Graphic3d_ExportFormat.hxx>
33 #include <ViewerTest.hxx>
34 #include <ViewerTest_EventManager.hxx>
35 #include <Visual3d_View.hxx>
36 #include <Visual3d_ViewManager.hxx>
37 #include <V3d_LayerMgr.hxx>
38 #include <NIS_View.hxx>
39 #include <NIS_Triangulated.hxx>
40 #include <NIS_InteractiveContext.hxx>
41 #include <AIS_InteractiveContext.hxx>
42 #include <Draw_Interpretor.hxx>
43 #include <Draw.hxx>
44 #include <Draw_Appli.hxx>
45 #include <Aspect_PrintAlgo.hxx>
46 #include <Image_PixMap.hxx>
47 #include <TColStd_SequenceOfInteger.hxx>
48 #include <Visual3d_LayerItem.hxx>
49 #include <V3d_LayerMgr.hxx>
50 #include <V3d_LayerMgrPointer.hxx>
51 #include <Aspect_TypeOfLine.hxx>
52
53 #ifdef WNT
54 #undef DrawText
55 #endif
56
57 #include <Visual3d_Layer.hxx>
58
59 #ifndef WNT
60 #include <Graphic3d_GraphicDevice.hxx>
61 #include <Xw_GraphicDevice.hxx>
62 #include <Xw_WindowQuality.hxx>
63 #include <Xw_Window.hxx>
64 #include <X11/Xlib.h> /* contains some dangerous #defines such as Status, True etc. */
65 #include <X11/Xutil.h>
66 #include <tk.h>
67
68 #else
69
70 #include <Graphic3d_WNTGraphicDevice.hxx>
71 #include <WNT_WClass.hxx>
72 #include <WNT_Window.hxx>
73
74 #define _CRT_SECURE_NO_DEPRECATE
75 #pragma warning (disable:4996)
76
77 #endif
78
79 #define OCC120
80
81 //==============================================================================
82
83 //==============================================================================
84 //  VIEWER GLOBAL VARIABLES
85 //==============================================================================
86
87 Standard_IMPORT Standard_Boolean Draw_VirtualWindows;
88
89 Standard_EXPORT int ViewerMainLoop(Standard_Integer , const char** argv);
90 extern const Handle(NIS_InteractiveContext)& TheNISContext();
91
92 #ifdef WNT
93 static Handle(Graphic3d_WNTGraphicDevice)& GetG3dDevice(){
94   static Handle(Graphic3d_WNTGraphicDevice) GD;
95   return GD;
96 }
97
98 static Handle(WNT_Window)& VT_GetWindow() {
99   static Handle(WNT_Window) WNTWin;
100   return WNTWin;
101 }
102
103 #else
104 static Handle(Graphic3d_GraphicDevice)& GetG3dDevice(){
105   static Handle(Graphic3d_GraphicDevice) GD;
106   return GD;
107 }
108 static Handle(Xw_Window)& VT_GetWindow(){
109   static Handle(Xw_Window) XWWin;
110   return XWWin;
111 }
112 static Display *display;
113
114 static void VProcessEvents(ClientData,int);
115 #endif
116
117 #ifdef OCC120
118 static Standard_Boolean DegenerateMode = Standard_True;
119 #endif
120
121 #define ZCLIPWIDTH 1.
122
123 static void OSWindowSetup();
124
125 //==============================================================================
126 //  EVENT GLOBAL VARIABLES
127 //==============================================================================
128
129 static int Start_Rot = 0;
130 static int ZClipIsOn = 0;
131 static int X_Motion= 0,Y_Motion=0; // Current cursor position
132 static int X_ButtonPress = 0, Y_ButtonPress = 0; // Last ButtonPress position
133
134
135 //==============================================================================
136
137 #ifdef WNT
138 static LRESULT WINAPI ViewerWindowProc(
139                                        HWND hwnd,
140                                        UINT uMsg,
141                                        WPARAM wParam,
142                                        LPARAM lParam );
143 static LRESULT WINAPI AdvViewerWindowProc(
144   HWND hwnd,
145   UINT uMsg,
146   WPARAM wParam,
147   LPARAM lParam );
148 #endif
149
150
151 //==============================================================================
152 //function : WClass
153 //purpose  :
154 //==============================================================================
155
156 const Handle(MMgt_TShared)& ViewerTest::WClass()
157 {
158   static Handle(MMgt_TShared) theWClass;
159 #ifdef WNT
160   if (theWClass.IsNull()) {
161     theWClass = new WNT_WClass ("GW3D_Class", AdvViewerWindowProc,
162       CS_VREDRAW | CS_HREDRAW, 0, 0,
163       ::LoadCursor (NULL, IDC_ARROW));
164   }
165 #endif
166   return theWClass;
167 }
168
169 //==============================================================================
170 //function : ViewerInit
171 //purpose  : Create the window viewer and initialize all the global variable
172 //==============================================================================
173
174 void ViewerTest::ViewerInit (const Standard_Integer thePxLeft,  const Standard_Integer thePxTop,
175                              const Standard_Integer thePxWidth, const Standard_Integer thePxHeight)
176 {
177   static Standard_Boolean isFirst = Standard_True;
178
179   Standard_Integer aPxLeft   = 0;
180   Standard_Integer aPxTop    = 460;
181   Standard_Integer aPxWidth  = 409;
182   Standard_Integer aPxHeight = 409;
183   if (thePxWidth != 0 && thePxHeight != 0)
184   {
185     aPxLeft   = thePxLeft;
186     aPxTop    = thePxTop;
187     aPxWidth  = thePxWidth;
188     aPxHeight = thePxHeight;
189   }
190
191   if (isFirst)
192   {
193     // Create the Graphic device
194 #ifdef WNT
195     if (GetG3dDevice().IsNull()) GetG3dDevice() = new Graphic3d_WNTGraphicDevice();
196     if (VT_GetWindow().IsNull())
197     {
198       // Create the Graphic device and the window
199       Handle(WNT_GraphicDevice) g_Device = new WNT_GraphicDevice();
200
201       VT_GetWindow() = new WNT_Window (g_Device, "Test3d",
202                                        Handle(WNT_WClass)::DownCast (WClass()),
203                                        WS_OVERLAPPEDWINDOW,
204                                        aPxLeft, aPxTop,
205                                        aPxWidth, aPxHeight,
206                                        Quantity_NOC_BLACK);
207       VT_GetWindow()->SetVirtual (Draw_VirtualWindows);
208     }
209 #else
210     if (GetG3dDevice().IsNull()) GetG3dDevice() =
211       new Graphic3d_GraphicDevice (getenv ("DISPLAY"), Xw_TOM_READONLY);
212     if (VT_GetWindow().IsNull())
213     {
214       VT_GetWindow() = new Xw_Window (GetG3dDevice(),
215                                       "Test3d",
216                                       aPxLeft, aPxTop,
217                                       aPxWidth, aPxHeight,
218                                       Xw_WQ_3DQUALITY,
219                                       Quantity_NOC_BLACK);
220       VT_GetWindow()->SetVirtual (Draw_VirtualWindows);
221     }
222 #endif
223
224     Handle(V3d_Viewer) a3DViewer, a3DCollector;
225     // Viewer and View creation
226
227     TCollection_ExtendedString NameOfWindow("Visu3D");
228
229     a3DViewer = new V3d_Viewer(GetG3dDevice(), NameOfWindow.ToExtString());
230     NameOfWindow = TCollection_ExtendedString("Collector");
231     a3DCollector = new V3d_Viewer(GetG3dDevice(), NameOfWindow.ToExtString());
232     a3DViewer->SetDefaultBackgroundColor(Quantity_NOC_BLACK);
233     a3DCollector->SetDefaultBackgroundColor(Quantity_NOC_STEELBLUE);
234     Handle(NIS_View) aView =
235       Handle(NIS_View)::DownCast(ViewerTest::CurrentView());
236     if ( aView.IsNull() ) {
237       //       Handle (V3d_View) V = a3DViewer->CreateView();
238       aView = new NIS_View (a3DViewer, VT_GetWindow());
239       ViewerTest::CurrentView(aView);
240       TheNISContext()->AttachView (aView);
241     }
242     Handle(V3d_View) a3DViewCol;
243     if ( a3DViewCol.IsNull() ) a3DViewCol    = a3DViewer->CreateView();
244
245     // AIS setup
246     if ( ViewerTest::GetAISContext().IsNull() ) {
247       Handle(AIS_InteractiveContext) C =
248         new AIS_InteractiveContext(a3DViewer,a3DCollector);
249       ViewerTest::SetAISContext(C);
250     }
251
252     // Setup for X11 or NT
253     OSWindowSetup();
254     // Viewer and View creation
255
256     a3DViewer->SetDefaultBackgroundColor(Quantity_NOC_BLACK);
257
258     Handle (V3d_View) V = ViewerTest::CurrentView();
259
260     V->SetDegenerateModeOn();
261 #ifdef OCC120
262     DegenerateMode = V->DegenerateModeIsOn();
263 #endif
264     //    V->SetWindow(VT_GetWindow(), NULL, MyViewProc, NULL);
265
266     V->SetZClippingDepth(0.5);
267     V->SetZClippingWidth(ZCLIPWIDTH/2.);
268     a3DViewer->SetDefaultLights();
269     a3DViewer->SetLightOn();
270
271 #ifndef WNT
272 #if TCL_MAJOR_VERSION  < 8
273     Tk_CreateFileHandler((void*)ConnectionNumber(display),
274       TK_READABLE, VProcessEvents, (ClientData) VT_GetWindow()->XWindow() );
275 #else
276     Tk_CreateFileHandler(ConnectionNumber(display),
277       TK_READABLE, VProcessEvents, (ClientData) VT_GetWindow()->XWindow() );
278 #endif
279 #endif
280
281     isFirst = Standard_False;
282   }
283   VT_GetWindow()->Map();
284 }
285
286 //==============================================================================
287 //function : Vinit
288 //purpose  : Create the window viewer and initialize all the global variable
289 //    Use Tk_CreateFileHandler on UNIX to cath the X11 Viewer event
290 //==============================================================================
291
292 static int VInit (Draw_Interpretor& , Standard_Integer argc, const char** argv)
293 {
294   Standard_Integer aPxLeft   = (argc > 1) ? atoi (argv[1]) : 0;
295   Standard_Integer aPxTop    = (argc > 2) ? atoi (argv[2]) : 0;
296   Standard_Integer aPxWidth  = (argc > 3) ? atoi (argv[3]) : 0;
297   Standard_Integer aPxHeight = (argc > 4) ? atoi (argv[4]) : 0;
298   ViewerTest::ViewerInit (aPxLeft, aPxTop, aPxWidth, aPxHeight);
299   return 0;
300 }
301
302 //==============================================================================
303 //function : ProcessKeyPress
304 //purpose  : Handle KeyPress event from a CString
305 //==============================================================================
306
307 static void ProcessKeyPress( char *buf_ret )
308 {
309   //cout << "KeyPress" << endl;
310   const Handle(V3d_View) aView = ViewerTest::CurrentView();
311   const Handle(NIS_View) aNisView = Handle(NIS_View)::DownCast (aView);
312   // Letter in alphabetic order
313
314   if ( !strcasecmp(buf_ret, "A") ) {
315     // AXO
316     aView->SetProj(V3d_XposYnegZpos);
317   }
318   else if ( !strcasecmp(buf_ret, "D") ) {
319     // Reset
320     aView->Reset();
321   }
322   else if ( !strcasecmp(buf_ret, "F") ) {
323     // FitAll
324     if (aNisView.IsNull())
325       aView->FitAll();
326     else
327       aNisView->FitAll3d();
328   }
329   else if ( !strcasecmp(buf_ret, "H") ) {
330     // HLR
331     cout << "HLR" << endl;
332 #ifdef OCC120
333     if (aView->DegenerateModeIsOn()) ViewerTest::CurrentView()->SetDegenerateModeOff();
334     else aView->SetDegenerateModeOn();
335     DegenerateMode = aView->DegenerateModeIsOn();
336 #else
337     ViewerTest::CurrentView()->SetDegenerateModeOff();
338 #endif
339   }
340   else if ( !strcasecmp(buf_ret, "D") ) {
341     // Reset
342     aView->Reset();
343   }
344   else if ( !strcasecmp(buf_ret, "S") ) {
345     // SHADING
346     cout << "passage en mode 1 (shading pour les shapes)" << endl;
347 #ifndef OCC120
348     ViewerTest::CurrentView()->SetDegenerateModeOn();
349 #endif
350     Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
351     if(Ctx->NbCurrents()==0 ||
352       Ctx->NbSelected()==0)
353       Ctx->SetDisplayMode(AIS_Shaded);
354     else{
355       if(Ctx->HasOpenedContext()){
356         for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
357           Ctx->SetDisplayMode(Ctx->Interactive(),1,Standard_False);
358       }
359       else{
360         for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
361           Ctx->SetDisplayMode(Ctx->Current(),1,Standard_False);
362       }
363       Ctx->UpdateCurrentViewer();
364     }
365   }
366   else if ( !strcasecmp(buf_ret, "U") ) {
367     // SHADING
368     cout<<"passage au mode par defaut"<<endl;
369 #ifndef OCC120
370     ViewerTest::CurrentView()->SetDegenerateModeOn();
371 #endif
372     Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
373     if(Ctx->NbCurrents()==0 ||
374       Ctx->NbSelected()==0)
375       Ctx->SetDisplayMode(AIS_WireFrame);
376     else{
377       if(Ctx->HasOpenedContext()){
378         for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
379           Ctx->UnsetDisplayMode(Ctx->Interactive(),Standard_False);
380       }
381       else{
382         for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
383           Ctx->UnsetDisplayMode(Ctx->Current(),Standard_False);
384       }
385       Ctx->UpdateCurrentViewer();
386     }
387
388   }
389   else if ( !strcasecmp(buf_ret, "T") ) {
390     // Top
391     aView->SetProj(V3d_Zpos);
392   }
393   else if ( !strcasecmp(buf_ret, "B") ) {
394     // Top
395     aView->SetProj(V3d_Zneg);
396   }
397   else if ( !strcasecmp(buf_ret, "L") ) {
398     // Top
399     aView->SetProj(V3d_Xneg);
400   }
401   else if ( !strcasecmp(buf_ret, "R") ) {
402     // Top
403     aView->SetProj(V3d_Xpos);
404   }
405
406   else if ( !strcasecmp(buf_ret, "W") ) {
407     // WIREFRAME
408 #ifndef OCC120
409     ViewerTest::CurrentView()->SetDegenerateModeOn();
410 #endif
411     cout << "passage en mode 0 (filaire pour les shapes)" << endl;
412 #ifndef OCC120
413     ViewerTest::CurrentView()->SetDegenerateModeOn();
414 #endif
415     Handle(AIS_InteractiveContext) Ctx = ViewerTest::GetAISContext();
416     if(Ctx->NbCurrents()==0 ||
417       Ctx->NbSelected()==0)
418       Ctx->SetDisplayMode(AIS_WireFrame);
419     else{
420       if(Ctx->HasOpenedContext()){
421         for(Ctx->InitSelected();Ctx->MoreSelected();Ctx->NextSelected())
422           Ctx->SetDisplayMode(Ctx->Interactive(),0,Standard_False);
423       }
424       else{
425         for(Ctx->InitCurrent();Ctx->MoreCurrent();Ctx->NextCurrent())
426           Ctx->SetDisplayMode(Ctx->Current(),0,Standard_False);
427       }
428       Ctx->UpdateCurrentViewer();
429     }
430   }
431   else if ( !strcasecmp(buf_ret, "Z") ) {
432     // ZCLIP
433
434     if ( ZClipIsOn ) {
435       cout << "ZClipping OFF" << endl;
436       ZClipIsOn = 0;
437
438       aView->SetZClippingType(V3d_OFF);
439       aView->Redraw();
440     }
441     else {
442       cout << "ZClipping ON" << endl;
443       ZClipIsOn = 1;
444
445       aView->SetZClippingType(V3d_FRONT);
446       aView->Redraw();
447     }
448   }
449   else if ( !strcasecmp(buf_ret, ",") ) {
450     ViewerTest::GetAISContext()->HilightNextDetected(ViewerTest::CurrentView());
451
452
453   }
454   else if ( !strcasecmp(buf_ret, ".") ) {
455     ViewerTest::GetAISContext()->HilightPreviousDetected(ViewerTest::CurrentView());
456   }
457   // Number
458   else{
459     Standard_Integer Num = atoi(buf_ret);
460     if(Num>=0 && Num<=7)
461       ViewerTest::StandardModeActivation(Num);
462   }
463 }
464
465 //==============================================================================
466 //function : ProcessExpose
467 //purpose  : Redraw the View on an Expose Event
468 //==============================================================================
469
470 static void ProcessExpose(  )
471 { //cout << "Expose" << endl;
472   ViewerTest::CurrentView()->Redraw();
473 }
474
475 //==============================================================================
476 //function : ProcessConfigure
477 //purpose  : Resize the View on an Configure Event
478 //==============================================================================
479
480 static void ProcessConfigure()
481 {
482   Handle(V3d_View) V = ViewerTest::CurrentView();
483   V->MustBeResized();
484   V->Update();
485   V->Redraw();
486 }
487
488 //==============================================================================
489 //function : ProcessButton1Press
490 //purpose  : Picking
491 //==============================================================================
492
493 static Standard_Boolean ProcessButton1Press(
494   Standard_Integer ,
495   const char** argv,
496   Standard_Boolean pick,
497   Standard_Boolean shift )
498 {
499   Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
500   if ( pick ) {
501     Standard_Real X, Y, Z;
502
503     ViewerTest::CurrentView()->Convert(X_Motion, Y_Motion, X, Y, Z);
504
505     Draw::Set(argv[1], X);
506     Draw::Set(argv[2], Y);
507     Draw::Set(argv[3], Z);}
508
509   if(shift)
510     EM->ShiftSelect();
511   else
512     EM->Select();
513
514   pick = 0;
515   return pick;
516 }
517
518 //==============================================================================
519 //function : ProcessButton3Press
520 //purpose  : Start Rotation
521 //==============================================================================
522
523 static void ProcessButton3Press()
524
525 { // Start rotation
526   Start_Rot = 1;
527   ViewerTest::CurrentView()->SetDegenerateModeOn();
528   ViewerTest::CurrentView()->StartRotation( X_ButtonPress, Y_ButtonPress );
529
530 }
531 //==============================================================================
532 //function : ProcessButtonRelease
533 //purpose  : Start Rotation
534 //==============================================================================
535
536 static void ProcessButtonRelease()
537
538 { // End rotation
539 #ifdef OCC120
540   if (Start_Rot) {
541     Start_Rot = 0;
542     if (!DegenerateMode) ViewerTest::CurrentView()->SetDegenerateModeOff();
543   }
544 #else
545   Start_Rot = 0;
546   ViewerTest::CurrentView()->SetDegenerateModeOff();
547 #endif
548 }
549
550 //==============================================================================
551 //function : ProcessZClipMotion
552 //purpose  : Zoom
553 //==============================================================================
554
555 void ProcessZClipMotion()
556 {
557   Handle(V3d_View)  a3DView = ViewerTest::CurrentView();
558   if ( Abs(X_Motion - X_ButtonPress) > 2 ) {
559     static Standard_Real CurZPos = 0.;
560
561     //Quantity_Length VDX, VDY;
562     //a3DView->Size(VDX,VDY);
563     //Standard_Real VDZ = a3DView->ZSize();
564     //printf("View size (%lf,%lf,%lf)\n", VDX, VDY, VDZ);
565
566     Quantity_Length dx = a3DView->Convert(X_Motion - X_ButtonPress);
567
568     // Front = Depth + width/2.
569     Standard_Real D = 0.5;
570     Standard_Real W = 0.1;
571
572     CurZPos += (dx);
573
574     D += CurZPos;
575
576     //printf("dx %lf Depth %lf Width %lf\n", dx, D, W);
577
578     a3DView->SetZClippingType(V3d_OFF);
579     a3DView->SetZClippingDepth(D);
580     a3DView->SetZClippingWidth(W);
581     a3DView->SetZClippingType(V3d_FRONT);
582
583     a3DView->Redraw();
584
585     X_ButtonPress = X_Motion;
586     Y_ButtonPress = Y_Motion;
587   }
588 }
589
590 //==============================================================================
591 //function : ProcessControlButton1Motion
592 //purpose  : Zoom
593 //==============================================================================
594
595 static void ProcessControlButton1Motion()
596 {
597   ViewerTest::CurrentView()->Zoom( X_ButtonPress, Y_ButtonPress, X_Motion, Y_Motion);
598
599   X_ButtonPress = X_Motion;
600   Y_ButtonPress = Y_Motion;
601 }
602
603 //==============================================================================
604 //function : ProcessControlButton2Motion
605 //purpose  : Pann
606 //==============================================================================
607
608 static void ProcessControlButton2Motion()
609 {
610   Quantity_Length dx = ViewerTest::CurrentView()->Convert(X_Motion - X_ButtonPress);
611   Quantity_Length dy = ViewerTest::CurrentView()->Convert(Y_Motion - Y_ButtonPress);
612
613   dy = -dy; // Xwindow Y axis is from top to Bottom
614
615   ViewerTest::CurrentView()->Panning( dx, dy );
616
617   X_ButtonPress = X_Motion;
618   Y_ButtonPress = Y_Motion;
619 }
620
621 //==============================================================================
622 //function : ProcessControlButton3Motion
623 //purpose  : Rotation
624 //==============================================================================
625
626 static void ProcessControlButton3Motion()
627 {
628   if ( Start_Rot ) ViewerTest::CurrentView()->Rotation( X_Motion, Y_Motion);
629 }
630
631 //==============================================================================
632 //function : ProcessPointerMotion
633 //purpose  : Rotation
634 //==============================================================================
635
636 static void ProcessMotion()
637 {
638   //pre-hilights detected objects at mouse position
639
640   Handle(ViewerTest_EventManager) EM = ViewerTest::CurrentEventManager();
641   EM->MoveTo(X_Motion, Y_Motion);
642 }
643
644
645 void ViewerTest::GetMousePosition(Standard_Integer& Xpix,Standard_Integer& Ypix)
646 {
647   Xpix = X_Motion;Ypix=Y_Motion;
648 }
649
650 //==============================================================================
651 //function : VAxo
652 //purpose  : Switch to an Axonometric view
653 //Draw arg : No args
654 //==============================================================================
655
656 static int VAxo(Draw_Interpretor& di, Standard_Integer , const char** )
657 { if ( ViewerTest::CurrentView().IsNull() ) {
658   di<<"La commande vinit n'a pas ete appele avant"<<"\n";
659   //  VInit(di, argc, argv);
660 }
661
662 ViewerTest::CurrentView()->SetProj(V3d_XposYnegZpos);
663
664 return 0;
665 }
666
667 //==============================================================================
668 //function : VTop
669 //purpose  : Switch to a Top View
670 //Draw arg : No args
671 //==============================================================================
672
673 static int VTop(Draw_Interpretor& di, Standard_Integer , const char** )
674 {
675
676   if ( ViewerTest::CurrentView().IsNull() ) {
677     di<<"La commande vinit n'a pas ete appele avant"<<"\n";
678
679     //  VInit(di, , argv);
680   }
681
682   ViewerTest::CurrentView()->SetProj(V3d_Zpos);
683   return 0;
684
685 }
686
687 //==============================================================================
688 //function : VHelp
689 //purpose  : Dsiplay help on viewer Keyboead and mouse commands
690 //Draw arg : No args
691 //==============================================================================
692
693 static int VHelp(Draw_Interpretor& di, Standard_Integer , const char** )
694 {
695
696   di << "Q : Quit the application" << "\n";
697
698   di << "========================="<<"\n";
699   di << "F : FitAll" << "\n";
700   di << "T : TopView" << "\n";
701   di << "A : AxonometricView" << "\n";
702   di << "R : ResetView" << "\n";
703
704   di << "========================="<<"\n";
705   di << "S : Shading" << "\n";
706   di << "W : Wireframe" << "\n";
707   di << "H : HidelLineRemoval" << "\n";
708
709   di << "========================="<<"\n";
710   di << "Selection mode "<<"\n";
711   di << "0 : Shape" <<"\n";
712   di << "1 : Vertex" <<"\n";
713   di << "2 : Edge" <<"\n";
714   di << "3 : Wire" <<"\n";
715   di << "4 : Face" <<"\n";
716   di << "5 : Shell" <<"\n";
717   di << "6 : Solid" <<"\n";
718   di << "7 : Compound" <<"\n";
719
720   di << "=========================="<<"\n";
721   di << "D : Remove Selected Object"<<"\n";
722   di << "=========================="<<"\n";
723
724   return 0;
725 }
726
727 Standard_Boolean IsDragged = Standard_False;
728
729 Standard_Integer xx1, yy1, xx2, yy2;
730 //the first and last point in viewer co-ordinates
731
732 Standard_Boolean DragFirst;
733
734
735 #ifdef WNT
736
737 static Standard_Boolean Ppick = 0;
738 static Standard_Integer Pargc = 0;
739 static const char**           Pargv = NULL;
740
741
742 static LRESULT WINAPI AdvViewerWindowProc( HWND hwnd,
743                                           UINT Msg,
744                                           WPARAM wParam,
745                                           LPARAM lParam )
746 {
747   if ( !ViewerTest::CurrentView().IsNull() ) {
748
749     WPARAM fwKeys = wParam;
750
751     switch( Msg ) {
752
753     case WM_LBUTTONUP:
754       IsDragged = Standard_False;
755       if( !DragFirst )
756       {
757         HDC hdc = GetDC( hwnd );
758         HGDIOBJ anObj = SelectObject( hdc, GetStockObject( WHITE_PEN ) );
759         SelectObject( hdc, GetStockObject( HOLLOW_BRUSH ) );
760         SetROP2( hdc, R2_NOT );
761         Rectangle( hdc, xx1, yy1, xx2, yy2 );
762         ReleaseDC( hwnd, hdc );
763
764         const Handle(ViewerTest_EventManager) EM =
765           ViewerTest::CurrentEventManager();
766         if ( fwKeys & MK_SHIFT )
767           EM->ShiftSelect( min( xx1, xx2 ), max( yy1, yy2 ),
768           max( xx1, xx2 ), min( yy1, yy2 ));
769         else
770           EM->Select( min( xx1, xx2 ), max( yy1, yy2 ),
771           max( xx1, xx2 ), min( yy1, yy2 ));
772       }
773       return ViewerWindowProc( hwnd, Msg, wParam, lParam );
774
775     case WM_LBUTTONDOWN:
776       if( fwKeys == MK_LBUTTON || fwKeys == ( MK_LBUTTON | MK_SHIFT ) )
777       {
778         IsDragged = Standard_True;
779         DragFirst = Standard_True;
780         xx1 = LOWORD(lParam);
781         yy1 = HIWORD(lParam);
782       }
783       return ViewerWindowProc( hwnd, Msg, wParam, lParam );
784
785       break;
786
787     case WM_MOUSEMOVE:
788       if( IsDragged )
789       {
790         HDC hdc = GetDC( hwnd );
791
792         HGDIOBJ anObj = SelectObject( hdc, GetStockObject( WHITE_PEN ) );
793         SelectObject( hdc, GetStockObject( HOLLOW_BRUSH ) );
794         SetROP2( hdc, R2_NOT );
795
796         if( !DragFirst )
797           Rectangle( hdc, xx1, yy1, xx2, yy2 );
798
799         DragFirst = Standard_False;
800         xx2 = LOWORD(lParam);
801         yy2 = HIWORD(lParam);
802
803         Rectangle( hdc, xx1, yy1, xx2, yy2 );
804
805         SelectObject( hdc, anObj );
806
807         ReleaseDC( hwnd, hdc );
808       }
809       else
810         return ViewerWindowProc( hwnd, Msg, wParam, lParam );
811       break;
812
813     default:
814       return ViewerWindowProc( hwnd, Msg, wParam, lParam );
815     }
816     return 0;
817   }
818   return ViewerWindowProc( hwnd, Msg, wParam, lParam );
819 }
820
821
822 static LRESULT WINAPI ViewerWindowProc( HWND hwnd,
823                                        UINT Msg,
824                                        WPARAM wParam,
825                                        LPARAM lParam )
826 {
827   /*static Standard_Boolean Ppick = 0;
828   static Standard_Integer Pargc = 0;
829   static char**           Pargv = NULL;*/
830
831   static int Up = 1;
832
833   if ( !ViewerTest::CurrentView().IsNull() ) {
834     PAINTSTRUCT    ps;
835
836     switch( Msg ) {
837     case WM_CLOSE:
838       // do not destroy the window - just hide it!
839       VT_GetWindow()->Unmap();
840       return 0;
841     case WM_PAINT:
842       //cout << "\t WM_PAINT" << endl;
843       BeginPaint(hwnd, &ps);
844       EndPaint(hwnd, &ps);
845       ProcessExpose();
846       break;
847
848     case WM_SIZE:
849       //cout << "\t WM_SIZE" << endl;
850       ProcessConfigure();
851       break;
852
853     case WM_KEYDOWN:
854       //cout << "\t WM_KEYDOWN " << (int) wParam << endl;
855
856       if ( (wParam != VK_SHIFT) && (wParam != VK_CONTROL) ) {
857         char c[2];
858         c[0] = (char) wParam;
859         c[1] = '\0';
860         ProcessKeyPress( c);
861       }
862       break;
863
864     case WM_LBUTTONUP:
865     case WM_MBUTTONUP:
866     case WM_RBUTTONUP:
867       //cout << "\t WM_xBUTTONUP" << endl;
868       Up = 1;
869       ProcessButtonRelease();
870       break;
871
872     case WM_LBUTTONDOWN:
873     case WM_MBUTTONDOWN:
874     case WM_RBUTTONDOWN:
875       {
876         //cout << "\t WM_xBUTTONDOWN" << endl;
877         WPARAM fwKeys = wParam;
878
879         Up = 0;
880
881         X_ButtonPress = LOWORD(lParam);
882         Y_ButtonPress = HIWORD(lParam);
883
884         if ( Msg == WM_LBUTTONDOWN) {
885           if(fwKeys & MK_CONTROL) {
886             Ppick = ProcessButton1Press( Pargc, Pargv, Ppick,  (fwKeys & MK_SHIFT) );
887           } else
888             ProcessButton1Press( Pargc, Pargv, Ppick,  (fwKeys & MK_SHIFT) );
889         }
890         else if ( Msg == WM_RBUTTONDOWN ) {
891           // Start rotation
892           ProcessButton3Press( );
893         }
894       }
895       break;
896
897     case WM_MOUSEMOVE:
898       {
899         //cout << "\t WM_MOUSEMOVE" << endl;
900         WPARAM fwKeys = wParam;
901         X_Motion = LOWORD(lParam);
902         Y_Motion = HIWORD(lParam);
903
904         if ( Up &&
905           fwKeys & ( MK_LBUTTON|MK_MBUTTON|MK_RBUTTON ) ) {
906             Up = 0;
907             X_ButtonPress = LOWORD(lParam);
908             Y_ButtonPress = HIWORD(lParam);
909
910             if ( fwKeys & MK_RBUTTON ) {
911               // Start rotation
912               ProcessButton3Press();
913             }
914           }
915
916           if ( fwKeys & MK_CONTROL ) {
917             if ( fwKeys & MK_LBUTTON ) {
918               ProcessControlButton1Motion();
919             }
920             else if ( fwKeys & MK_MBUTTON ||
921               ((fwKeys&MK_LBUTTON) &&
922               (fwKeys&MK_RBUTTON) ) ){
923                 ProcessControlButton2Motion();
924               }
925             else if ( fwKeys & MK_RBUTTON ) {
926               ProcessControlButton3Motion();
927             }
928           }
929 #ifdef BUG
930           else if ( fwKeys & MK_SHIFT ) {
931             if ( fwKeys & MK_MBUTTON ||
932               ((fwKeys&MK_LBUTTON) &&
933               (fwKeys&MK_RBUTTON) ) ) {
934                 cout << "ProcessZClipMotion()" << endl;
935                 ProcessZClipMotion();
936               }
937           }
938 #endif
939           else
940             if (( fwKeys & MK_MBUTTON || ((fwKeys&MK_LBUTTON) && (fwKeys&MK_RBUTTON) ) )){
941               ProcessZClipMotion();
942             }
943             else {
944               ProcessMotion();
945             }
946       }
947       break;
948
949     default:
950       return( DefWindowProc( hwnd, Msg, wParam, lParam ));
951     }
952     return 0L;
953   }
954
955   return DefWindowProc( hwnd, Msg, wParam, lParam );
956 }
957
958
959
960
961 //==============================================================================
962 //function : ViewerMainLoop
963 //purpose  : Get a Event on the view and dispatch it
964 //==============================================================================
965
966
967 static int ViewerMainLoop(Standard_Integer argc, const char** argv)
968 {
969
970   //cout << "No yet implemented on WNT" << endl;
971   /*static Standard_Boolean Ppick = 0;
972   static Standard_Integer Pargc = 0;
973   static char**           Pargv = NULL;*/
974
975   //Ppick = (argc > 0)? -1 : 0;
976   Ppick = (argc > 0)? 1 : 0;
977   Pargc = argc;
978   Pargv = argv;
979
980   if ( Ppick ) {
981     MSG msg;
982     msg.wParam = 1;
983
984     cout << "Start picking" << endl;
985
986     //while ( Ppick == -1 ) {
987     while ( Ppick == 1 ) {
988       // Wait for a ProcessButton1Press() to toggle pick to 1 or 0
989       if (GetMessage(&msg, NULL, 0, 0) ) {
990         TranslateMessage(&msg);
991         DispatchMessage(&msg);
992       }
993     }
994
995     cout << "Picking done" << endl;
996   }
997
998   return Ppick;
999 }
1000
1001
1002 #else
1003
1004 int min( int a, int b )
1005 {
1006   if( a<b )
1007     return a;
1008   else
1009     return b;
1010 }
1011
1012 int max( int a, int b )
1013 {
1014   if( a>b )
1015     return a;
1016   else
1017     return b;
1018 }
1019
1020 int ViewerMainLoop(Standard_Integer argc, const char** argv)
1021
1022 { Standard_Boolean pick = argc > 0;
1023
1024 // X11 Event loop
1025
1026 static XEvent report;
1027
1028 XNextEvent( display, &report );
1029 //    cout << "rep type = " << report.type << endl;
1030 //    cout << "rep button = " << report.xbutton.button << endl;
1031
1032 switch ( report.type ) {
1033       case Expose:
1034         {
1035           ProcessExpose();
1036         }
1037         break;
1038       case ConfigureNotify:
1039         {
1040           ProcessConfigure();
1041         }
1042         break;
1043       case KeyPress:
1044         {
1045
1046           KeySym ks_ret ;
1047           char buf_ret[11] ;
1048           int ret_len ;
1049           XComposeStatus status_in_out;
1050
1051           ret_len = XLookupString( ( XKeyEvent *)&report ,
1052             (char *) buf_ret , 10 ,
1053             &ks_ret , &status_in_out ) ;
1054
1055
1056           buf_ret[ret_len] = '\0' ;
1057
1058           if ( ret_len ) {
1059             ProcessKeyPress( buf_ret);
1060           }
1061         }
1062         break;
1063       case ButtonPress:
1064         //  cout << "ButtonPress" << endl;
1065         {
1066           X_ButtonPress = report.xbutton.x;
1067           Y_ButtonPress = report.xbutton.y;
1068
1069           if ( report.xbutton.button == Button1 )
1070             if(  report.xbutton.state & ControlMask )
1071               pick = ProcessButton1Press( argc, argv, pick,
1072               ( report.xbutton.state & ShiftMask) );
1073             else
1074             {
1075               IsDragged = Standard_True;
1076               xx1 = X_ButtonPress;
1077               yy1 = Y_ButtonPress;
1078               DragFirst = Standard_True;
1079             }
1080           else if ( report.xbutton.button == Button3 )
1081             // Start rotation
1082             ProcessButton3Press();
1083         }
1084         break;
1085       case ButtonRelease:
1086         {
1087           //    cout<<"relachement du bouton "<<(report.xbutton.button==3 ? "3": "on s'en fout") <<endl;
1088           //    cout << IsDragged << endl;
1089           //    cout << DragFirst << endl;
1090
1091           if( IsDragged )
1092           {
1093             if( !DragFirst )
1094             {
1095               Aspect_Handle aWindow = VT_GetWindow()->XWindow();
1096               GC gc = XCreateGC( display, aWindow, 0, 0 );
1097               //  XSetFunction( display, gc, GXinvert );
1098               XDrawRectangle( display, aWindow, gc, min( xx1, xx2 ), min( yy1, yy2 ), abs( xx2-xx1 ), abs( yy2-yy1 ) );
1099             }
1100
1101             Handle( AIS_InteractiveContext ) aContext = ViewerTest::GetAISContext();
1102             if( aContext.IsNull() )
1103             {
1104               cout << "The context is null. Please use vinit before createmesh" << endl;
1105               return 0;
1106             }
1107
1108             Standard_Boolean ShiftPressed = ( report.xbutton.state & ShiftMask );
1109             if( report.xbutton.button==1 )
1110               if( DragFirst )
1111                 if( ShiftPressed )
1112                 {
1113                   aContext->ShiftSelect();
1114                   //                   cout << "shift select" << endl;
1115                 }
1116                 else
1117                 {
1118                   aContext->Select();
1119                   //                   cout << "select" << endl;
1120                 }
1121               else
1122                 if( ShiftPressed )
1123                 {
1124                   aContext->ShiftSelect( min( xx1, xx2 ), min( yy1, yy2 ),
1125                     max( xx1, xx2 ), max( yy1, yy2 ),
1126                     ViewerTest::CurrentView());
1127                   //                   cout << "shift select" << endl;
1128                 }
1129                 else
1130                 {
1131                   aContext->Select( min( xx1, xx2 ), min( yy1, yy2 ),
1132                     max( xx1, xx2 ), max( yy1, yy2 ),
1133                     ViewerTest::CurrentView() );
1134                   //                   cout << "select" << endl;
1135                 }
1136             else
1137               ProcessButtonRelease();
1138
1139             IsDragged = Standard_False;
1140           }
1141           else
1142             ProcessButtonRelease();
1143         }
1144         break;
1145       case MotionNotify:
1146         {
1147           //    XEvent dummy;
1148
1149           X_Motion = report.xmotion.x;
1150           Y_Motion = report.xmotion.y;
1151
1152           if( IsDragged )
1153           {
1154             Aspect_Handle aWindow = VT_GetWindow()->XWindow();
1155             GC gc = XCreateGC( display, aWindow, 0, 0 );
1156             XSetFunction( display, gc, GXinvert );
1157
1158             if( !DragFirst )
1159               XDrawRectangle( display, aWindow, gc, min( xx1, xx2 ), min( yy1, yy2 ), abs( xx2-xx1 ), abs( yy2-yy1 ) );
1160
1161             xx2 = X_Motion;
1162             yy2 = Y_Motion;
1163             DragFirst = Standard_False;
1164
1165             //cout << "draw rect : " << xx2 << ", " << yy2 << endl;
1166             XDrawRectangle( display, aWindow, gc, min( xx1, xx2 ), min( yy1, yy2 ), abs( xx2-xx1 ), abs( yy2-yy1 ) );
1167           }
1168           else
1169           {
1170
1171             //cout << "MotionNotify " << X_Motion << "," << Y_Motion << endl;
1172
1173             // remove all the ButtonMotionMask
1174             while( XCheckMaskEvent( display, ButtonMotionMask, &report) ) ;
1175
1176             if ( ZClipIsOn && report.xmotion.state & ShiftMask ) {
1177               if ( Abs(X_Motion - X_ButtonPress) > 2 ) {
1178
1179                 Quantity_Length VDX, VDY;
1180
1181                 ViewerTest::CurrentView()->Size(VDX,VDY);
1182                 Standard_Real VDZ =0 ;
1183                 VDZ = ViewerTest::CurrentView()->ZSize();
1184
1185                 //          printf("%lf,%lf,%lf\n", VDX, VDY, VDZ);
1186                 printf("%f,%f,%f\n", VDX, VDY, VDZ);
1187
1188                 Quantity_Length dx = 0 ;
1189                 dx = ViewerTest::CurrentView()->Convert(X_Motion - X_ButtonPress);
1190
1191                 cout << dx << endl;
1192
1193                 dx = dx / VDX * VDZ;
1194
1195                 cout << dx << endl;
1196
1197                 // Front = Depth + width/2.
1198                 //ViewerTest::CurrentView()->SetZClippingDepth(dx);
1199                 //ViewerTest::CurrentView()->SetZClippingWidth(0.);
1200
1201                 ViewerTest::CurrentView()->Redraw();
1202               }
1203             }
1204
1205             if ( report.xmotion.state & ControlMask ) {
1206               if ( report.xmotion.state & Button1Mask ) {
1207                 ProcessControlButton1Motion();
1208               }
1209               else if ( report.xmotion.state & Button2Mask ) {
1210                 ProcessControlButton2Motion();
1211               }
1212               else if ( report.xmotion.state & Button3Mask ) {
1213                 ProcessControlButton3Motion();
1214               }
1215             }
1216             else {
1217               ProcessMotion();
1218             }
1219           }
1220         }
1221         break;
1222 }
1223
1224
1225 return pick;
1226 }
1227
1228 //==============================================================================
1229 //function : VProcessEvents
1230 //purpose  : call by Tk_CreateFileHandler() to be able to manage the
1231 //       event in the Viewer window
1232 //==============================================================================
1233
1234 static void VProcessEvents(ClientData,int)
1235 {
1236   //cout << "VProcessEvents" << endl;
1237
1238   // test for X Event
1239   while (XPending(display)) {
1240     ViewerMainLoop( 0, NULL);
1241   }
1242 }
1243 #endif
1244
1245 //==============================================================================
1246 //function : OSWindowSetup
1247 //purpose  : Setup for the X11 window to be able to cath the event
1248 //==============================================================================
1249
1250
1251 static void OSWindowSetup()
1252 {
1253 #ifndef WNT
1254   // X11
1255
1256   Window  window   = VT_GetWindow()->XWindow();
1257
1258   Standard_Address theDisplay = GetG3dDevice()->XDisplay();
1259   display = (Display * ) theDisplay;
1260   //  display = (Display *)GetG3dDevice()->XDisplay();
1261
1262   XSynchronize(display, 1);
1263
1264   VT_GetWindow()->Map();
1265
1266   // X11 : For keyboard on SUN
1267   XWMHints wmhints;
1268   wmhints.flags = InputHint;
1269   wmhints.input = 1;
1270
1271   XSetWMHints( display, window, &wmhints);
1272
1273   XSelectInput( display, window,  ExposureMask | KeyPressMask |
1274     ButtonPressMask | ButtonReleaseMask |
1275     StructureNotifyMask |
1276     PointerMotionMask |
1277     Button1MotionMask | Button2MotionMask |
1278     Button3MotionMask
1279     );
1280
1281   XSynchronize(display, 0);
1282
1283 #else
1284   // WNT
1285 #endif
1286
1287 }
1288
1289
1290 //==============================================================================
1291 //function : VFit
1292
1293 //purpose  : Fitall, no DRAW arguments
1294 //Draw arg : No args
1295 //==============================================================================
1296
1297 static int VFit(Draw_Interpretor& , Standard_Integer , const char** )
1298 {
1299   const Handle(V3d_View) aView = ViewerTest::CurrentView();
1300   Handle(NIS_View) V = Handle(NIS_View)::DownCast(aView);
1301   if (V.IsNull() == Standard_False) {
1302     V->FitAll3d();
1303   } else if (aView.IsNull() == Standard_False) {
1304     aView->FitAll();
1305   }
1306   return 0;
1307 }
1308
1309 //==============================================================================
1310 //function : VZFit
1311 //purpose  : ZFitall, no DRAW arguments
1312 //Draw arg : No args
1313 //==============================================================================
1314
1315 static int VZFit(Draw_Interpretor& , Standard_Integer , const char** )
1316 {
1317   Handle(V3d_View) V = ViewerTest::CurrentView();
1318   if ( !V.IsNull() ) V->ZFitAll(); return 0; }
1319
1320
1321 static int VRepaint(Draw_Interpretor& , Standard_Integer , const char** )
1322 {
1323   Handle(V3d_View) V = ViewerTest::CurrentView();
1324   if ( !V.IsNull() ) V->Redraw(); return 0;
1325 }
1326
1327
1328 //==============================================================================
1329 //function : VClear
1330 //purpose  : Remove all the object from the viewer
1331 //Draw arg : No args
1332 //==============================================================================
1333
1334 static int VClear(Draw_Interpretor& , Standard_Integer , const char** )
1335 {
1336   Handle(V3d_View) V = ViewerTest::CurrentView();
1337   if(!V.IsNull())
1338     ViewerTest::Clear();
1339   return 0;
1340 }
1341
1342 //==============================================================================
1343 //function : VPick
1344 //purpose  :
1345 //==============================================================================
1346
1347 static int VPick(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1348 { if (ViewerTest::CurrentView().IsNull() ) return 1;
1349
1350 if ( argc < 4 ) {
1351   di << argv[0] << "Invalid number of arguments" << "\n";
1352   return 1;
1353 }
1354
1355 while (ViewerMainLoop( argc, argv)) {
1356 }
1357
1358 return 0;
1359 }
1360
1361
1362
1363 //==============================================================================
1364 //function : InitViewerTest
1365 //purpose  : initialisation de toutes les variables static de  ViewerTest (dp)
1366 //==============================================================================
1367
1368 void ViewerTest_InitViewerTest (const Handle(AIS_InteractiveContext)& context)
1369 {
1370   Handle(V3d_Viewer) viewer = context->CurrentViewer();
1371   ViewerTest::SetAISContext(context);
1372   viewer->InitActiveViews();
1373   Handle(V3d_View) view = viewer->ActiveView();
1374   if (viewer->MoreActiveViews()) ViewerTest::CurrentView(view);
1375   ViewerTest::ResetEventManager();
1376   Handle(Aspect_GraphicDevice) device = viewer->Device();
1377   Handle(Aspect_Window) window = view->Window();
1378 #ifndef WNT
1379   // X11
1380   VT_GetWindow() = Handle(Xw_Window)::DownCast(window);
1381   GetG3dDevice() = Handle(Graphic3d_GraphicDevice)::DownCast(device);
1382   OSWindowSetup();
1383   static int first = 1;
1384   if ( first ) {
1385 #if TCL_MAJOR_VERSION  < 8
1386     Tk_CreateFileHandler((void*)ConnectionNumber(display),
1387       TK_READABLE, VProcessEvents, (ClientData) 0);
1388 #else
1389     Tk_CreateFileHandler(ConnectionNumber(display),
1390       TK_READABLE, VProcessEvents, (ClientData) 0);
1391 #endif
1392     first = 0;
1393   }
1394 #endif
1395 }
1396
1397
1398 //==============================================================================
1399 //function : VSetBg
1400 //purpose  : Load image as background
1401 //==============================================================================
1402
1403 static int VSetBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1404 {
1405   if (argc < 2 || argc > 3)
1406   {
1407     di << "Usage : " << argv[0] << " imagefile [filltype] : Load image as background" << "\n";
1408     di << "filltype can be one of CENTERED, TILED, STRETCH, NONE" << "\n";
1409     return 1;
1410   }
1411
1412   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
1413   if(AISContext.IsNull())
1414   {
1415     di << "use 'vinit' command before " << argv[0] << "\n";
1416     return 1;
1417   }
1418
1419   Aspect_FillMethod aFillType = Aspect_FM_CENTERED;
1420   if (argc == 3)
1421   {
1422     const char* szType = argv[2];
1423     if      (strcmp(szType, "NONE"    ) == 0) aFillType = Aspect_FM_NONE;
1424     else if (strcmp(szType, "CENTERED") == 0) aFillType = Aspect_FM_CENTERED;
1425     else if (strcmp(szType, "TILED"   ) == 0) aFillType = Aspect_FM_TILED;
1426     else if (strcmp(szType, "STRETCH" ) == 0) aFillType = Aspect_FM_STRETCH;
1427     else
1428     {
1429       di << "Wrong fill type : " << szType << "\n";
1430       di << "Must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
1431       return 1;
1432     }
1433   }
1434
1435   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1436   V3dView->SetBackgroundImage(argv[1], aFillType, Standard_True);
1437
1438   return 0;
1439 }
1440
1441 //==============================================================================
1442 //function : VSetBgMode
1443 //purpose  : Change background image fill type
1444 //==============================================================================
1445
1446 static int VSetBgMode(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1447 {
1448   if (argc != 2)
1449   {
1450     di << "Usage : " << argv[0] << " filltype : Change background image mode" << "\n";
1451     di << "filltype must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
1452     return 1;
1453   }
1454
1455   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
1456   if(AISContext.IsNull())
1457   {
1458     di << "use 'vinit' command before " << argv[0] << "\n";
1459     return 1;
1460   }
1461
1462   Aspect_FillMethod aFillType;
1463   if (argc == 2)
1464   {
1465     const char* szType = argv[1];
1466     if      (strcmp(szType, "NONE"    ) == 0) aFillType = Aspect_FM_NONE;
1467     else if (strcmp(szType, "CENTERED") == 0) aFillType = Aspect_FM_CENTERED;
1468     else if (strcmp(szType, "TILED"   ) == 0) aFillType = Aspect_FM_TILED;
1469     else if (strcmp(szType, "STRETCH" ) == 0) aFillType = Aspect_FM_STRETCH;
1470     else
1471     {
1472       di << "Wrong fill type : " << szType << "\n";
1473       di << "Must be one of CENTERED, TILED, STRETCH, NONE" << "\n";
1474       return 1;
1475     }
1476   }
1477
1478   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1479   V3dView->SetBgImageStyle(aFillType, Standard_True);
1480
1481   return 0;
1482 }
1483
1484 //==============================================================================
1485 //function : VSetGradientBg
1486 //purpose  : Mount gradient background
1487 //==============================================================================
1488 static int VSetGradientBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1489 {
1490   if (argc != 8 )
1491   {
1492     di << "Usage : " << argv[0] << " R1 G1 B1 R2 G2 B2 Type : Mount gradient background" << "\n";
1493     di << "R1,G1,B1,R2,G2,B2 = [0..255]" << "\n";
1494     di << "Type must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
1495     di << "                    5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
1496     return 1;
1497   }
1498
1499   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
1500   if(AISContext.IsNull())
1501   {
1502     di << "use 'vinit' command before " << argv[0] << "\n";
1503     return 1;
1504   }
1505   if (argc == 8)
1506   {
1507
1508     Standard_Real R1 = atof(argv[1])/255.;
1509     Standard_Real G1 = atof(argv[2])/255.;
1510     Standard_Real B1 = atof(argv[3])/255.;
1511     Quantity_Color aColor1(R1,G1,B1,Quantity_TOC_RGB);
1512
1513     Standard_Real R2 = atof(argv[4])/255.;
1514     Standard_Real G2 = atof(argv[5])/255.;
1515     Standard_Real B2 = atof(argv[6])/255.;
1516
1517     Quantity_Color aColor2(R2,G2,B2,Quantity_TOC_RGB);
1518     int aType = atoi(argv[7]);
1519     if( aType < 0 || aType > 8 )
1520     {
1521       di << "Wrong fill type " << "\n";
1522       di << "Must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
1523       di << "               5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
1524       return 1;
1525     }
1526
1527     Aspect_GradientFillMethod aMethod = Aspect_GradientFillMethod(aType);
1528
1529     Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1530     V3dView->SetBgGradientColors( aColor1, aColor2, aMethod, 1);
1531   }
1532
1533   return 0;
1534 }
1535
1536 //==============================================================================
1537 //function : VSetGradientBgMode
1538 //purpose  : Change gradient background fill style
1539 //==============================================================================
1540 static int VSetGradientBgMode(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1541 {
1542   if (argc != 2 )
1543   {
1544     di << "Usage : " << argv[0] << " Type : Change gradient background fill type" << "\n";
1545     di << "Type must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
1546     di << "                    5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
1547     return 1;
1548   }
1549
1550   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
1551   if(AISContext.IsNull())
1552   {
1553     di << "use 'vinit' command before " << argv[0] << "\n";
1554     return 1;
1555   }
1556   if (argc == 2)
1557   {
1558     int aType = atoi(argv[1]);
1559     if( aType < 0 || aType > 8 )
1560     {
1561       di << "Wrong fill type " << "\n";
1562       di << "Must be one of 0 = NONE, 1 = HOR, 2 = VER, 3 = DIAG1, 4 = DIAG2" << "\n";
1563       di << "               5 = CORNER1, 6 = CORNER2, 7 = CORNER3, 8 = CORNER4" << "\n";
1564       return 1;
1565     }
1566
1567     Aspect_GradientFillMethod aMethod = Aspect_GradientFillMethod(aType);
1568
1569     Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1570     V3dView->SetBgGradientStyle( aMethod, 1 );
1571   }
1572
1573   return 0;
1574 }
1575
1576 //==============================================================================
1577 //function : VSetColorBg
1578 //purpose  : Set color background
1579 //==============================================================================
1580 static int VSetColorBg(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1581 {
1582   if (argc != 4 )
1583   {
1584     di << "Usage : " << argv[0] << " R G B : Set color background" << "\n";
1585     di << "R,G,B = [0..255]" << "\n";
1586     return 1;
1587   }
1588
1589   Handle(AIS_InteractiveContext) AISContext = ViewerTest::GetAISContext();
1590   if(AISContext.IsNull())
1591   {
1592     di << "use 'vinit' command before " << argv[0] << "\n";
1593     return 1;
1594   }
1595   if (argc == 4)
1596   {
1597
1598     Standard_Real R = atof(argv[1])/255.;
1599     Standard_Real G = atof(argv[2])/255.;
1600     Standard_Real B = atof(argv[3])/255.;
1601     Quantity_Color aColor(R,G,B,Quantity_TOC_RGB);
1602
1603     Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1604     V3dView->SetBackgroundColor( aColor );
1605     V3dView->Update();
1606   }
1607
1608   return 0;
1609 }
1610
1611 //==============================================================================
1612 //function : VScale
1613 //purpose  : View Scaling
1614 //==============================================================================
1615
1616 static int VScale(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1617 {
1618   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1619   if ( V3dView.IsNull() ) return 1;
1620
1621   if ( argc != 4 ) {
1622     di << argv[0] << "Invalid number of arguments" << "\n";
1623     return 1;
1624   }
1625   V3dView->SetAxialScale( atof(argv[1]),  atof(argv[2]),  atof(argv[3]) );
1626   return 0;
1627 }
1628 //==============================================================================
1629 //function : VTestZBuffTrihedron
1630 //purpose  : Displays a V3d_ZBUFFER'ed trihedron at the bottom left corner of the view
1631 //==============================================================================
1632
1633 static int VTestZBuffTrihedron(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1634 {
1635   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1636   if ( V3dView.IsNull() ) return 1;
1637
1638   // Set up default trihedron parameters
1639   V3dView->ZBufferTriedronSetup();
1640   V3dView->TriedronDisplay( Aspect_TOTP_LEFT_LOWER, Quantity_NOC_WHITE, 0.1, V3d_ZBUFFER );
1641   V3dView->ZFitAll();
1642   return 0;
1643 }
1644
1645 //==============================================================================
1646 //function : VRotate
1647 //purpose  : Camera Rotating
1648 //==============================================================================
1649
1650 static int VRotate( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
1651   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1652   if ( V3dView.IsNull() ) {
1653     return 1;
1654   }
1655
1656   if ( argc == 4 ) {
1657     V3dView->Rotate( atof(argv[1]), atof(argv[2]), atof(argv[3]) );
1658     return 0;
1659   } else if ( argc == 7 ) {
1660     V3dView->Rotate( atof(argv[1]), atof(argv[2]), atof(argv[3]), atof(argv[4]), atof(argv[5]), atof(argv[6]) );
1661     return 0;
1662   } else {
1663     di << argv[0] << " Invalid number of arguments" << "\n";
1664     return 1;
1665   }
1666 }
1667
1668 //==============================================================================
1669 //function : VZoom
1670 //purpose  : View zoom in / out (relative to current zoom)
1671 //==============================================================================
1672
1673 static int VZoom( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
1674   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1675   if ( V3dView.IsNull() ) {
1676     return 1;
1677   }
1678
1679   if ( argc == 2 ) {
1680     Standard_Real coef = atof(argv[1]);
1681     if ( coef <= 0.0 ) {
1682       di << argv[1] << "Invalid value" << "\n";
1683       return 1;
1684     }
1685     V3dView->SetZoom( atof(argv[1]) );
1686     return 0;
1687   } else {
1688     di << argv[0] << " Invalid number of arguments" << "\n";
1689     return 1;
1690   }
1691 }
1692
1693 //==============================================================================
1694 //function : VPan
1695 //purpose  : View panning (in pixels)
1696 //==============================================================================
1697
1698 static int VPan( Draw_Interpretor& di, Standard_Integer argc, const char** argv ) {
1699   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1700   if ( V3dView.IsNull() ) return 1;
1701
1702   if ( argc == 3 ) {
1703     V3dView->Pan( atoi(argv[1]), atoi(argv[2]) );
1704     return 0;
1705   } else {
1706     di << argv[0] << " Invalid number of arguments" << "\n";
1707     return 1;
1708   }
1709 }
1710
1711
1712 //==============================================================================
1713 //function : VExport
1714 //purpose  : Export the view to a vector graphic format (PS, EMF, PDF)
1715 //==============================================================================
1716
1717 static int VExport(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1718 {
1719   Handle(V3d_View) V3dView = ViewerTest::CurrentView();
1720   if (V3dView.IsNull())
1721     return 1;
1722
1723   if (argc == 1)
1724   {
1725     std::cout << "Usage: " << argv[0] << " Filename [Format]\n";
1726     return 1;
1727   }
1728
1729   Graphic3d_ExportFormat anExpFormat = Graphic3d_EF_PDF;
1730   TCollection_AsciiString aFormatStr;
1731
1732   TCollection_AsciiString aFileName (argv[1]);
1733   Standard_Integer aLen = aFileName.Length();
1734
1735   if (argc > 2)
1736   {
1737     aFormatStr = TCollection_AsciiString (argv[2]);
1738   }
1739   else if (aLen >= 4)
1740   {
1741     if (aFileName.Value (aLen - 2) == '.')
1742     {
1743       aFormatStr = aFileName.SubString (aLen - 1, aLen);
1744     }
1745     else if (aFileName.Value (aLen - 3) == '.')
1746     {
1747       aFormatStr = aFileName.SubString (aLen - 2, aLen);
1748     }
1749     else
1750     {
1751       std::cout << "Export format couln't be detected from filename '" << argv[1] << "'\n";
1752       return 1;
1753     }
1754   }
1755   else
1756   {
1757     std::cout << "Export format couln't be detected from filename '" << argv[1] << "'\n";
1758     return 1;
1759   }
1760
1761   aFormatStr.UpperCase();
1762   if (aFormatStr == "PS")
1763     anExpFormat = Graphic3d_EF_PostScript;
1764   else if (aFormatStr == "EPS")
1765     anExpFormat = Graphic3d_EF_EnhPostScript;
1766   else if (aFormatStr == "TEX")
1767     anExpFormat = Graphic3d_EF_TEX;
1768   else if (aFormatStr == "PDF")
1769     anExpFormat = Graphic3d_EF_PDF;
1770   else if (aFormatStr == "SVG")
1771     anExpFormat = Graphic3d_EF_SVG;
1772   else if (aFormatStr == "PGF")
1773     anExpFormat = Graphic3d_EF_PGF;
1774   else if (aFormatStr == "EMF")
1775     anExpFormat = Graphic3d_EF_EMF;
1776   else
1777   {
1778     std::cout << "Invalid export format '" << aFormatStr << "'\n";
1779     return 1;
1780   }
1781
1782   if (!V3dView->View()->Export (argv[1], anExpFormat))
1783   {
1784     std::cout << "Export failed!\n";
1785     return 1;
1786   }
1787   return 0;
1788 }
1789
1790 //==============================================================================
1791 //function : VColorScale
1792 //purpose  : representation color scale
1793 //==============================================================================
1794 #include <V3d_ColorScale.hxx>
1795
1796 static int VColorScale (Draw_Interpretor& di, Standard_Integer argc, const char ** argv)
1797 {
1798   if ( argc != 1 && argc != 4 && argc != 5 && argc != 6 && argc != 8 )
1799   {
1800     di << "Usage : " << argv[0] << " [RangeMin = 0 RangeMax = 100 Intervals = 10 HeightFont = 16 Position = Right X = 0 Y = 0]  " << "\n";
1801     return 1;
1802   }
1803
1804   Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
1805   if(aContext.IsNull()) {
1806     di << argv[0] << " ERROR : use 'vinit' command before " << "\n";
1807     return -1;
1808   }
1809
1810   Standard_Real minRange = 0. , maxRange = 100. ;
1811
1812   Standard_Integer numIntervals = 10 ;
1813   Standard_Real textHeight = 16. ;
1814   Aspect_TypeOfColorScalePosition position = Aspect_TOCSP_RIGHT;
1815   Standard_Real X = 0., Y = 0. ;
1816
1817   if ( argc < 9 )
1818   {
1819      if( argc > 3 )
1820      {
1821        minRange = atof( argv[1] );
1822        maxRange = atof( argv[2] );
1823        numIntervals = atoi( argv[3] );
1824      }
1825      if ( argc > 4 )
1826        textHeight = atof( argv[4] );
1827      if ( argc > 5 )
1828        position = (Aspect_TypeOfColorScalePosition)atoi( argv[5] );
1829      if ( argc > 7 )
1830      {
1831        X = atof( argv[6] );
1832        Y = atof( argv[7] );
1833      }
1834   }
1835   Handle(V3d_View) curView = ViewerTest::CurrentView( );
1836   if ( curView.IsNull( ) )
1837     return 1;
1838   Handle(Aspect_ColorScale) aCSV = curView->ColorScale( );
1839   Handle(V3d_ColorScale) aCS = ( Handle( V3d_ColorScale )::DownCast( aCSV ) );
1840   if( ! aCS.IsNull( ) )
1841   {
1842     aCS->SetPosition( X , Y );
1843     aCS->SetHeight( 0.95) ;
1844     aCS->SetTextHeight( textHeight );
1845     aCS->SetRange( minRange , maxRange );
1846     aCS->SetNumberOfIntervals( numIntervals );
1847     aCS->SetLabelPosition( position );
1848     if( !curView->ColorScaleIsDisplayed() )
1849       curView->ColorScaleDisplay( );
1850   }
1851   return 0;
1852 }
1853
1854 //==============================================================================
1855 //function : VGraduatedTrihedron
1856 //purpose  : Displays a graduated trihedron
1857 //==============================================================================
1858
1859 static void AddMultibyteString (TCollection_ExtendedString &name, const char *arg)
1860 {
1861   const char *str = arg;
1862   while (*str)
1863   {
1864     unsigned short c1 = *str++;
1865     unsigned short c2 = *str++;
1866     if (!c1 || !c2) break;
1867     name += (Standard_ExtCharacter)((c1 << 8) | c2);
1868   }
1869 }
1870
1871 static int VGraduatedTrihedron(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1872 {
1873   // Check arguments
1874   if (argc != 2 && argc < 5)
1875   {
1876     di<<"Error: "<<argv[0]<<" - invalid number of arguments\n";
1877     di<<"Usage: type help "<<argv[0]<<"\n";
1878     return 1; //TCL_ERROR
1879   }
1880
1881   Handle(V3d_View) aV3dView = ViewerTest::CurrentView();
1882
1883   // Create 3D view if it doesn't exist
1884   if ( aV3dView.IsNull() )
1885   {
1886     ViewerTest::ViewerInit(); 
1887     aV3dView = ViewerTest::CurrentView();
1888     if( aV3dView.IsNull() )
1889     {
1890       di << "Error: Cannot create a 3D view\n";
1891       return 1; //TCL_ERROR
1892     }
1893   }
1894
1895   // Erase (==0) or display (!=0)
1896   const int display = atoi(argv[1]);
1897
1898   if (display)
1899   {
1900     // Text font
1901     TCollection_AsciiString font;
1902     if (argc < 6)
1903       font.AssignCat("Courier");
1904     else
1905       font.AssignCat(argv[5]);
1906
1907     // Text is multibyte
1908     const Standard_Boolean isMultibyte = (argc < 7)? Standard_False : (atoi(argv[6]) != 0);
1909
1910     // Set axis names
1911     TCollection_ExtendedString xname, yname, zname;
1912     if (argc >= 5)
1913     {
1914       if (isMultibyte)
1915       {
1916         AddMultibyteString(xname, argv[2]);
1917         AddMultibyteString(yname, argv[3]);
1918         AddMultibyteString(zname, argv[4]);
1919       }
1920       else
1921       {
1922         xname += argv[2];
1923         yname += argv[3];
1924         zname += argv[4];
1925       }
1926     }
1927     else
1928     {
1929       xname += "X (mm)";
1930       yname += "Y (mm)";
1931       zname += "Z (mm)";
1932     }
1933
1934     aV3dView->GraduatedTrihedronDisplay(xname, yname, zname,
1935                                         Standard_True/*xdrawname*/, Standard_True/*ydrawname*/, Standard_True/*zdrawname*/,
1936                                         Standard_True/*xdrawvalues*/, Standard_True/*ydrawvalues*/, Standard_True/*zdrawvalues*/,
1937                                         Standard_True/*drawgrid*/,
1938                                         Standard_True/*drawaxes*/,
1939                                         5/*nbx*/, 5/*nby*/, 5/*nbz*/,
1940                                         10/*xoffset*/, 10/*yoffset*/, 10/*zoffset*/,
1941                                         30/*xaxisoffset*/, 30/*yaxisoffset*/, 30/*zaxisoffset*/,
1942                                         Standard_True/*xdrawtickmarks*/, Standard_True/*ydrawtickmarks*/, Standard_True/*zdrawtickmarks*/,
1943                                         10/*xtickmarklength*/, 10/*ytickmarklength*/, 10/*ztickmarklength*/,
1944                                         Quantity_NOC_WHITE/*gridcolor*/,
1945                                         Quantity_NOC_RED/*xnamecolor*/,Quantity_NOC_GREEN/*ynamecolor*/,Quantity_NOC_BLUE1/*znamecolor*/,
1946                                         Quantity_NOC_RED/*xcolor*/,Quantity_NOC_GREEN/*ycolor*/,Quantity_NOC_BLUE1/*zcolor*/,font);
1947   }
1948   else
1949     aV3dView->GraduatedTrihedronErase();
1950
1951   ViewerTest::GetAISContext()->UpdateCurrentViewer();
1952   aV3dView->Redraw();
1953
1954   return 0;
1955 }
1956
1957 //==============================================================================
1958 //function : VPrintView
1959 //purpose  : Test printing algorithm, print the view to image file with given
1960 //           width and height. Printing implemented only for WNT.
1961 //==============================================================================
1962 static int VPrintView (Draw_Interpretor& di, Standard_Integer argc, 
1963                        const char** argv)
1964 {
1965 #ifndef WNT
1966   di << "Printing implemented only for wnt!\n";
1967   return 1;
1968 #else
1969
1970   Handle(AIS_InteractiveContext) aContextAIS = NULL;
1971   Handle(V3d_View) aView = NULL;
1972   aContextAIS = ViewerTest::GetAISContext();
1973   if (!aContextAIS.IsNull())
1974   {
1975     const Handle(V3d_Viewer)& Vwr = aContextAIS->CurrentViewer();
1976     Vwr->InitActiveViews();
1977     if(Vwr->MoreActiveViews())
1978       aView = Vwr->ActiveView();
1979   }
1980
1981   // check for errors
1982   if (aView.IsNull())
1983   {
1984     di << "Call vinit before!\n";
1985     return 1;
1986   }
1987   else if (argc < 4)
1988   {
1989     di << "Use: " << argv[0];
1990     di << " width height filename [print algo=0]\n";
1991     di << "width, height of the intermediate buffer for operation\n";
1992     di << "algo : {0|1}\n";
1993     di << "        0 - stretch algorithm\n";
1994     di << "        1 - tile algorithm\n";
1995     di << "test printing algorithms into an intermediate buffer\n";
1996     di << "with saving output to an image file\n";
1997     return 1;
1998   }
1999
2000   // get the input params
2001   Standard_Integer aWidth  = atoi (argv[1]);
2002   Standard_Integer aHeight = atoi (argv[2]);
2003   Standard_Integer aMode   = 0;
2004   TCollection_AsciiString aFileName = TCollection_AsciiString (argv[3]);
2005   if (argc==5)
2006     aMode = atoi (argv[4]);
2007
2008   // check the input parameters
2009   if (aWidth <= 0 || aHeight <= 0)
2010   {
2011     di << "Width and height must be positive values!\n";
2012     return 1;
2013   }
2014   if (aMode != 0 && aMode != 1)
2015     aMode = 0;
2016
2017   Image_CRawBufferData aRawBuffer;
2018   HDC anDC = CreateCompatibleDC(0);
2019
2020   // define compatible bitmap
2021   BITMAPINFO aBitmapData;
2022   memset (&aBitmapData, 0, sizeof (BITMAPINFOHEADER));
2023   aBitmapData.bmiHeader.biSize          = sizeof (BITMAPINFOHEADER);
2024   aBitmapData.bmiHeader.biWidth         = aWidth ;
2025   aBitmapData.bmiHeader.biHeight        = aHeight;
2026   aBitmapData.bmiHeader.biPlanes        = 1;
2027   aBitmapData.bmiHeader.biBitCount      = 24;
2028   aBitmapData.bmiHeader.biXPelsPerMeter = 0;
2029   aBitmapData.bmiHeader.biYPelsPerMeter = 0;
2030   aBitmapData.bmiHeader.biClrUsed       = 0;
2031   aBitmapData.bmiHeader.biClrImportant  = 0;
2032   aBitmapData.bmiHeader.biCompression   = BI_RGB;
2033   aBitmapData.bmiHeader.biSizeImage     = 0;
2034
2035   // Create Device Independent Bitmap
2036   HBITMAP aMemoryBitmap = CreateDIBSection (anDC, &aBitmapData, DIB_RGB_COLORS,
2037                                             &aRawBuffer.dataPtr, NULL, 0);
2038   HGDIOBJ anOldBitmap   = SelectObject(anDC, aMemoryBitmap);
2039
2040   Standard_Boolean isSaved = Standard_False, isPrinted = Standard_False;
2041   if (aRawBuffer.dataPtr != 0)
2042   {    
2043     if (aMode == 0)
2044       isPrinted = aView->Print(anDC,1,1,0,Aspect_PA_STRETCH);
2045     else
2046       isPrinted = aView->Print(anDC,1,1,0,Aspect_PA_TILE);
2047
2048     // succesfully printed into an intermediate buffer
2049     if (isPrinted)
2050     {
2051       Handle(Image_PixMap) anImageBitmap =
2052                          new Image_PixMap ((Standard_PByte)aRawBuffer.dataPtr,
2053                                            aWidth, aHeight,
2054                                            aWidth*3 + aWidth%4, 24, 0);
2055       isSaved = anImageBitmap->Dump(aFileName.ToCString());
2056     }
2057     else
2058     {
2059       di << "Print operation failed due to printing errors or\n";
2060       di << "insufficient memory available\n";
2061       di << "Please, try to use smaller dimensions for this test\n";
2062       di << "command, as it allocates intermediate buffer for storing\n";
2063       di << "the result\n";
2064     }
2065   }
2066   else
2067   {
2068     di << "Can't allocate memory for intermediate buffer\n";
2069     di << "Please use smaller dimensions\n";
2070   }
2071
2072   if (aMemoryBitmap)
2073   {
2074     SelectObject (anDC, anOldBitmap);
2075     DeleteObject (aMemoryBitmap);
2076     DeleteDC(anDC);
2077   }
2078
2079   if (!isSaved)
2080   {
2081     di << "Save to file operation failed. This operation may fail\n";
2082     di << "if you don't have enough available memory, then you can\n";
2083     di << "use smaller dimensions for the output file\n";
2084     return 1;
2085   }
2086
2087   return 0;
2088
2089 #endif
2090 }
2091
2092 //==============================================================================
2093 //function : VZLayer
2094 //purpose  : Test z layer operations for v3d viewer
2095 //==============================================================================
2096 static int VZLayer (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2097 {
2098   Handle(AIS_InteractiveContext) aContextAIS = ViewerTest::GetAISContext ();
2099   if (aContextAIS.IsNull())
2100   {
2101     di << "Call vinit before!\n";
2102     return 1;
2103   }
2104   else if (argc < 2)
2105   {
2106     di << "Use: vzlayer " << argv[0];
2107     di << " add/del/get [id]\n";
2108     di << " add - add new z layer to viewer and print its id\n";
2109     di << " del - del z layer by its id\n";
2110     di << " get - print sequence of z layers in increasing order of their overlay level\n";
2111     di << "id - the layer identificator value defined when removing z layer\n";
2112     return 1;
2113   }
2114
2115   const Handle(V3d_Viewer)& aViewer = aContextAIS->CurrentViewer();
2116   if (aViewer.IsNull())
2117   {
2118     di << "No active viewer!\n";
2119     return 1;
2120   }
2121
2122   // perform operation
2123   TCollection_AsciiString anOp = TCollection_AsciiString (argv[1]);
2124   if (anOp == "add")
2125   {
2126     Standard_Integer aNewId;
2127     if (!aViewer->AddZLayer (aNewId))
2128     {
2129       di << "Impossible to add new z layer!\n";
2130       return 1;
2131     }
2132
2133     di << "New z layer added with index: " << aNewId << "\n";
2134   }
2135   else if (anOp == "del")
2136   {
2137     if (argc < 3)
2138     {
2139       di << "Please also provide as argument id of z layer to remove\n";
2140       return 1;
2141     }
2142
2143     Standard_Integer aDelId = atoi (argv[2]);
2144     if (!aViewer->RemoveZLayer (aDelId))
2145     {
2146       di << "Impossible to remove the z layer or invalid id!\n";
2147       return 1;
2148     }
2149
2150     di << "Z layer " << aDelId << " has been removed\n";
2151   }
2152   else if (anOp == "get")
2153   {
2154     TColStd_SequenceOfInteger anIds;
2155     aViewer->GetAllZLayers (anIds);
2156     for (Standard_Integer aSeqIdx = 1; aSeqIdx <= anIds.Length(); aSeqIdx++)
2157     {
2158       di << anIds.Value (aSeqIdx) << " ";
2159     }
2160
2161     di << "\n";
2162   }
2163   else
2164   {
2165     di << "Invalid operation, please use { add / del / get }\n";
2166     return 1;
2167   }
2168
2169   return 0;
2170 }
2171
2172 DEFINE_STANDARD_HANDLE(V3d_TextItem, Visual3d_LayerItem)
2173
2174 // this class provides a presentation of text item in v3d view under-/overlayer
2175 class V3d_TextItem : public Visual3d_LayerItem
2176 {
2177 public:
2178
2179   // CASCADE RTTI
2180   DEFINE_STANDARD_RTTI(V3d_TextItem)
2181
2182   // constructor
2183   Standard_EXPORT V3d_TextItem(const TCollection_AsciiString& theText,
2184                                const Standard_Real theX1,
2185                                const Standard_Real theY1,
2186                                const Standard_Real theHeight,
2187                                const TCollection_AsciiString& theFontName,
2188                                const Quantity_Color& theColor,
2189                                const Quantity_Color& theSubtitleColor,
2190                                const Aspect_TypeOfDisplayText& theTypeOfDisplay,
2191                                const Handle(Visual3d_Layer)& theLayer);
2192
2193   // redraw method
2194   Standard_EXPORT void RedrawLayerPrs();
2195
2196 private:
2197
2198   Standard_Real            myX1;
2199   Standard_Real            myY1;
2200   Standard_Real            myHeight;
2201   TCollection_AsciiString  myText;
2202   TCollection_AsciiString  myFontName;
2203   Quantity_Color           myColor;
2204   Quantity_Color           mySubtitleColor;
2205   Aspect_TypeOfDisplayText myType;
2206   Handle(Visual3d_Layer)   myLayer;
2207
2208 };
2209
2210 IMPLEMENT_STANDARD_HANDLE(V3d_TextItem, Visual3d_LayerItem)
2211 IMPLEMENT_STANDARD_RTTIEXT(V3d_TextItem, Visual3d_LayerItem)
2212
2213 // create and add to display the text item
2214 V3d_TextItem::V3d_TextItem (const TCollection_AsciiString& theText,
2215                             const Standard_Real theX1,
2216                             const Standard_Real theY1,
2217                             const Standard_Real theHeight,
2218                             const TCollection_AsciiString& theFontName,
2219                             const Quantity_Color& theColor,
2220                             const Quantity_Color& theSubtitleColor,
2221                             const Aspect_TypeOfDisplayText& theTypeOfDisplay,
2222                             const Handle(Visual3d_Layer)& theLayer)
2223  : myX1 (theX1), myY1 (theY1),
2224    myText (theText),
2225    myHeight (theHeight),
2226    myLayer (theLayer),
2227    myColor (theColor),
2228    mySubtitleColor (theSubtitleColor),
2229    myType (theTypeOfDisplay),
2230    myFontName (theFontName)
2231 {
2232   if (!myLayer.IsNull ())
2233     myLayer->AddLayerItem (this);
2234 }
2235
2236 // render item
2237 void V3d_TextItem::RedrawLayerPrs ()
2238
2239   if (myLayer.IsNull ())
2240     return;
2241
2242   myLayer->SetColor (myColor);
2243   myLayer->SetTextAttributes (myFontName.ToCString (), myType, mySubtitleColor);
2244   myLayer->DrawText (myText.ToCString (), myX1, myY1, myHeight);
2245 }
2246
2247 DEFINE_STANDARD_HANDLE(V3d_LineItem, Visual3d_LayerItem)
2248
2249 // The Visual3d_LayerItem line item for "vlayerline" command
2250 // it provides a presentation of line with user-defined 
2251 // linewidth, linetype and transparency.
2252 class V3d_LineItem : public Visual3d_LayerItem 
2253 {
2254 public:
2255   // CASCADE RTTI
2256   DEFINE_STANDARD_RTTI(V3d_LineItem) 
2257   
2258   // constructor
2259   Standard_EXPORT V3d_LineItem(Standard_Real X1, Standard_Real Y1,
2260                                Standard_Real X2, Standard_Real Y2,
2261                                V3d_LayerMgrPointer theLayerMgr,
2262                                Aspect_TypeOfLine theType = Aspect_TOL_SOLID,
2263                                Standard_Real theWidth    = 0.5,
2264                                Standard_Real theTransp   = 1.0);
2265
2266   // redraw method
2267   Standard_EXPORT   void RedrawLayerPrs();
2268
2269 private:
2270
2271   Standard_Real       myX1, myY1, myX2, myY2;
2272   Standard_Real       myWidth;
2273   Standard_Real       myTransparency;
2274   Aspect_TypeOfLine   myType;
2275   V3d_LayerMgrPointer myLayerMgr;
2276 };
2277
2278 IMPLEMENT_STANDARD_HANDLE(V3d_LineItem, Visual3d_LayerItem)
2279 IMPLEMENT_STANDARD_RTTIEXT(V3d_LineItem, Visual3d_LayerItem)
2280
2281 // default constructor for line item
2282 V3d_LineItem::V3d_LineItem(Standard_Real X1, Standard_Real Y1, 
2283                            Standard_Real X2, Standard_Real Y2,
2284                            V3d_LayerMgrPointer theLayerMgr,
2285                            Aspect_TypeOfLine theType,
2286                            Standard_Real theWidth,
2287                            Standard_Real theTransp) :
2288   myX1(X1), myY1(Y1), myX2(X2), myY2(Y2), myLayerMgr(theLayerMgr),
2289   myType(theType), myWidth(theWidth), myTransparency(theTransp)
2290 {
2291   if (myLayerMgr && myLayerMgr->Overlay())
2292     myLayerMgr->Overlay()->AddLayerItem (this);
2293 }
2294
2295 // render line
2296 void V3d_LineItem::RedrawLayerPrs ()
2297 {
2298   Handle (Visual3d_Layer) aOverlay;
2299  
2300   if (myLayerMgr)
2301     aOverlay = myLayerMgr->Overlay();
2302
2303   if (!aOverlay.IsNull())
2304   {
2305     Quantity_Color aColor(1.0, 0, 0, Quantity_TOC_RGB);
2306     aOverlay->SetColor(aColor);
2307     aOverlay->SetTransparency((Standard_ShortReal)myTransparency);
2308     aOverlay->SetLineAttributes((Aspect_TypeOfLine)myType, myWidth);
2309     aOverlay->BeginPolyline();
2310     aOverlay->AddVertex(myX1, myY1);
2311     aOverlay->AddVertex(myX2, myY2);
2312     aOverlay->ClosePrimitive();
2313   }
2314 }
2315
2316 //=============================================================================
2317 //function : VLayerLine
2318 //purpose  : Draws line in the v3d view layer with given attributes: linetype,
2319 //         : linewidth, transparency coefficient
2320 //============================================================================
2321 static int VLayerLine(Draw_Interpretor& di, Standard_Integer argc, const char** argv)
2322 {
2323   // get the active view
2324   Handle(V3d_View) aView = ViewerTest::CurrentView();
2325   if (aView.IsNull())
2326   {
2327     di << "Call vinit before!\n";
2328     return 1;
2329   }
2330   else if (argc < 5)
2331   {
2332     di << "Use: " << argv[0];
2333     di << " x1 y1 x2 y2 [linewidth = 0.5] [linetype = 0] [transparency = 1]\n";
2334     di << " linetype : { 0 | 1 | 2 | 3 } \n";
2335     di << "              0 - solid  \n";
2336     di << "              1 - dashed \n";
2337     di << "              2 - dot    \n";
2338     di << "              3 - dashdot\n";
2339     di << " transparency : { 0.0 - 1.0 } \n";
2340     di << "                  0.0 - transparent\n";
2341     di << "                  1.0 - visible    \n";
2342     return 1;
2343   }
2344
2345   // get the input params
2346   Standard_Real X1 = atof(argv[1]);
2347   Standard_Real Y1 = atof(argv[2]);
2348   Standard_Real X2 = atof(argv[3]);
2349   Standard_Real Y2 = atof(argv[4]);
2350
2351   Standard_Real    aWidth = 0.5;
2352   Standard_Integer aType  = 0;
2353   Standard_Real    aTransparency = 1.0;
2354
2355   // has width
2356   if (argc > 5)
2357     aWidth = atof(argv[5]);
2358
2359   // has type
2360   if (argc > 6)
2361      aType = (Standard_Integer) atoi(argv[6]);
2362
2363   // has transparency
2364   if (argc > 7)
2365   {
2366     aTransparency = atof(argv[7]);
2367     if (aTransparency < 0 || aTransparency > 1.0) 
2368       aTransparency = 1.0;
2369   }
2370
2371   // select appropriate line type
2372   Aspect_TypeOfLine aLineType;
2373   switch (aType)
2374   {
2375     case 1:
2376       aLineType = Aspect_TOL_DASH;
2377     break;
2378
2379     case 2:
2380       aLineType = Aspect_TOL_DOT;
2381     break;
2382
2383     case 3:
2384       aLineType = Aspect_TOL_DOTDASH;
2385     break;
2386
2387     default:
2388       aLineType = Aspect_TOL_SOLID;
2389   }
2390
2391   // replace layer manager
2392   Handle(V3d_LayerMgr) aMgr = new V3d_LayerMgr(aView);
2393   aView->SetLayerMgr(aMgr);
2394
2395   // add line item
2396   Handle (V3d_LineItem) anItem = new V3d_LineItem(X1, Y1, X2, Y2, 
2397                                                   aMgr.operator->(),
2398                                                   aLineType, aWidth, 
2399                                                   aTransparency);
2400
2401   // update view
2402   aView->MustBeResized();
2403   aView->Redraw();
2404
2405   return 0;
2406 }
2407
2408 //=======================================================================
2409 //function : VOverlayText
2410 //purpose  : Test text displaying in view overlay
2411 //=======================================================================
2412 static int VOverlayText (Draw_Interpretor& di, Standard_Integer argc, const char**argv)
2413 {
2414   // get the active view
2415   Handle(V3d_View) aView = ViewerTest::CurrentView();
2416   if (aView.IsNull())
2417   {
2418     di << "No active view. Please call vinit.\n";
2419     return 1;
2420   }
2421   else if (argc < 4 || argc > 13)
2422   {
2423     di << "Use: " << argv[0];
2424     di << " text x y [height] [font_name] [text_color: R G B] [displayType]\n";
2425     di << "[background_color: R G B]\n";
2426     di << "  height - pixel height of the text (default=10.0)\n";
2427     di << "  font_name - name of font (default=courier)\n";
2428     di << "  text_color - R G B values of text color (default=255.0 255.0 255.0)\n";
2429     di << "  display_type = {normal/subtitle/decal/blend}, (default=normal)\n";
2430     di << "  background_color- R G B values used for subtitle and decal text\n";
2431     di << "(default=255.0 255.0 255.0)\n";
2432     return 1;
2433   }
2434   
2435   TCollection_AsciiString aText (argv[1]);
2436   Standard_Real aPosX = atof(argv[2]);
2437   Standard_Real aPosY = atof(argv[3]);
2438   Standard_Real aHeight = (argc >= 5) ? atof (argv[4]) : 10.0;
2439
2440   // font name
2441   TCollection_AsciiString aFontName = "Courier";
2442   if (argc >= 6)
2443     aFontName = TCollection_AsciiString (argv[5]);
2444
2445   // text colors
2446   Quantity_Parameter aColorRed   = 1.0;
2447   Quantity_Parameter aColorGreen = 1.0;
2448   Quantity_Parameter aColorBlue  = 1.0;
2449   if (argc >= 9)
2450   {
2451     aColorRed   = atof (argv[6])/255.;
2452     aColorGreen = atof (argv[7])/255.;
2453     aColorBlue  = atof (argv[8])/255.;
2454   }
2455
2456   // display type
2457   TCollection_AsciiString aDispStr;
2458   if (argc >= 10)
2459     aDispStr = TCollection_AsciiString (argv[9]);
2460
2461   Aspect_TypeOfDisplayText aTextType = Aspect_TODT_NORMAL;
2462   if (aDispStr.IsEqual ("subtitle"))
2463     aTextType = Aspect_TODT_SUBTITLE;
2464   else if (aDispStr.IsEqual ("decal"))
2465     aTextType = Aspect_TODT_DEKALE;
2466   else if (aDispStr.IsEqual ("blend"))
2467     aTextType = Aspect_TODT_BLEND;
2468
2469   // subtitle color
2470   Quantity_Parameter aSubRed   = 1.0;
2471   Quantity_Parameter aSubGreen = 1.0;
2472   Quantity_Parameter aSubBlue  = 1.0;
2473   if (argc == 13)
2474   {
2475     aSubRed   = atof (argv[10])/255.;
2476     aSubGreen = atof (argv[11])/255.;
2477     aSubBlue  = atof (argv[12])/255.;
2478   }
2479
2480   // check fo current overlay
2481   Handle(Visual3d_Layer) anOverlay = aView->Viewer()->Viewer()->OverLayer ();
2482   if (anOverlay.IsNull ())
2483   {
2484     Handle(V3d_LayerMgr) aMgr = new V3d_LayerMgr (aView);
2485     anOverlay = aMgr->Overlay ();
2486     aView->SetLayerMgr (aMgr);
2487   }
2488
2489   Quantity_Color aTextColor (aColorRed, aColorGreen, 
2490     aColorBlue, Quantity_TOC_RGB);
2491   Quantity_Color aSubtColor (aSubRed, aSubGreen, 
2492     aSubBlue, Quantity_TOC_RGB);
2493
2494   // add text item
2495   Handle(V3d_TextItem) anItem = new V3d_TextItem (aText, aPosX, aPosY,
2496     aHeight, aFontName, aTextColor, aSubtColor, aTextType, anOverlay);
2497
2498   // update view
2499   aView->MustBeResized();
2500   aView->Redraw();
2501
2502   return 0;
2503 }
2504
2505 //=======================================================================
2506 //function : ViewerCommands
2507 //purpose  :
2508 //=======================================================================
2509
2510 void ViewerTest::ViewerCommands(Draw_Interpretor& theCommands)
2511 {
2512
2513   const char *group = "ZeViewer";
2514   theCommands.Add("vinit" ,
2515     "vinit            : vinit [leftPx topPx widthPx heightPx] : Create the Viewer window",
2516     __FILE__,VInit,group);
2517   theCommands.Add("vhelp" ,
2518     "vhelp            : display help on the viewer commands",
2519     __FILE__,VHelp,group);
2520   theCommands.Add("vtop" ,
2521     "vtop or <T>         : Top view" ,
2522     __FILE__,VTop,group);
2523   theCommands.Add("vaxo" ,
2524     " vaxo or <A>     : Axonometric view ",
2525     __FILE__,VAxo,group);
2526   theCommands.Add("vpick" ,
2527     "vpick           : vpick X Y Z [shape subshape] ( all variables as string )",
2528     VPick,group);
2529   theCommands.Add("vfit"    ,
2530     "vfit or <F>         : vfit",
2531     __FILE__,VFit,group);
2532   theCommands.Add("vzfit"    ,
2533     "vzfit",
2534     __FILE__,VZFit,group);
2535   theCommands.Add("vrepaint",
2536     "vrepaint        : vrepaint, force redraw",
2537     __FILE__,VRepaint,group);
2538   theCommands.Add("vclear",
2539     "vclear          : vclear",
2540     __FILE__,VClear,group);
2541   theCommands.Add("vsetbg",
2542     "vsetbg          : vsetbg imagefile [filltype] : Load image as background",
2543     __FILE__,VSetBg,group);
2544   theCommands.Add("vsetbgmode",
2545     "vsetbgmode      : vsetbgmode filltype : Change background image fill type",
2546     __FILE__,VSetBgMode,group);
2547   theCommands.Add("vsetgradientbg",
2548     "vsetgradientbg  : vsetgradientbg r1 g1 b1 r2 g2 b2 filltype : Mount gradient background",
2549     __FILE__,VSetGradientBg,group);
2550   theCommands.Add("vsetgrbgmode",
2551     "vsetgrbgmode    : vsetgrbgmode filltype : Change gradient background fill type",
2552     __FILE__,VSetGradientBgMode,group);
2553   theCommands.Add("vsetcolorbg",
2554     "vsetcolorbg     : vsetcolorbg r g b : Set background color",
2555     __FILE__,VSetColorBg,group);
2556   theCommands.Add("vscale",
2557     "vscale          : vscale X Y Z",
2558     __FILE__,VScale,group);
2559   theCommands.Add("vzbufftrihedron",
2560     "vzbufftrihedron : Displays a V3d_ZBUFFER'ed trihedron at the bottom left corner of the view",
2561     __FILE__,VTestZBuffTrihedron,group);
2562   theCommands.Add("vrotate",
2563     "vrotate         : vrotate AX AY AZ [X Y Z]",
2564     __FILE__,VRotate,group);
2565   theCommands.Add("vzoom",
2566     "vzoom           : vzoom coef",
2567     __FILE__,VZoom,group);
2568   theCommands.Add("vpan",
2569     "vpan            : vpan dx dy",
2570     __FILE__,VPan,group);
2571   theCommands.Add("vexport",
2572     "vexport         : vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF | EMF }"
2573     " : exports the view to a vector file of a given format"
2574     " : notice that EMF format requires patched gl2ps",
2575     __FILE__,VExport,group);
2576   theCommands.Add("vcolorscale",
2577     "vcolorscale     : vcolorscale [RangeMin = 0 RangeMax = 100 Intervals = 10 HeightFont = 16 Position = 2 X = 0 Y = 0]: draw color scale",
2578     __FILE__,VColorScale,group);
2579   theCommands.Add("vgraduatedtrihedron",
2580     "vgraduatedtrihedron : 1/0 (display/erase) [Xname Yname Zname [Font [isMultibyte]]]",
2581     __FILE__,VGraduatedTrihedron,group);
2582   theCommands.Add("vprintview" ,
2583     "vprintview : width height filename [algo=0] : Test print algorithm: algo = 0 - stretch, algo = 1 - tile",
2584     __FILE__,VPrintView,group);
2585   theCommands.Add("vzlayer",
2586     "vzlayer : add/del/get [id] : Z layer operations in v3d viewer: add new z layer, delete z layer, get z layer ids",
2587     __FILE__,VZLayer,group);
2588   theCommands.Add("voverlaytext",
2589     "voverlaytext : text x y [height] [font_name] [text_color: R G B] [display_type] [background_color: R G B]"
2590     " : height - pixel height of the text (default=10.0)"
2591     " : font_name - name of font (default=courier)"
2592     " : text_color - three values: RedColor GreenColor BlueColor (default = 255.0 255.0 255.0) "
2593     " : display_type = {normal/subtitle/decal/blend}, (default=normal) "
2594     " : background_color - three values: RedColor GreenColor BlueColor (default = 255.0 255.0 255.0), the parameter is defined for subtitle and decal display types ",
2595     __FILE__,VOverlayText,group);
2596   theCommands.Add("vlayerline",
2597     "vlayerline : vlayerline x1 y1 x2 y2 [linewidth=0.5] [linetype=0] [transparency=1.0]",
2598     __FILE__,VLayerLine,group);
2599 }