use strict;
use warnings;
use SOOT ':all';

$gROOT->Reset();

my $c1 = TCanvas->new('c1','Tree Data Structure',200,10,750,940);
$c1->Range(0,-0.1,1,1.15);

$gBenchmark->Start('tree');

my $branchcolor = 26;
my $leafcolor   = 30;
my $basketcolor = 42;
my $offsetcolor = 43;

#title = TPaveLabel->new(.3,1.05,.8,1.13,c1.GetTitle());
my $title = TPaveLabel->new(.3,1.05,.8,1.13,'Tree Data Structure');
$title->SetFillColor(16);
$title->Draw();

my $tree = TPaveText->new(.01,.75,.15,1.00);
$tree->SetFillColor(18);
$tree->SetTextAlign(12);

my $tnt = $tree->AddText('Tree');
$tnt->SetTextAlign(22);
$tnt->SetTextSize(0.030);
$tree->AddText('fScanField');
$tree->AddText('fMaxEventLoop');
$tree->AddText('fMaxVirtualSize');
$tree->AddText('fEntries');
$tree->AddText('fDimension');
$tree->AddText('fSelectedRows');
$tree->Draw();

my $farm = TPavesText->new(.01,1.02,.15,1.1,9,'tr');
my $tfarm = $farm->AddText('CHAIN');
$tfarm->SetTextSize(0.024);
$farm->AddText('Collection');
$farm->AddText('of Trees');
$farm->Draw();

my $link = TLine->new(.15,.92,.80,.92);
$link->SetLineWidth(2);
$link->SetLineColor(1);
$link->Draw();
$link->DrawLine(.21,.87,.21,.275);
$link->DrawLine(.23,.87,.23,.375);
$link->DrawLine(.25,.87,.25,.775);
$link->DrawLine(.41,.25,.41,-.025);
$link->DrawLine(.43,.25,.43,.075);
$link->DrawLine(.45,.25,.45,.175);

my $branch0 = TPaveLabel->new(.20,.87,.35,.97,'Branch 0');
$branch0->SetTextSize(0.35);
$branch0->SetFillColor($branchcolor);
$branch0->Draw();

my $branch1 = TPaveLabel->new(.40,.87,.55,.97,'Branch 1');
$branch1->SetTextSize(0.35);
$branch1->SetFillColor($branchcolor);
$branch1->Draw();

my $branch2 = TPaveLabel->new(.60,.87,.75,.97,'Branch 2');
$branch2->SetTextSize(0.35);
$branch2->SetFillColor($branchcolor);
$branch2->Draw();

my $branch3 = TPaveLabel->new(.80,.87,.95,.97,'Branch 3');
$branch3->SetTextSize(0.35);
$branch3->SetFillColor($branchcolor);
$branch3->Draw();

my $leaf0 = TPaveLabel->new(.4,.75,.5,.8,'Leaf 0');
$leaf0->SetFillColor($leafcolor);
$leaf0->Draw();

my $leaf1 = TPaveLabel->new(.6,.75,.7,.8,'Leaf 1');
$leaf1->SetFillColor($leafcolor);
$leaf1->Draw();

my $leaf2 = TPaveLabel->new(.8,.75,.9,.8,'Leaf 2');
$leaf2->SetFillColor($leafcolor);
$leaf2->Draw();

my $firstevent = TPaveText->new(.4,.35,.9,.4);
$firstevent->AddText('First event of each basket');
$firstevent->AddText('Array of fMaxBaskets Integers');
$firstevent->SetFillColor($basketcolor);
$firstevent->Draw();

my $basket0 = TPaveLabel->new(.4,.25,.5,.3,'Basket 0');
$basket0->SetFillColor($basketcolor);
$basket0->Draw();

my $basket1 = TPaveLabel->new(.6,.25,.7,.3,'Basket 1');
$basket1->SetFillColor($basketcolor);
$basket1->Draw();

my $basket2 = TPaveLabel->new(.8,.25,.9,.3,'Basket 2');
$basket2->SetFillColor($basketcolor);
$basket2->Draw();

my $offset = TPaveText->new(.55,.15,.9,.2);
$offset->AddText('Offset of events in fBuffer');
$offset->AddText('Array of fEventOffsetLen Integers');
$offset->AddText('(if variable length structure);');
$offset->SetFillColor($offsetcolor);
$offset->Draw();

my $buffer = TPaveText->new(.55,.05,.9,.1);
$buffer->AddText('Basket buffer');
$buffer->AddText('Array of fBasketSize chars');
$buffer->SetFillColor($offsetcolor);
$buffer->Draw();

my $zipbuffer = TPaveText->new(.55,-.05,.75,.0);
$zipbuffer->AddText('Basket compressed buffer');
$zipbuffer->AddText('(if compression);');
$zipbuffer->SetFillColor($offsetcolor);
$zipbuffer->Draw();

my $ar1 = TArrow->new();
$ar1->SetLineWidth(2);
$ar1->SetLineColor(1);
$ar1->SetFillStyle(1001);
$ar1->SetFillColor(1);
$ar1->DrawArrow(.21,.275,.39,.275,0.015,'|>');
$ar1->DrawArrow(.23,.375,.39,.375,0.015,'|>');
$ar1->DrawArrow(.25,.775,.39,.775,0.015,'|>');
$ar1->DrawArrow(.50,.775,.59,.775,0.015,'|>');
$ar1->DrawArrow(.70,.775,.79,.775,0.015,'|>');
$ar1->DrawArrow(.50,.275,.59,.275,0.015,'|>');
$ar1->DrawArrow(.70,.275,.79,.275,0.015,'|>');
$ar1->DrawArrow(.45,.175,.54,.175,0.015,'|>');
$ar1->DrawArrow(.43,.075,.54,.075,0.015,'|>');
$ar1->DrawArrow(.41,-.025,.54,-.025,0.015,'|>');

