push @farben, Wx::Colour->new( @$_ ) for @farbdef;
	push @pinsel, 
		[Wx::Pen->new($_,5,&Wx::wxSOLID),
		 Wx::Pen->new($_, 1, &Wx::wxSOLID),
		 Wx::Brush->new($_, &Wx::wxSOLID)  ] for @farben;
	$dc->SetPen( $pinsel[$nr][0] );
	$dc->DrawLine( $xmax-30, $y, $xmax, $y);