TCurlyArc.cxx

Go to the documentation of this file.

// @(#)root/graf:$Id$
// Author: Otto Schaile   20/11/99
 
/*************************************************************************
 * Copyright (C) 1995-2000, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/
 
/** \class TCurlyArc
\ingroup BasicGraphics
 
Implements curly or wavy arcs used to draw Feynman diagrams.
 
Amplitudes and wavelengths may be specified in the constructors,
via commands or interactively from popup menus.
The class make use of TCurlyLine by inheritance, ExecuteEvent methods
are highly inspired from the methods used in TPolyLine and TArc.
The picture below has been generated by the tutorial feynman.
 
Begin_Macro(source)
../../../tutorials/visualisation/graphics/feynman.C
End_Macro
*/
 
#include <iostream>
#include "TCurlyArc.h"
#include "TROOT.h"
#include "TVirtualPad.h"
#include "TBoxInteractive.h"
#include "TAttMarker.h"
#include "TMath.h"
#include "TPoint.h"
 
Double_t TCurlyArc::fgDefaultWaveLength = 0.02;
Double_t TCurlyArc::fgDefaultAmplitude  = 0.01;
Bool_t   TCurlyArc::fgDefaultIsCurly    = kTRUE;
 
 
////////////////////////////////////////////////////////////////////////////////
/// Default constructor
 
