EVE/macros/reve_quad_test.C

   1 // $Header$
   2
   3 Reve::QuadSet* reve_quad_test(Float_t x=0, Float_t y=0, Float_t z=0,
   4                               Int_t num=100)
   5 {
   6   TRandom r(0);
   7
   8   gStyle->SetPalette(1, 0);
   9
  10   Reve::QuadSet* q = new Reve::QuadSet("RectangleXY");
  11   q->Reset(Reve::QuadSet::QT_RectangleXY, kFALSE, 32);
  12   for (Int_t i=0; i<num; ++i) {
  13     q->AddQuad(r.Uniform(-10, 10), r.Uniform(-10, 10), r.Uniform(-10, 10),
  14                r.Uniform(0.2, 1), r.Uniform(0.2, 1));
  15     q->QuadValue(r.Uniform(0, 130));
  16   }
  17   q->RefitPlex();
  18
  19   Reve::ZTrans& t = q->RefHMTrans();
  20   t.SetPos(x, y, z);
  21
  22   gReve->AddRenderElement(q);
  23   gReve->Redraw3D();
  24
  25   return q;
  26 }
  27
  28 Reve::QuadSet* reve_quad_test_circ()
  29 {
  30   TRandom r(0);
  31
  32   gStyle->SetPalette(1, 0);
  33
  34   Reve::QuadSet* q = new Reve::QuadSet("Pepe");
  35   q->Reset(Reve::QuadSet::QT_RectangleXY, kFALSE, 32);
  36
  37   Float_t R = 10, dW = 1, dH = .5;
  38   for (Int_t i=0; i<12; ++i) {
  39     Float_t x = R * TMath::Cos(TMath::TwoPi()*i/12);
  40     Float_t y = R * TMath::Sin(TMath::TwoPi()*i/12);
  41     q->AddQuad(x-dW, y-dH, r.Uniform(-1, 1), 2*dW, 2*dH);
  42     q->QuadValue(r.Uniform(0, 130));
  43   }
  44   q->RefitPlex();
  45
  46   Reve::ZTrans& t = q->RefHMTrans();
  47   t.SetPos(0, 0, 300);
  48
  49   gReve->AddRenderElement(q);
  50   gReve->Redraw3D();
  51
  52   return q;
  53 }
  54
  55 Reve::QuadSet* reve_quad_test_hex(Float_t x=0, Float_t y=0, Float_t z=0,
  56                               Int_t num=100)
  57 {
  58   TRandom r(0);
  59
  60   gStyle->SetPalette(1, 0);
  61
  62   {
  63     Reve::QuadSet* q = new Reve::QuadSet("HexagonXY");
  64     q->Reset(Reve::QuadSet::QT_HexagonXY, kFALSE, 32);
  65     for (Int_t i=0; i<num; ++i) {
  66       q->AddHexagon(r.Uniform(-10, 10), r.Uniform(-10, 10), r.Uniform(-10, 10),
  67                     r.Uniform(0.2, 1));
  68       q->QuadValue(r.Uniform(0, 120));
  69     }
  70     q->RefitPlex();
  71
  72     Reve::ZTrans& t = q->RefHMTrans();
  73     t.SetPos(x, y, z);
  74
  75     gReve->AddRenderElement(q);
  76     gReve->Redraw3D();
  77   }
  78
  79   {
  80     Reve::QuadSet* q = new Reve::QuadSet("HexagonYX");
  81     q->Reset(Reve::QuadSet::QT_HexagonYX, kFALSE, 32);
  82     for (Int_t i=0; i<num; ++i) {
  83       q->AddHexagon(r.Uniform(-10, 10), r.Uniform(-10, 10), r.Uniform(-10, 10),
  84                     r.Uniform(0.2, 1));
  85       q->QuadValue(r.Uniform(0, 120));
  86     }
  87     q->RefitPlex();
  88
  89     Reve::ZTrans& t = q->RefHMTrans();
  90     t.SetPos(x, y, z);
  91
  92     gReve->AddRenderElement(q);
  93     gReve->Redraw3D();
  94   }
  95
  96   return q;
  97 }