Opened by Gast at 2005-08-08 15:27
Hy,
Ich will ein Diagramm mit dem GD Modul programmieren und habe bereits folgenden Code:
Mein Problem ist dieser Teil hier:
Da sollte die Schleife doch eigentlich solange durchgeführt werden biss $i nicht mehr kleiner als 200 ist. Aber ich bekomme nur 1 linie mehr. Ich will nämlich im Diagramm von unten nach oben linien ziehen im abstand von 10 pixel zueinander.
mfg Gravity
Ich will ein Diagramm mit dem GD Modul programmieren und habe bereits folgenden Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/env perl
use GD;
use strict;
print "Content-type: image/png\n\n";
my $diagramm = new GD::Image(800,600);
my $white = $diagramm->colorAllocate(255,255,255);
my $blue = $diagramm->colorAllocate(0,0,255);
my $black = $diagramm->colorAllocate(0,0,0);
$diagramm->line(80,500,700,500,$black);
$diagramm->line(80,40,80,500,$black);
$diagramm->string(gdLargeFont,30,510,"Tage",$blue);
$diagramm->stringUp(gdLargeFont,30,140,"Temperatur",$blue);
my $i;
for($i = 0, $i<200, $i+10){
$diagramm->line(80,490-$i,700,490-$i,$black);
}
binmode STDOUT;
print $diagramm->png;
Mein Problem ist dieser Teil hier:
Da sollte die Schleife doch eigentlich solange durchgeführt werden biss $i nicht mehr kleiner als 200 ist. Aber ich bekomme nur 1 linie mehr. Ich will nämlich im Diagramm von unten nach oben linien ziehen im abstand von 10 pixel zueinander.
mfg Gravity