~drizzle-trunk/drizzle/development

$im->string(gdSmallFont,($width - $sm_border - (gdSmallFont->width * length($tmptime))),($height - ($sm_border) - gdSmallFont->height), $tmptime, $grey3);

513

514

# right bar

515

$poly1 = new GD::Polygon;

516

$poly1->addPt($width,0);

517

$poly1->addPt(($width - $sm_border),$sm_border);

518

$poly1->addPt(($width - $sm_border),($height - $sm_border));

519

$poly1->addPt($width,$height);

520

$im->filledPolygon($poly1, $grey3);

521

$im->stringUp(gdSmallFont,($width - 10),($height - (2 * $sm_border)), "Made by Luuk de Boer - 1997 (c)", $blue);

522

#below bar

523

$poly2 = new GD::Polygon;

524

$poly2->addPt(0,$height);

525

$poly2->addPt($sm_border,($height - $sm_border));

526

$poly2->addPt(($width - $sm_border),($height - $sm_border));

527

$poly2->addPt($width,$height);

528

$im->filledPolygon($poly2, $grey2);

529

530

# do the black line around where in you will print ... (must be done at last

531

# but is hard to develop with ... but the filled grey must be done first :-)

532

$im->filledRectangle($left_border,$up_border,($width - ($right_border)),($height-$down_border),$grey4);

533

534

535

# print the nice title ...

536

$titlebar = "MySQL Benchmark results"; # head title ...

537

$titlebar1 = "Compare $opt_cmp "; # sub title

538

$header2 = "seconds/test"; # header value

539

$center = ($width / 2) - ((gdLargeFont->width * length($titlebar)) / 2);

540

$center1 = ($width / 2) - ((gdSmallFont->width * length($titlebar1)) / 2);

541

$center2 = ($width_greyfield/2) - ((gdSmallFont->width*length($header2))/2);

542

$bovenkant = $sm_border * 3;

543

$bovenkant1 = $bovenkant + gdLargeFont->height + (.5*$sm_border);

544

$bovenkant2 = $height - $down_border + (1*$sm_border) + (gdSmallFont->width*(length($xhigh)+3));

545

$im->string(gdLargeFont,($center),($bovenkant + 1), $titlebar, $grey3);

546

$im->string(gdLargeFont,($center),($bovenkant), $titlebar, $red);

547

$im->string(gdSmallFont,($center1),($bovenkant1), $titlebar1, $black);

548

$im->string(gdSmallFont,($left_border + $center2),($bovenkant2), $header2, $black);

549

550

$xlength = $width - $left_border - $right_border;

551

$lines = 10; # hard coded number of dashed lines

552

$xverh = $xlength / $xhigh;

553

# print " de verhouding ===> $xverh --- $xlength -- $xhigh \n";

554

555

$xstep = ($xhigh / $lines) * $xverh;

556

$teller = 0;

557

# make the nice dashed lines and print the values ...

558

for ($i = 0; $i <= $lines; $i++) {

559

$st2 = ($left_border) + ($i * $xstep);

560

$im->dashedLine($st2,($height-$down_border),$st2,($up_border), $grey3);

561

if (($i != 0) && ($teller == 2)) {

562

$st3 = sprintf("%.2f", $i*($xhigh/$lines));

563

$im->stringUp(gdTinyFont,($st2 - (gdSmallFont->height/2)),($height - $down_border +(.5*$sm_border) + (gdSmallFont->width*(length($xhigh)+3))), $st3, $black);

564

$teller = 0;

565

}

566

$teller++;

567

}

568

$im->rectangle($left_border,$up_border,($width - ($right_border)),($height-$down_border),$black);

569

}

570

571

