c69883328b4d43a399f75c09c4576ef75e493872
[occt.git] / src / AIS / AIS_ColorScale.cxx
1 // Created on: 2015-02-03
2 // Copyright (c) 2015 OPEN CASCADE SAS
3 //
4 // This file is part of Open CASCADE Technology software library.
5 //
6 // This library is free software; you can redistribute it and/or modify it under
7 // the terms of the GNU Lesser General Public License version 2.1 as published
8 // by the Free Software Foundation, with special exception defined in the file
9 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10 // distribution for complete text of the license and disclaimer of any warranty.
11 //
12 // Alternatively, this file may be used under the terms of Open CASCADE
13 // commercial license or contractual agreement.
14
15 #include <AIS_ColorScale.hxx>
16
17 #include <AIS_InteractiveContext.hxx>
18 #include <Aspect_TypeOfColorScaleData.hxx>
19 #include <Aspect_TypeOfColorScalePosition.hxx>
20 #include <Aspect_Window.hxx>
21 #include <Geom_Line.hxx>
22 #include <GeomAdaptor_Curve.hxx>
23 #include <Graphic3d_ArrayOfPolygons.hxx>
24 #include <Graphic3d_ArrayOfPolylines.hxx>
25 #include <Graphic3d_AspectFillArea3d.hxx>
26 #include <Graphic3d_AspectText3d.hxx>
27 #include <Graphic3d_GraphicDriver.hxx>
28 #include <Graphic3d_ArrayOfTriangles.hxx>
29 #include <Graphic3d_Text.hxx>
30 #include <Prs3d_LineAspect.hxx>
31 #include <Prs3d_Root.hxx>
32 #include <Prs3d_ShadingAspect.hxx>
33 #include <Prs3d_Text.hxx>
34 #include <Prs3d_TextAspect.hxx>
35 #include <SelectMgr_EntityOwner.hxx>
36 #include <SelectMgr_Selection.hxx>
37 #include <Select3D_SensitiveBox.hxx>
38 #include <Select3D_SensitiveSegment.hxx>
39 #include <StdPrs_Curve.hxx>
40 #include <V3d_Viewer.hxx>
41 #include <V3d_View.hxx>
42
43 IMPLEMENT_STANDARD_RTTIEXT(AIS_ColorScale, AIS_InteractiveObject)
44
45 namespace
46 {
47   //! Method to add colored quad into array of triangles.
48   static void addColoredQuad (const Handle(Graphic3d_ArrayOfTriangles)& theTris,
49                               const Standard_Integer theXLeft, const Standard_Integer theYBottom,
50                               const Standard_Integer theSizeX, const Standard_Integer theSizeY,
51                               const Quantity_Color& theColorBottom,
52                               const Quantity_Color& theColorTop)
53   {
54     const Standard_Integer aVertIndex = theTris->VertexNumber() + 1;
55     theTris->AddVertex (gp_Pnt (theXLeft,            theYBottom,            0.0), theColorBottom);
56     theTris->AddVertex (gp_Pnt (theXLeft + theSizeX, theYBottom,            0.0), theColorBottom);
57     theTris->AddVertex (gp_Pnt (theXLeft,            theYBottom + theSizeY, 0.0), theColorTop);
58     theTris->AddVertex (gp_Pnt (theXLeft + theSizeX, theYBottom + theSizeY, 0.0), theColorTop);
59     theTris->AddEdges (aVertIndex,     aVertIndex + 1, aVertIndex + 2);
60     theTris->AddEdges (aVertIndex + 1, aVertIndex + 2, aVertIndex + 3);
61   }
62
63   //! Compute hue angle from specified value.
64   static Quantity_Color colorFromValueEx (const Standard_Real theValue,
65                                           const Standard_Real theMin,
66                                           const Standard_Real theMax,
67                                           const Graphic3d_Vec3d& theHlsMin,
68                                           const Graphic3d_Vec3d& theHlsMax)
69   {
70     const Standard_Real aValueDelta = theMax - theMin;
71     Standard_Real aValue = 0.0;
72     if (aValueDelta != 0.0)
73     {
74       aValue = (theValue - theMin) / aValueDelta;
75     }
76
77     Standard_Real aHue        = NCollection_Lerp<Standard_Real>::Interpolate (theHlsMin[0], theHlsMax[0], aValue);
78     Standard_Real aLightness  = NCollection_Lerp<Standard_Real>::Interpolate (theHlsMin[1], theHlsMax[1], aValue);
79     Standard_Real aSaturation = NCollection_Lerp<Standard_Real>::Interpolate (theHlsMin[2], theHlsMax[2], aValue);
80     return Quantity_Color (AIS_ColorScale::hueToValidRange (aHue), aLightness, aSaturation, Quantity_TOC_HLS);
81   }
82
83   //! Return the index of discrete interval for specified value.
84   //! Note that when value lies exactly on the border between two intervals,
85   //! determining which interval to return is undefined operation;
86   //! Current implementation returns the following interval in this case.
87   //! @param theValue [in] value to map
88   //! @param theMin   [in] values range, lower value
89   //! @param theMax   [in] values range, upper value
90   //! @param theNbIntervals [in] number of discrete intervals
91   //! @return index of interval within [1, theNbIntervals] range
92   static Standard_Integer colorDiscreteInterval (Standard_Real theValue,
93                                                  Standard_Real theMin,
94                                                  Standard_Real theMax,
95                                                  Standard_Integer theNbIntervals)
96   {
97     if (Abs (theMax - theMin) <= Precision::Approximation())
98     {
99       return 1;
100     }
101
102     Standard_Integer anInterval = 1 + (Standard_Integer )Floor (Standard_Real (theNbIntervals) * (theValue - theMin) / (theMax - theMin));
103     // map the very upper value (theValue==theMax) to the largest color interval
104     anInterval = Min (anInterval, theNbIntervals);
105     return anInterval;
106   }
107 }
108
109 //=======================================================================
110 //function : AIS_ColorScale
111 //purpose  :
112 //=======================================================================
113 AIS_ColorScale::AIS_ColorScale()
114 : myMin (0.0),
115   myMax (1.0),
116   myColorHlsMin (230.0, 1.0, 1.0),
117   myColorHlsMax (0.0,   1.0, 1.0),
118   myFormat ("%.4g"),
119   myNbIntervals (10),
120   myColorType (Aspect_TOCSD_AUTO),
121   myLabelType (Aspect_TOCSD_AUTO),
122   myIsLabelAtBorder (Standard_True),
123   myIsReversed (Standard_False),
124   myIsLogarithmic (Standard_False),
125   myIsSmooth (Standard_False),
126   myLabelPos (Aspect_TOCSP_RIGHT),
127   myTitlePos (Aspect_TOCSP_LEFT),
128   myXPos (0),
129   myYPos (0),
130   myBreadth (0),
131   myHeight  (0),
132   mySpacing (5),
133   myTextHeight (20)
134 {
135   SetDisplayMode (0);
136   myDrawer->SetupOwnShadingAspect();
137   myDrawer->ShadingAspect()->Aspect()->SetShadingModel (Graphic3d_TOSM_UNLIT);
138   myDrawer->ShadingAspect()->Aspect()->SetAlphaMode (Graphic3d_AlphaMode_Opaque);
139   myDrawer->ShadingAspect()->Aspect()->SetInteriorColor (Quantity_NOC_WHITE);
140 }
141
142 //=======================================================================
143 //function : GetLabel
144 //purpose  :
145 //=======================================================================
146 TCollection_ExtendedString AIS_ColorScale::GetLabel (const Standard_Integer theIndex) const
147 {
148   if (myLabelType == Aspect_TOCSD_USER)
149   {
150     if (theIndex >= myLabels.Lower()
151      || theIndex <= myLabels.Upper())
152     {
153       return myLabels.Value(theIndex);
154     }
155     return TCollection_ExtendedString();
156   }
157
158   // value to be shown depends on label position
159   const Standard_Real aVal = myIsLabelAtBorder
160                            ? GetIntervalValue (theIndex - 1)
161                            : (0.5 * (GetIntervalValue (theIndex - 1) + GetIntervalValue (theIndex)));
162
163   char aBuf[1024];
164   sprintf (aBuf, myFormat.ToCString(), aVal);
165   return TCollection_ExtendedString (aBuf);
166 }
167
168 //=======================================================================
169 //function : GetIntervalColor
170 //purpose  :
171 //=======================================================================
172 Quantity_Color AIS_ColorScale::GetIntervalColor (const Standard_Integer theIndex) const
173 {
174   if (myColorType== Aspect_TOCSD_USER)
175   {
176     if (theIndex <= 0 || theIndex > myColors.Length())
177     {
178       return Quantity_Color();
179     }
180     return myColors.Value (theIndex);
181   }
182
183   return colorFromValue (theIndex - 1, 0, myNbIntervals - 1);
184 }
185
186 //=======================================================================
187 //function : GetLabels
188 //purpose  :
189 //=======================================================================
190 void AIS_ColorScale::GetLabels (TColStd_SequenceOfExtendedString& theLabels) const
191 {
192   theLabels.Clear();
193   for (TColStd_SequenceOfExtendedString::Iterator aLabIter (myLabels); aLabIter.More(); aLabIter.Next())
194   {
195     theLabels.Append (aLabIter.Value());
196   }
197 }
198
199 //=======================================================================
200 //function : GetColors
201 //purpose  :
202 //=======================================================================
203 void AIS_ColorScale::GetColors (Aspect_SequenceOfColor& theColors) const
204 {
205   theColors.Clear();
206   for (Aspect_SequenceOfColor::Iterator aColorIter (myColors); aColorIter.More(); aColorIter.Next())
207   {
208     theColors.Append (aColorIter.Value());
209   }
210 }
211
212 //=======================================================================
213 //function : SetRange
214 //purpose  :
215 //=======================================================================
216 void AIS_ColorScale::SetRange (const Standard_Real theMin, const Standard_Real theMax)
217 {
218   myMin = Min (theMin, theMax);
219   myMax = Max (theMin, theMax);
220 }
221
222 //=======================================================================
223 //function : SetNumberOfIntervals
224 //purpose  :
225 //=======================================================================
226 void AIS_ColorScale::SetNumberOfIntervals (const Standard_Integer theNum)
227 {
228   if (theNum < 1)
229   {
230     return;
231   }
232
233   myNbIntervals = theNum;
234 }
235
236 //=======================================================================
237 //function : SetLabel
238 //purpose  :
239 //=======================================================================
240 void AIS_ColorScale::SetLabel (const TCollection_ExtendedString& theLabel,
241                                const Standard_Integer theIndex)
242 {
243   const Standard_Integer aLabIndex = (theIndex <= 0 ? myLabels.Length() + 1 : theIndex);
244   while (myLabels.Length() < aLabIndex)
245   {
246     myLabels.Append (TCollection_ExtendedString());
247   }
248   myLabels.SetValue (aLabIndex, theLabel);
249 }
250
251 //=======================================================================
252 //function : SetIntervalColor
253 //purpose  :
254 //=======================================================================
255 void AIS_ColorScale::SetIntervalColor (const Quantity_Color&  theColor,
256                                        const Standard_Integer theIndex)
257 {
258   const Standard_Integer aColorIndex = (theIndex <= 0 ? myColors.Length() + 1 : theIndex);
259   while (myColors.Length() < aColorIndex)
260   {
261     myColors.Append (Quantity_Color());
262   }
263   myColors.SetValue (aColorIndex, theColor);
264 }
265
266 //=======================================================================
267 //function : SetLabels
268 //purpose  :
269 //=======================================================================
270 void AIS_ColorScale::SetLabels (const TColStd_SequenceOfExtendedString& theSeq)
271 {
272   myLabels.Clear();
273   for (TColStd_SequenceOfExtendedString::Iterator aLabIter (theSeq); aLabIter.More(); aLabIter.Next())
274   {
275     myLabels.Append (aLabIter.Value());
276   }
277 }
278
279 //=======================================================================
280 //function : SetColors
281 //purpose  :
282 //=======================================================================
283 void AIS_ColorScale::SetColors (const Aspect_SequenceOfColor& theSeq)
284 {
285   myColors.Clear();
286   for (Aspect_SequenceOfColor::Iterator aColorIter (theSeq); aColorIter.More(); aColorIter.Next())
287   {
288     myColors.Append (aColorIter.Value());
289   }
290 }
291
292 //=======================================================================
293 //function : SizeHint
294 //purpose  :
295 //=======================================================================
296 void AIS_ColorScale::SizeHint (Standard_Integer& theWidth, Standard_Integer& theHeight) const
297 {
298   const Standard_Integer aTextHeight = TextHeight ("");
299   const Standard_Integer aColorWidth = 20;
300   Standard_Integer aTextWidth = 0;
301   if (myLabelPos != Aspect_TOCSP_NONE)
302   {
303     for (Standard_Integer aLabIter = (myIsLabelAtBorder ? 0 : 1); aLabIter <= myNbIntervals; ++aLabIter)
304     {
305       aTextWidth = Max (aTextWidth, TextWidth (GetLabel (aLabIter)));
306     }
307   }
308
309   const Standard_Integer aScaleWidth  = aColorWidth + aTextWidth + (aTextWidth ? 3 : 2) * mySpacing;
310   const Standard_Integer aScaleHeight = (Standard_Integer)(1.5 * (myNbIntervals + (myIsLabelAtBorder ? 2 : 1)) * aTextHeight);
311
312   Standard_Integer aTitleWidth  = 0;
313   Standard_Integer aTitleHeight = 0;
314   if (!myTitle.IsEmpty())
315   {
316     aTitleHeight = TextHeight (myTitle) + mySpacing;
317     aTitleWidth =  TextWidth  (myTitle) + mySpacing * 2;
318   }
319
320   theWidth  = Max (aTitleWidth, aScaleWidth);
321   theHeight = aScaleHeight + aTitleHeight;
322 }
323
324 //=======================================================================
325 //function : GetIntervalValue
326 //purpose  :
327 //=======================================================================
328 Standard_Real AIS_ColorScale::GetIntervalValue (const Standard_Integer theIndex) const
329 {
330   if (myNbIntervals <= 0)
331   {
332     return 0.0;
333   }
334
335   if (IsLogarithmic())
336   {
337     Standard_Real aMin     = myMin > 0 ? myMin : 1.0;
338     Standard_Real aDivisor = std::pow (myMax / aMin, 1.0 / myNbIntervals);
339     return aMin * std::pow (aDivisor,theIndex);
340   }
341
342   Standard_Real aNum = 0;
343   if (myNbIntervals > 0)
344   {
345     aNum = GetMin() + theIndex * (Abs (GetMax() - GetMin()) / myNbIntervals);
346   }
347   return aNum;
348 }
349
350 //=======================================================================
351 //function : colorFromValue
352 //purpose  :
353 //=======================================================================
354 Quantity_Color AIS_ColorScale::colorFromValue (const Standard_Real theValue,
355                                                const Standard_Real theMin,
356                                                const Standard_Real theMax) const
357 {
358   return colorFromValueEx (theValue, theMin, theMax, myColorHlsMin, myColorHlsMax);
359 }
360
361 //=======================================================================
362 //function : FindColor
363 //purpose  :
364 //=======================================================================
365 Standard_Boolean AIS_ColorScale::FindColor (const Standard_Real theValue,
366                                             Quantity_Color& theColor) const
367 {
368   if (theValue < myMin || theValue > myMax || myMax < myMin)
369   {
370     theColor = Quantity_Color();
371     return Standard_False;
372   }
373
374   if (myColorType == Aspect_TOCSD_USER)
375   {
376     const Standard_Integer anInterval = colorDiscreteInterval (theValue, myMin, myMax, myNbIntervals);
377     if (anInterval < myColors.Lower() || anInterval > myColors.Upper())
378     {
379       theColor = Quantity_Color();
380       return Standard_False;
381     }
382
383     theColor = myColors.Value (anInterval);
384     return Standard_True;
385   }
386
387   return FindColor (theValue, myMin, myMax, myNbIntervals, theColor);
388 }
389
390 //=======================================================================
391 //function : FindColor
392 //purpose  :
393 //=======================================================================
394 Standard_Boolean AIS_ColorScale::FindColor (const Standard_Real theValue,
395                                             const Standard_Real theMin,
396                                             const Standard_Real theMax,
397                                             const Standard_Integer theColorsCount,
398                                             const Graphic3d_Vec3d& theColorHlsMin,
399                                             const Graphic3d_Vec3d& theColorHlsMax,
400                                             Quantity_Color& theColor)
401 {
402   if (theValue < theMin || theValue > theMax || theMax < theMin)
403   {
404     return Standard_False;
405   }
406
407   const Standard_Integer anInterval = colorDiscreteInterval (theValue, theMin, theMax, theColorsCount);
408   theColor = colorFromValueEx (anInterval - 1, 0, theColorsCount - 1, theColorHlsMin, theColorHlsMax);
409   return Standard_True;
410 }
411
412 //=======================================================================
413 //function : computeMaxLabelWidth
414 //purpose  :
415 //=======================================================================
416 Standard_Integer AIS_ColorScale::computeMaxLabelWidth (const TColStd_SequenceOfExtendedString& theLabels) const
417 {
418   {
419     Handle(V3d_Viewer) aViewer = GetContext()->CurrentViewer();
420     aViewer->InitActiveViews(); // for AIS_ColorScale::TextSize()
421   }
422
423   Standard_Integer aWidthMax = 0;
424   for (TColStd_SequenceOfExtendedString::Iterator aLabIter (theLabels); aLabIter.More(); aLabIter.Next())
425   {
426     if (!aLabIter.Value().IsEmpty())
427     {
428       aWidthMax = Max (aWidthMax, TextWidth (aLabIter.Value()));
429     }
430   }
431   return aWidthMax;
432 }
433
434 //=======================================================================
435 //function : updateTextAspect
436 //purpose  :
437 //=======================================================================
438 void AIS_ColorScale::updateTextAspect()
439 {
440   // update text aspect
441   const Quantity_Color aFgColor (hasOwnColor ? myDrawer->Color() : Quantity_NOC_WHITE);
442   if (!myDrawer->HasOwnTextAspect())
443   {
444     myDrawer->SetTextAspect (new Prs3d_TextAspect());
445     *myDrawer->TextAspect()->Aspect() = *myDrawer->Link()->TextAspect()->Aspect();
446   }
447
448   const Handle(Prs3d_TextAspect)& anAspect = myDrawer->TextAspect();
449   anAspect->SetColor  (aFgColor);
450   anAspect->SetHeight (myTextHeight);
451   anAspect->SetHorizontalJustification (Graphic3d_HTA_LEFT);
452   anAspect->SetVerticalJustification (Graphic3d_VTA_BOTTOM);
453   anAspect->Aspect()->SetTextZoomable (Standard_True);
454 }
455
456 //=======================================================================
457 //function : Compute
458 //purpose  :
459 //=======================================================================
460 void AIS_ColorScale::Compute (const Handle(PrsMgr_PresentationManager3d)& ,
461                               const Handle(Prs3d_Presentation)& thePrs,
462                               const Standard_Integer theMode)
463 {
464   if (theMode != 0)
465   {
466     return;
467   }
468
469   // update text aspect
470   updateTextAspect();
471
472   const Standard_Integer aTitleOffset = !myTitle.IsEmpty() ? (myTextHeight + mySpacing) : 0;
473
474   const Standard_Integer aBarYOffset = myTextHeight / 2 + 2 * mySpacing; // a half-label offset
475   const Standard_Integer aBarBottom  = myYPos + aBarYOffset;
476   const Standard_Integer aBarTop     = myYPos + myHeight - aTitleOffset - aBarYOffset;
477   const Standard_Integer aBarHeight  = aBarTop - aBarBottom;
478
479   TColStd_SequenceOfExtendedString aLabels;
480   if (myLabelType == Aspect_TOCSD_USER)
481   {
482     aLabels = myLabels;
483   }
484   else
485   {
486     const Standard_Integer aNbLabels = myIsLabelAtBorder ? myNbIntervals + 1 : myNbIntervals;
487     for (Standard_Integer aLabIter = 1; aLabIter <= aNbLabels; ++aLabIter)
488     {
489       if (myIsReversed)
490       {
491         aLabels.Prepend (GetLabel (aLabIter));
492       }
493       else
494       {
495         aLabels.Append (GetLabel (aLabIter));
496       }
497     }
498   }
499
500   const Standard_Integer aTextWidth = myLabelPos != Aspect_TOCSP_NONE ? computeMaxLabelWidth (aLabels) : 0;
501   Standard_Integer aColorBreadth = Max (5, Min (20, myBreadth - aTextWidth - 3 * mySpacing));
502   if (myLabelPos == Aspect_TOCSP_CENTER
503    || myLabelPos == Aspect_TOCSP_NONE)
504   {
505     aColorBreadth += aTextWidth;
506   }
507
508   // draw title
509   Handle(Graphic3d_Group) aLabelsGroup;
510   if (!myTitle.IsEmpty()
511    || !aLabels.IsEmpty())
512   {
513     aLabelsGroup = thePrs->NewGroup();
514     aLabelsGroup->SetGroupPrimitivesAspect (myDrawer->TextAspect()->Aspect());
515   }
516   if (!myTitle.IsEmpty())
517   {
518     drawText (aLabelsGroup, myTitle,
519               myXPos + mySpacing,
520               aBarTop + aBarYOffset,
521               Graphic3d_VTA_BOTTOM);
522   }
523
524   // draw colors
525   drawColorBar (thePrs, aBarBottom, aBarHeight, aTextWidth, aColorBreadth);
526
527   // draw Labels
528   drawLabels (aLabelsGroup, aLabels, aBarBottom, aBarHeight, aTextWidth, aColorBreadth);
529 }
530
531 //=======================================================================
532 //function : drawColorBar
533 //purpose  :
534 //=======================================================================
535 void AIS_ColorScale::drawColorBar (const Handle(Prs3d_Presentation)& thePrs,
536                                    const Standard_Integer theBarBottom,
537                                    const Standard_Integer theBarHeight,
538                                    const Standard_Integer theMaxLabelWidth,
539                                    const Standard_Integer theColorBreadth)
540 {
541   const Standard_Real aStepY = Standard_Real(theBarHeight) / Standard_Real(myNbIntervals);
542   if (aStepY <= 0.0)
543   {
544     return;
545   }
546
547   // Draw colors
548   const Standard_Integer anXLeft = myLabelPos == Aspect_TOCSP_LEFT
549                                  ? myXPos + mySpacing + theMaxLabelWidth + (theMaxLabelWidth != 0 ? 1 : 0) * mySpacing
550                                  : myXPos + mySpacing;
551
552   Aspect_SequenceOfColor aColors;
553   for (Standard_Integer anIntervalIter = 1; anIntervalIter <= myNbIntervals; ++anIntervalIter)
554   {
555     if (myIsReversed)
556     {
557       aColors.Prepend (GetIntervalColor (anIntervalIter));
558     }
559     else
560     {
561       aColors.Append (GetIntervalColor (anIntervalIter));
562     }
563   }
564
565   Handle(Graphic3d_ArrayOfTriangles) aTriangles;
566   if (myIsSmooth
567    && myColorType == Aspect_TOCSD_USER)
568   {
569     // Smooth custom intervals, so that the color in the center of interval is equal to specified one
570     // (thus the halves of first and last intervals have solid color)
571     aTriangles = new Graphic3d_ArrayOfTriangles ((aColors.Length() + 1) * 4,     // quads
572                                                  (aColors.Length() + 1) * 2 * 3, // quads as triangles
573                                                  false, true);                   // per-vertex colors
574     Quantity_Color aColor1 (aColors.Value (1)), aColor2;
575     Standard_Integer       aSizeY        = Standard_Integer(aStepY / 2);
576     const Standard_Integer anYBottom     = theBarBottom + aSizeY;
577     Standard_Integer       anYBottomIter = anYBottom;
578     addColoredQuad (aTriangles,
579                     anXLeft, theBarBottom,
580                     theColorBreadth, aSizeY,
581                     aColor1, aColor1);
582     for (Standard_Integer aColorIter = 0; aColorIter < myNbIntervals - 1; ++aColorIter)
583     {
584       aColor1 = aColors.Value (aColorIter + 1);
585       aColor2 = aColors.Value (aColorIter + 2);
586       aSizeY  = anYBottom + Standard_Integer((aColorIter + 1) * aStepY) - anYBottomIter;
587       addColoredQuad (aTriangles,
588                       anXLeft, anYBottomIter,
589                       theColorBreadth, aSizeY,
590                       aColor1, aColor2);
591       anYBottomIter += aSizeY;
592     }
593     aColor2 = aColors.Value (myNbIntervals);
594     aSizeY  = theBarBottom + theBarHeight - anYBottomIter;
595     addColoredQuad (aTriangles,
596                     anXLeft, anYBottomIter,
597                     theColorBreadth, aSizeY,
598                     aColor2, aColor2);
599   }
600   else if (myIsSmooth)
601   {
602     // smooth transition between standard colors - without solid color regions at the beginning and end of full color range
603     const Quantity_Color aColorsFixed[5] =
604     {
605       colorFromValue (0, 0, 4),
606       colorFromValue (1, 0, 4),
607       colorFromValue (2, 0, 4),
608       colorFromValue (3, 0, 4),
609       colorFromValue (4, 0, 4)
610     };
611     aTriangles = new Graphic3d_ArrayOfTriangles (4 * 4,        // quads
612                                                  4 * 2 * 3,    // quads as triangles
613                                                  false, true); // per-vertex colors
614     Standard_Integer anYBottomIter = theBarBottom;
615     addColoredQuad (aTriangles,
616                     anXLeft, theBarBottom,
617                     theColorBreadth, theBarHeight / 4,
618                     aColorsFixed[0], aColorsFixed[1]);
619     anYBottomIter += theBarHeight / 4;
620     addColoredQuad (aTriangles,
621                     anXLeft, anYBottomIter,
622                     theColorBreadth, theBarHeight / 4,
623                     aColorsFixed[1], aColorsFixed[2]);
624     anYBottomIter += theBarHeight / 4;
625     addColoredQuad (aTriangles,
626                     anXLeft, anYBottomIter,
627                     theColorBreadth, theBarHeight / 4,
628                     aColorsFixed[2], aColorsFixed[3]);
629     anYBottomIter += theBarHeight / 4;
630     const Standard_Integer aLastSizeY  = theBarBottom + theBarHeight - anYBottomIter;
631     addColoredQuad (aTriangles,
632                     anXLeft, anYBottomIter,
633                     theColorBreadth, aLastSizeY,
634                     aColorsFixed[3], aColorsFixed[4]);
635   }
636   else
637   {
638     // no color smoothing
639     aTriangles = new Graphic3d_ArrayOfTriangles (aColors.Length() * 4,     // quads
640                                                  aColors.Length() * 2 * 3, // quads as triangles
641                                                  false, true);             // per-vertex colors
642     Standard_Integer anYBottomIter = theBarBottom;
643     for (Standard_Integer aColorIter = 0; aColorIter < myNbIntervals; ++aColorIter)
644     {
645       const Quantity_Color&  aColor = aColors.Value (aColorIter + 1);
646       const Standard_Integer aSizeY = theBarBottom + Standard_Integer((aColorIter + 1) * aStepY) - anYBottomIter;
647       addColoredQuad (aTriangles,
648                       anXLeft, anYBottomIter,
649                       theColorBreadth, aSizeY,
650                       aColor, aColor);
651       anYBottomIter += aSizeY;
652     }
653   }
654
655   Handle(Graphic3d_Group) aGroup = thePrs->NewGroup();
656   aGroup->SetGroupPrimitivesAspect (myDrawer->ShadingAspect()->Aspect());
657   aGroup->AddPrimitiveArray (aTriangles);
658
659   const Quantity_Color aFgColor (hasOwnColor ? myDrawer->Color() : Quantity_NOC_WHITE);
660   drawFrame (thePrs,
661              anXLeft - 1, theBarBottom - 1,
662              theColorBreadth + 2,
663              theBarHeight + 2,
664              aFgColor);
665 }
666
667 //=======================================================================
668 //function : drawLabels
669 //purpose  :
670 //=======================================================================
671 void AIS_ColorScale::drawLabels (const Handle(Graphic3d_Group)& theGroup,
672                                  const TColStd_SequenceOfExtendedString& theLabels,
673                                  const Standard_Integer theBarBottom,
674                                  const Standard_Integer theBarHeight,
675                                  const Standard_Integer theMaxLabelWidth,
676                                  const Standard_Integer theColorBreadth)
677 {
678   if (myLabelPos == Aspect_TOCSP_NONE
679    || theLabels.IsEmpty())
680   {
681     return;
682   }
683
684   const Standard_Integer aNbLabels    = theLabels.Size();
685   const Standard_Integer aNbIntervals = myIsLabelAtBorder ? aNbLabels - 1 : aNbLabels;
686   const Standard_Real    aStepY       = Standard_Real(theBarHeight) / Standard_Real(aNbIntervals);
687   if (aStepY <= 0.0)
688   {
689     return;
690   }
691
692   Standard_Integer aFilter = 0;
693   {
694     const Standard_Integer aTitleHeight = !myTitle.IsEmpty() ? (myTextHeight + 2 * mySpacing) : mySpacing;
695     const Standard_Integer aSpc         = myHeight - aTitleHeight - ((Min (aNbLabels, 2) + Abs (aNbLabels - aNbIntervals - 1)) * myTextHeight);
696     if (aSpc <= 0)
697     {
698       return;
699     }
700
701     const Standard_Real aVal = Standard_Real(aNbLabels) * myTextHeight / aSpc;
702     Standard_Real anIPart = 0.0;
703     Standard_Real anFPart = std::modf (aVal, &anIPart);
704     aFilter = (Standard_Integer )anIPart + (anFPart != 0 ? 1 : 0);
705   }
706   if (aFilter <= 0)
707   {
708     return;
709   }
710
711   Standard_Integer anXLeft = myXPos + mySpacing;
712   const Standard_Integer anAscent = 0;
713   switch (myLabelPos)
714   {
715     case Aspect_TOCSP_NONE:
716     case Aspect_TOCSP_LEFT:
717     {
718       break;
719     }
720     case Aspect_TOCSP_CENTER:
721     {
722       anXLeft += (theColorBreadth - theMaxLabelWidth) / 2;
723       break;
724     }
725     case Aspect_TOCSP_RIGHT:
726     {
727       anXLeft += theColorBreadth + mySpacing;
728       break;
729     }
730   }
731
732   Standard_Integer i1 = 0;
733   Standard_Integer i2 = aNbLabels - 1;
734   Standard_Integer aLast1 = i1;
735   Standard_Integer aLast2 = i2;
736   const Standard_Integer anYBottom = myIsLabelAtBorder
737                                    ? theBarBottom
738                                    : theBarBottom + Standard_Integer(aStepY / 2);
739   while (i2 - i1 >= aFilter || ( i2 == 0 && i1 == 0 ))
740   {
741     Standard_Integer aPos1 = i1;
742     Standard_Integer aPos2 = aNbLabels - 1 - i2;
743     if (aFilter && !(aPos1 % aFilter))
744     {
745       drawText (theGroup, theLabels.Value (i1 + 1),
746                 anXLeft, anYBottom + Standard_Integer(i1 * aStepY + anAscent),
747                 Graphic3d_VTA_CENTER);
748       aLast1 = i1;
749     }
750     if (aFilter && !(aPos2 % aFilter))
751     {
752       drawText (theGroup, theLabels.Value (i2 + 1),
753                 anXLeft, anYBottom + Standard_Integer(i2 * aStepY + anAscent),
754                 Graphic3d_VTA_CENTER);
755       aLast2 = i2;
756     }
757     i1++;
758     i2--;
759   }
760   Standard_Integer aPos = i1;
761   Standard_Integer i0   = -1;
762   while (aPos <= i2 && i0 == -1)
763   {
764     if (aFilter && !(aPos % aFilter)
765       && Abs (aPos - aLast1) >= aFilter
766       && Abs (aPos - aLast2) >= aFilter)
767     {
768       i0 = aPos;
769     }
770     aPos++;
771   }
772
773   if (i0 != -1)
774   {
775     drawText (theGroup, theLabels.Value (i0 + 1),
776               anXLeft, anYBottom + Standard_Integer(i0 * aStepY + anAscent),
777               Graphic3d_VTA_CENTER);
778   }
779 }
780
781 //=======================================================================
782 //function : drawFrame
783 //purpose  :
784 //=======================================================================
785 void AIS_ColorScale::drawFrame (const Handle(Prs3d_Presentation)& thePrs,
786                                 const Standard_Integer theX, const Standard_Integer theY,
787                                 const Standard_Integer theWidth, const Standard_Integer theHeight,
788                                 const Quantity_Color& theColor)
789 {
790   Handle(Graphic3d_ArrayOfPolylines) aPrim = new Graphic3d_ArrayOfPolylines(5);
791   aPrim->AddVertex (theX,            theY, 0.0);
792   aPrim->AddVertex (theX + theWidth, theY, 0.0);
793   aPrim->AddVertex (theX + theWidth, theY + theHeight, 0.0);
794   aPrim->AddVertex (theX,            theY + theHeight, 0.0);
795   aPrim->AddVertex (theX,            theY, 0.0);
796
797   Handle(Graphic3d_AspectLine3d) anAspect = new Graphic3d_AspectLine3d (theColor, Aspect_TOL_SOLID, 1.0);
798   Handle(Graphic3d_Group) aGroup = thePrs->NewGroup();
799   aGroup->SetGroupPrimitivesAspect (anAspect);
800   aGroup->AddPrimitiveArray (aPrim);
801 }
802
803 //=======================================================================
804 //function : drawText
805 //purpose  :
806 //=======================================================================
807 void AIS_ColorScale::drawText (const Handle(Graphic3d_Group)& theGroup,
808                                const TCollection_ExtendedString& theText,
809                                const Standard_Integer theX, const Standard_Integer theY,
810                                const Graphic3d_VerticalTextAlignment theVertAlignment)
811 {
812   const Handle(Prs3d_TextAspect)& anAspect = myDrawer->TextAspect();
813
814   Handle(Graphic3d_Text) aText = new Graphic3d_Text ((Standard_ShortReal)anAspect->Height());
815   aText->SetText (theText.ToExtString());
816   aText->SetOrientation (gp_Ax2 (gp_Pnt (theX, theY, 0.0), gp::DZ()));
817   aText->SetOwnAnchorPoint (Standard_False);
818   aText->SetVerticalAlignment (theVertAlignment);
819
820   theGroup->AddText (aText);
821 }
822
823 //=======================================================================
824 //function : TextWidth
825 //purpose  :
826 //=======================================================================
827 Standard_Integer AIS_ColorScale::TextWidth (const TCollection_ExtendedString& theText) const
828 {
829   Standard_Integer aWidth, anAscent, aDescent;
830   TextSize (theText, myTextHeight, aWidth, anAscent, aDescent);
831   return aWidth;
832 }
833
834 //=======================================================================
835 //function : TextHeight
836 //purpose  :
837 //=======================================================================
838 Standard_Integer AIS_ColorScale::TextHeight (const TCollection_ExtendedString& theText) const
839 {
840   Standard_Integer aWidth, anAscent, aDescent;
841   TextSize (theText, myTextHeight, aWidth, anAscent, aDescent);
842   return anAscent + aDescent;
843 }
844
845 //=======================================================================
846 //function : TextSize
847 //purpose  :
848 //=======================================================================
849 void AIS_ColorScale::TextSize (const TCollection_ExtendedString& theText,
850                                const Standard_Integer theHeight,
851                                Standard_Integer& theWidth,
852                                Standard_Integer& theAscent,
853                                Standard_Integer& theDescent) const
854 {
855   if (!HasInteractiveContext())
856   {
857     return;
858   }
859
860   Standard_ShortReal aWidth   = 10.0f;
861   Standard_ShortReal anAscent = 1.0f;
862   Standard_ShortReal aDescent = 1.0f;
863   const TCollection_AsciiString aText (theText);
864
865   const Handle(V3d_Viewer)&      aViewer = GetContext()->CurrentViewer();
866   const Handle(Graphic3d_CView)& aView   = aViewer->ActiveViewIterator().Value()->View();
867   aViewer->Driver()->TextSize (aView, aText.ToCString(), (Standard_ShortReal)theHeight, aWidth, anAscent, aDescent);
868   theWidth   = (Standard_Integer)aWidth;
869   theAscent  = (Standard_Integer)anAscent;
870   theDescent = (Standard_Integer)aDescent;
871 }