add scale option

2 files changed, 8 insertions, 2 deletions

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) {
diff --git a/lib/App/VRR/Fakedisplay.pm.PL b/lib/App/VRR/Fakedisplay.pm.PL
index 13a97cf..d051f2c 100644
--- a/lib/App/VRR/Fakedisplay.pm.PL
+++ b/lib/App/VRR/Fakedisplay.pm.PL
@@ -90,7 +90,7 @@ sub new {
 	my $self = {
 		width => $opt{width} || 140,
 		height => $opt{height} || 40,
-		scale => 10,
+		scale => $opt{scale} || 10,
 		offset_x => 0,
 		offset_y => 0,
 	};