TCurlyArc::TCurlyArc()
{
   fR1     = 0.;
   fPhimin = 0.;
   fPhimax = 0.;
   fTheta  = 0.;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Create a new TCurlyArc with center (x1, y1) and radius rad.
/// The wavelength and amplitude are given in percent of the line length
/// phimin and phimax are given in degrees.
 
TCurlyArc::TCurlyArc(Double_t x1, Double_t y1,
                   Double_t rad, Double_t phimin, Double_t phimax,
                   Double_t wl, Double_t amp)
         : fR1(rad), fPhimin(phimin),fPhimax(phimax)
{
   fX1         = x1;
   fY1         = y1;
   fIsCurly    = fgDefaultIsCurly;
   fAmplitude  = amp;
   fWaveLength = wl;
   fTheta      = 0;
   Build();
}
 
////////////////////////////////////////////////////////////////////////////////
/// Create a curly (Gluon) or wavy (Gamma) arc.
 
void TCurlyArc::Build()
{
   Double_t pixeltoX = 1;
   Double_t pixeltoY = 1;
   Double_t rPix = fR1;
   if (gPad) {
      Double_t pxrange = gPad->GetPadWidth();
      Double_t pyrange = -1. * gPad->GetPadHeight();
      Double_t xrange  = gPad->GetX2() - gPad->GetX1();
      Double_t yrange  = gPad->GetY2() - gPad->GetY1();
      pixeltoX  = xrange / pxrange;
      pixeltoY  = yrange/pyrange;
      rPix = fR1 / pixeltoX;
   }
   Double_t dang = fPhimax - fPhimin;
   if (dang < 0) dang += 360;
   Double_t length = TMath::Pi() * fR1 * dang/180;
   Double_t x1sav = fX1;
   Double_t y1sav = fY1;
   fX1 = fY1 = 0;
   fX2 = length;
   fY2 = 0;
   TCurlyLine::Build();
   fX1 = x1sav;
   fY1 = y1sav;
   Double_t *xv= GetX();
   Double_t *yv= GetY();
   Double_t xx, yy, angle;
   for(Int_t i = 0; i < fNsteps; i++){
      angle = xv[i] / rPix + fPhimin * TMath::Pi()/180;
      xx    = (yv[i] + rPix) * cos(angle);
      yy    = (yv[i] + rPix) * sin(angle);
      xx *= pixeltoX;
      yy *= TMath::Abs(pixeltoY);
      xv[i] = xx + fX1;
      yv[i] = yy + fY1;
   }
   if (gPad)
      gPad->Modified();
}
 
////////////////////////////////////////////////////////////////////////////////
/// Compute distance from point px,py to an arc.
///
///  Compute the closest distance of approach from point px,py to this arc.
///  The distance is computed in pixels units.
 
Int_t TCurlyArc::DistancetoPrimitive(Int_t px, Int_t py)
{
   if (!gPad) return 9999;
   // Compute distance of point to center of arc
   Int_t pxc    = gPad->XtoAbsPixel(gPad->XtoPad(fX1));
   Int_t pyc    = gPad->YtoAbsPixel(gPad->YtoPad(fY1));
   Double_t dist = TMath::Sqrt(Long64_t(pxc-px)*(pxc-px)+Long64_t(pyc-py)*(pyc-py));
   Double_t cosa = (px - pxc)/dist;
   Double_t sina = (pyc - py)/dist;
   Double_t phi  = TMath::ATan2(sina,cosa);
   if (phi < 0) phi += 2 * TMath::Pi();
   phi = phi * 180 / TMath::Pi();
   if (fPhimax > fPhimin){
      if (phi < fPhimin || phi > fPhimax) return 9999;
   } else {
      if (phi > fPhimin && phi < fPhimax) return 9999;
   }
   Int_t pxa = gPad->XtoAbsPixel(gPad->XtoPad(fX1 + cosa*fR1));
   Int_t pya = gPad->YtoAbsPixel(gPad->YtoPad(fY1 + sina*fR1));
   Double_t dista = TMath::Sqrt(Long64_t(pxc-pxa)*(pxc-pxa)+Long64_t(pyc-pya)*(pyc-pya));
   return (Int_t) TMath::Abs(dist - dista);
}
 
class TCurlyArcInteractive : public TBoxInteractive {
   public:
      TCurlyArcInteractive(TCurlyArc *c) :
         TBoxInteractive(kFALSE, c->GetStartX() - c->GetRadius(), c->GetStartY() - c->GetRadius(), c->GetStartX() + c->GetRadius(), c->GetStartY() + c->GetRadius())
      {
      }
 
      void PaintOutline(TVirtualPad &parent) override
      {
         auto c = static_cast<TCurlyArc *> (GetObject());
 
         int np = 10;
         std::vector<Double_t> x(np+3), y(np+3);
 
         Double_t dphi = (c->GetPhimax() - c->GetPhimin()) / 180. * TMath::Pi();
         Double_t midx = (newX1 + newX2) / 2;
         Double_t midy = (newY1 + newY2) / 2;
         Double_t radius = (newX2 - newX1 + newY2 - newY1) / 4;
 
         if (dphi < 0)
            dphi += 2 * TMath::Pi();
         Double_t phi0 = c->GetPhimin() / 180. * TMath::Pi();
         for (int i = 0; i <= np; i++) {
            Double_t angle = phi0 + i*dphi/np;
            x[i]  = parent.XtoPad(midx + radius*TMath::Cos(angle));
            y[i]  = parent.YtoPad(midy + radius*TMath::Sin(angle));
         }
         Bool_t full_circle = kTRUE;
         if (c->GetPhimax() - c->GetPhimin() < 360) {
            ++np;
            x[np] = parent.XtoPad(midx);
            y[np] = parent.YtoPad(midy);
            full_circle = kFALSE;
         }
         ++np;
         x[np] = x[0];
         y[np] = y[0];
 
         c->TAttLine::ModifyOn(parent);
         // "i" is interactive painting
         parent.PaintPolyLine(np+1, x.data(), y.data(), "icurlyarc");
 
         if (!full_circle)
            PaintDiamondCorners(parent, "curlyarc");
      }
 
      void Apply(TCurlyArc *c, Bool_t usenew = kTRUE)
      {
         c->SetCenter(usenew ? (newX1 + newX2) / 2 : (oldX1 + oldX2) / 2,
                      usenew ? (newY1 + newY2) / 2 : (oldY1 + oldY2) / 2);
         c->SetRadius(usenew ? (newX2 - newX1 + newY2 - newY1) / 4 : (oldX2 - oldX1 + oldY2 - oldY1) / 4);
      }
};
 
////////////////////////////////////////////////////////////////////////////////
/// Execute action corresponding to one event.
///
/// This member function is called when a TCurlyArc is clicked with the locator
///
/// If Left button clicked on one of the line end points, this point
/// follows the cursor until button is released.
///
/// if Middle button clicked, the line is moved parallel to itself
/// until the button is released.
 
void TCurlyArc::ExecuteEvent(Int_t event, Int_t px, Int_t py)
{
   if (!gPad || !gPad->IsEditable()) return;
 
   auto &parent = *gPad;
 
   auto inter = dynamic_cast<TCurlyArcInteractive *>(parent.Interactive(this));
 
   switch (event) {
 
   case kArrowKeyPress:
   case kButton1Down:
      inter = new TCurlyArcInteractive(this);
      parent.Interactive(this, inter);
 
      // No break !!!
   case kMouseMotion: {
      TCurlyArcInteractive dummy(this);
      if (!inter) inter = &dummy;
      inter->CalcPixelCoord(parent, dummy.oldX1, dummy.oldY1, dummy.oldX2, dummy.oldY2);
 
      if (!inter->SelectDiamondCorner(px, py, kFALSE)) {
         // refuse interactive changes
         parent.Interactive();
      } else {
         inter->SetCursor(parent, event == kButton1Down);
      }
      break;
   }
 
   case kArrowKeyRelease:
   case kButton1Motion:
      if (!inter)
         return;
 
      if (!inter->ProcessMouseMove(parent, px, py))
         return;
 
      inter->ApplyChanges(parent);
 
      if (inter->IsOpaque(parent)) {
         inter->Apply(this);
         parent.ShowGuidelines(this, event, inter->GetGuideChar(), true);
         parent.Modified(kTRUE);
      }
 
      break;
 
   case kButton1Up:
      if (inter && inter->IsOpaque(parent))
         parent.ShowGuidelines(this, event);
 
      if (gROOT->IsEscaped()) {
         gROOT->SetEscape(kFALSE);
         if (inter && inter->IsOpaque(parent)) {
            inter->Apply(this, kFALSE);
         }
      } else if (inter && !inter->IsOpaque(parent)) {
         inter->Apply(this);
      }
 
      parent.Modified();
      parent.Interactive(); // delete interactive object
      break;
   }
}
 
////////////////////////////////////////////////////////////////////////////////
/// Save primitive as a C++ statement(s) on output stream out
 
void TCurlyArc::SavePrimitive(std::ostream &out, Option_t *option)
{
   SavePrimitiveConstructor(
      out, Class(), "curlyarc",
      TString::Format("%g, %g, %g, %g, %g, %g, %g", fX1, fY1, fR1, fPhimin, fPhimax, fWaveLength, fAmplitude));
 
   SaveLineAttributes(out, "curlyarc", 1, 1, 1);
   if (!fIsCurly)
      out << "   curlyarc->SetWavy();\n";
 
   SavePrimitiveDraw(out, "curlyarc", option);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set Curly Arc center.
 
void TCurlyArc::SetCenter(Double_t x, Double_t y)
{
   fX1 = x;
   fY1 = y;
   Build();
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set Curly Arc radius.
 
void TCurlyArc::SetRadius(Double_t x)
{
   fR1 = x;
   Build();
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set Curly Arc minimum Phi.
 
void TCurlyArc::SetPhimin(Double_t x)
{
   fPhimin = x;
   Build();
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set Curly Arc maximum Phi.
 
void TCurlyArc::SetPhimax(Double_t x)
{
   fPhimax = x;
   Build();
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set default wave length.
 
void TCurlyArc::SetDefaultWaveLength(Double_t WaveLength)
{
   fgDefaultWaveLength = WaveLength;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set default wave amplitude.
 
void TCurlyArc::SetDefaultAmplitude(Double_t Amplitude)
{
   fgDefaultAmplitude = Amplitude ;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set default "IsCurly".
 
void TCurlyArc::SetDefaultIsCurly(Bool_t IsCurly)
{
   fgDefaultIsCurly = IsCurly;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Get default wave length.
 
Double_t TCurlyArc::GetDefaultWaveLength()
{
   return fgDefaultWaveLength;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Get default wave amplitude.
 
Double_t TCurlyArc::GetDefaultAmplitude()
{
   return fgDefaultAmplitude;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Get default "IsCurly".
 
Bool_t TCurlyArc::GetDefaultIsCurly()
{
   return fgDefaultIsCurly;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Return the bounding Box of the Line
 
Rectangle_t TCurlyArc::GetBBox()
{
   Rectangle_t bbox{0, 0, 0, 0};
   if (gPad) {
      Double_t R2 = fR1 * TMath::Abs(gPad->GetY2() - gPad->GetY1()) / TMath::Abs(gPad->GetX2() - gPad->GetX1());
      bbox.fX = gPad->XtoPixel(fX1 - fR1);
      bbox.fY = gPad->YtoPixel(fY1 + R2);
      bbox.fWidth = gPad->XtoPixel(fX1 + fR1) - bbox.fX;
      bbox.fHeight = gPad->YtoPixel(fY1 - R2) - bbox.fY;
   }
   return bbox;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Return the center of the BoundingBox as TPoint in pixels
 
TPoint TCurlyArc::GetBBoxCenter()
{
   TPoint p(0,0);
   if (gPad) {
      p.SetX(gPad->XtoPixel(fX1));
      p.SetY(gPad->YtoPixel(fY1));
   }
   return p;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set X coordinate of the center of the BoundingBox
 
void TCurlyArc::SetBBoxCenterX(const Int_t x)
{
   fX1 = GetXCoord(x);
   Build();
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set Y coordinate of the center of the BoundingBox
 
void TCurlyArc::SetBBoxCenterY(const Int_t y)
{
   fY1 = GetYCoord(y);
   Build();
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set left hand side of BoundingBox to a value
/// (resize in x direction on left)
 
void TCurlyArc::SetBBoxX1(const Int_t x)
{
   fR1 = fX1 - GetXCoord(x);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set right hand side of BoundingBox to a value
/// (resize in x direction on right)
 
void TCurlyArc::SetBBoxX2(const Int_t x)
{
   fR1 = GetXCoord(x) - fX1;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set top of BoundingBox to a value (resize in y direction on top)
 
void TCurlyArc::SetBBoxY1(const Int_t y)
{
   fR1 = GetYCoord(y) - fY1;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Set bottom of BoundingBox to a value
/// (resize in y direction on bottom)
 
void TCurlyArc::SetBBoxY2(const Int_t y)
{
   fR1 = fY1 - GetYCoord(y);
}