my $ldot = TLine->new(.95,.92,.99,.92);
$ldot->SetLineStyle(3);
$ldot->Draw();
$ldot->DrawLine(.9,.775,.99,.775);
$ldot->DrawLine(.9,.275,.99,.275);
$ldot->DrawLine(.55,.05,.55,0);
$ldot->DrawLine(.9,.05,.75,0);

my $pname = TText->new(.46,.21,'fEventOffset');
$pname->SetTextFont(72);
$pname->SetTextSize(0.018);
$pname->Draw();
$pname->DrawText(.44,.11,'fBuffer');
$pname->DrawText(.42,.01,'fZipBuffer');
$pname->DrawText(.26,.81,'fLeaves = TObjArray of TLeaf');
$pname->DrawText(.24,.40,'fBasketEvent');
$pname->DrawText(.22,.31,'fBaskets = TObjArray of TBasket');
$pname->DrawText(.20,1.0,'fBranches = TObjArray of TBranch');

my $ntleaf = TPaveText->new(0.30,.42,.62,.7);
$ntleaf->SetTextSize(0.014);
$ntleaf->SetFillColor($leafcolor);
$ntleaf->SetTextAlign(12);
$ntleaf->AddText('fLen: number of fixed elements');
$ntleaf->AddText('fLenType: number of bytes of data type');
$ntleaf->AddText('fOffset: relative to Leaf0-fAddress');
$ntleaf->AddText('fNbytesIO: number of bytes used for I/O');
$ntleaf->AddText('fIsPointer: True if pointer');
$ntleaf->AddText('fIsRange: True if leaf has a range');
$ntleaf->AddText('fIsUnsigned: True if unsigned');
$ntleaf->AddText('*fLeafCount: points to Leaf counter');
$ntleaf->AddText(' ');
$ntleaf->AddLine(0,0,0,0);
$ntleaf->AddText('fName = Leaf name');
$ntleaf->AddText('fTitle = Leaf type (see Type codes)');
$ntleaf->Draw();

my $type = TPaveText->new(.65,.42,.95,.7);
$type->SetTextAlign(12);
$type->SetFillColor($leafcolor);
$type->AddText(' ');
$type->AddText('C : a character string');
$type->AddText('B : an 8 bit signed integer');
$type->AddText('b : an 8 bit unsigned integer');
$type->AddText('S : a 16 bit signed short integer');
$type->AddText('s : a 16 bit unsigned short integer');
$type->AddText('I : a 32 bit signed integer');
$type->AddText('i : a 32 bit unsigned integer');
$type->AddText('F : a 32 bit floating point');
$type->AddText('D : a 64 bit floating point');
$type->AddText('TXXXX : a class name TXXXX');
$type->Draw();

my $typecode = TPaveLabel->new(.7,.68,.9,.72,'fType codes');
$typecode->SetFillColor($leafcolor);
$typecode->Draw();

$ldot->DrawLine(.4,.75,.30,.7);
$ldot->DrawLine(.5,.75,.62,.7);

my $ntbasket = TPaveText->new(0.02,-0.07,0.35,.25);
$ntbasket->SetFillColor($basketcolor);
$ntbasket->SetTextSize(0.014);
$ntbasket->SetTextAlign(12);
$ntbasket->AddText('fNbytes: Size of compressed Basket');
$ntbasket->AddText('fObjLen: Size of uncompressed Basket');
$ntbasket->AddText('fDatime: Date/Time when written to store');
$ntbasket->AddText('fKeylen: Number of bytes for the key');
$ntbasket->AddText('fCycle : Cycle number');
$ntbasket->AddText('fSeekKey: Pointer to Basket on file');
$ntbasket->AddText('fSeekPdir: Pointer to directory on file');
$ntbasket->AddText("fClassName: 'TBasket'");
$ntbasket->AddText('fName: Branch name');
$ntbasket->AddText('fTitle: Tree name');
$ntbasket->AddText(' ');
$ntbasket->AddLine(0,0,0,0);
$ntbasket->AddText('fNevBuf: Number of events in Basket');
$ntbasket->AddText('fLast: pointer to last used byte in Basket');
$ntbasket->Draw();

$ldot->DrawLine(.4,.3,0.02,0.25);
$ldot->DrawLine(.5,.25,0.35,-.07);
$ldot->DrawLine(.5,.3,0.35,0.25);

my $ntbranch = TPaveText->new(0.02,0.40,0.18,0.68);
$ntbranch->SetFillColor($branchcolor);
$ntbranch->SetTextSize(0.015);
$ntbranch->SetTextAlign(12);
$ntbranch->AddText('fBasketSize');
$ntbranch->AddText('fEventOffsetLen');
$ntbranch->AddText('fMaxBaskets');
$ntbranch->AddText('fEntries');
$ntbranch->AddText('fAddress of Leaf0');
$ntbranch->AddText(' ');
$ntbranch->AddLine(0,0,0,0);
$ntbranch->AddText('fName: Branchname');
$ntbranch->AddText('fTitle: leaflist');
$ntbranch->Draw();

$ldot->DrawLine(.2,.97,.02,.68);
$ldot->DrawLine(.35,.97,.18,.68);
$ldot->DrawLine(.35,.87,.18,.40);

my $basketstore = TPavesText->new(.8,-0.088,0.952,-0.0035,7,'tr');
$basketstore->SetFillColor(28);
$basketstore->AddText('Baskets');
$basketstore->AddText('Stores');
$basketstore->Draw();
$c1->Update();

$gBenchmark->Show('tree');

$gApplication->Run;