sub legend {

572

# make the legend ...

573

$legxbegin = $left_border;

574

575

$legybegin = $height - $down_border + (2*$sm_border) + (gdSmallFont->width * (length($xhigh) + 3)) + gdSmallFont->height;

576

$legxend = $legxbegin + $max_len_le + (4*$legend_block);

577

$legxend = $legxbegin + $width_greyfield;

578

$legyend = $legybegin + $max_high_le;

579

$im->filledRectangle($legxbegin,$legybegin,$legxend,$legyend,$grey4);

580

$im->rectangle($legxbegin,$legybegin,$legxend,$legyend,$black);

581

# calculate the space for the legend .....

582

$c = 0; $i = 1;

583

$legybegin += $legend_block;

584

foreach $key (@key_order) {

585

$xtmp = $legxbegin + $legend_block;

586

$ytmp = $legybegin + ($c * (gdSmallFont->height +2));

587

$xtmp1 = $xtmp + $legend_block;

588

$ytmp1 = $ytmp + gdSmallFont->height;

589

$im->filledRectangle($xtmp,$ytmp,$xtmp1,$ytmp1,$tot{$key}{'color'});

590

$im->rectangle($xtmp,$ytmp,$xtmp1,$ytmp1,$black);

591

$tmp = $key;

592

$tmp =~ s/-cmp-$opt_cmp//i;

593

$giflegend = sprintf "%-24.24s: %-40.40s",$tmp,$tot{$key}{'server'};

594

$xtmp2 = $xtmp1 + $legend_block;

595

$im->string(gdSmallFont,$xtmp2,$ytmp,"$giflegend",$black);

596

$c++;

597

$i++;

598

# print "$c $i -> $giflegend\n";

599

}

600

601

}

602

603

sub lines {

604

605

$g = 0;

606

$i = 0;

607

$ybegin = $up_border + ((($#key_order + 2)/2)*$step);

608

$xbegin = $left_border;

609

foreach $key (sort {$a cmp $b} keys %op) {

610

next if ($key =~ /TOTALS/i);

611

$c = 0;

612

# print "key - $key\n";

613

foreach $server (@key_order) {

614

$tot1{$server}{$key}->[1] = 1 if ($tot1{$server}{$key}->[1] == 0);

615

$entry = $tot1{$server}{$key}->[0]/$tot1{$server}{$key}->[1];

616

$ytmp = $ybegin + ($i * $step) ;

617

$xtmp = $xbegin + ($entry * $xverh) ;

618

$ytmp1 = $ytmp + $step;

619

# print "$server -- $entry --x $xtmp -- y $ytmp - $c\n";

620

$entry1 = sprintf("%.2f", $entry);

621

if ($entry < $xhigh) {

622

$im->filledRectangle($xbegin, $ytmp, $xtmp, $ytmp1, $tot{$server}{'color'});

623

$im->rectangle($xbegin, $ytmp, $xtmp, $ytmp1, $black);

624

# print the seconds behind the bar (look below for another entry)

625

# this entry is for the bars that are not greater then the max width

626

# of the grey field ...

627

# $im->string(gdTinyFont,(($xtmp+3),($ytmp),"$entry1",$black));

628

# if you want the seconds in the color of the bar just uncomment it (below)

629

# $im->string(gdTinyFont,(($xtmp+3),($ytmp),"$entry1",$tot{$server}{'color'}));

630

} else {

631

$im->filledRectangle($xbegin, $ytmp, ($xbegin + ($xhigh*$xverh)), $ytmp1, $tot{$server}{'color'});

632

$im->rectangle($xbegin, $ytmp, ($xbegin + ($xhigh*$xverh)), $ytmp1, $black);

633

634

# print the seconds behind the bar (look below for another entry)

635

# here is the seconds printed behind the bar is the bar is too big for

636

# the graph ... (seconds is greater then xhigh ...)

637

$im->string(gdTinyFont, ($xbegin + ($xhigh*$xverh)+3),($ytmp),"$entry1",$black);

638

# if you want the seconds in the color of the bar just uncomment it (below)

639

# $im->string(gdTinyFont, ($xbegin + ($xhigh*$xverh)+3),($ytmp),"$entry1",$colors[$c]);

640

}

641

$c++;

642

$i++;

643

}

644

# see if we can center the text between the bars ...

645

$ytmp2 = $ytmp1 - (((($c)*$step) + gdSmallFont->height)/2);

646

$im->string(gdSmallFont,($sm_border*2),$ytmp2,$key, $black);

647

$i++;

648

}

649

}

650

651

652

sub gif {

653

my ($name) = @_;

654

$name_gif = $name . ".gif";

655

print "name --> $name_gif\n";

656

open (GIF, "> $name_gif") || die "Can't open $name_gif: $!\n";

657

print GIF $im->gif;

658

close (GIF);

659

}

660

Older »