From 3ac2092193f48c76dbd3b49a98474346e1a4c690 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 28 Aug 2013 19:28:01 +0200 Subject: add scale option --- cgi/index.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'cgi') diff --git a/cgi/index.pl b/cgi/index.pl index 0667351..9141781 100644 --- a/cgi/index.pl +++ b/cgi/index.pl @@ -150,6 +150,11 @@ sub render_image { my $color = $self->param('color') || '255,208,0'; my $no_lines = $self->param('no_lines'); my $backend = $self->param('backend'); + my $scale = $self->param('scale'); + + if ($scale > 30) { + $scale = 30; + } my ( @grep_line, @grep_platform ); my $offset = 0; @@ -188,7 +193,8 @@ sub render_image { my $png = App::VRR::Fakedisplay->new( width => 180, height => $no_lines * 10, - color => [ split( qr{,}, $color ) ] + color => [ split( qr{,}, $color ) ], + scale => $scale, ); if ($errstr) { -- cgit v1.2.3