Colour bars/Display: Difference between revisions

Content added Content deleted

Inline

@@ Line 128: / Line 128: @@
 use GD ;
-my %colors = ( "white" => [ 255 , 255 , 255 ] , "red" => [255 , 0 , 0 ] ,
+my %colors = ( white => [ 255 , 255 , 255 ] , red => [255 , 0 , 0 ] ,
-      "green" => [ 0 , 255 , 0 ] , "blue" => [ 0 , 0 , 255 ] ,
+      green => [ 0 , 255 , 0 ] , blue => [ 0 , 0 , 255 ] ,
-      "magenta" => [ 255 , 0 , 255 ] , "yellow" => [ 255 , 255 , 0 ] ,
+      magenta => [ 255 , 0 , 255 ] , yellow => [ 255 , 255 , 0 ] ,
-      "cyan" => [ 0 , 255 , 255 ] , "black" => [ 0 , 0 , 0 ] ) ;
+      cyan => [ 0 , 255 , 255 ] , black => [ 0 , 0 , 0 ] ) ;
 my $barwidth = 160 / 8 ;
 my $image = new GD::Image( 160 , 100 ) ;
 my $start = 0 ;
-foreach my $color ( keys %colors ) {
+foreach my $rgb ( values %colors ) {
-   my $paintcolor = $image->colorAllocate( @{$colors{ $color }} ) ;
+   my $paintcolor = $image->colorAllocate( @$rgb ) ;
    $image->filledRectangle( $start * $barwidth , 0 , $start * $barwidth +
 	 $barwidth - 1 , 99 , $paintcolor ) ;