in reply to Re^2: Dealing with rectangular images
in thread Dealing with rectangular images
What are the values of $picwidth and $picheight that do and don't work?
When I wrapped it in a loop to try a handful of ratios, I couldn't find any that didn't. That's why How do I post a question effectively recommends providing actual code with data that evidences the problem.
use warnings; use strict; foreach my $picheight ( 10, 11, 13, 1000 ) { foreach my $picwidth ( 10 .. 20, 1501 ) { my $ratio = $picwidth / $picheight; my $backcolor; if ($picwidth / $picheight > 1.5) { $backcolor="#f5f5f5"; } else { $backcolor="#ffffff"; } my $color1 = ($picwidth / $picheight > 1.5) ? '#f5f5f5' : '#ff +ffff'; my $color2 = ($ratio > 1.5) ? '#f5f5f5' : '#ffffff'; local $, = "\t"; local $\ = "\n"; print $picwidth, $picheight, sprintf('%8.3f',$ratio), $backcol +or, $color1, $color1, ($backcolor eq $color1 ? 'EQ' : 'ERR'), ($color +2 eq $color1 ? 'EQ' : 'ERR'); } }
OUTPUT:
10 10 1.000 #ffffff #ffffff #ffffff EQ EQ 11 10 1.100 #ffffff #ffffff #ffffff EQ EQ 12 10 1.200 #ffffff #ffffff #ffffff EQ EQ 13 10 1.300 #ffffff #ffffff #ffffff EQ EQ 14 10 1.400 #ffffff #ffffff #ffffff EQ EQ 15 10 1.500 #ffffff #ffffff #ffffff EQ EQ 16 10 1.600 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 17 10 1.700 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 18 10 1.800 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 19 10 1.900 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 20 10 2.000 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 1501 10 150.100 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 10 11 0.909 #ffffff #ffffff #ffffff EQ EQ 11 11 1.000 #ffffff #ffffff #ffffff EQ EQ 12 11 1.091 #ffffff #ffffff #ffffff EQ EQ 13 11 1.182 #ffffff #ffffff #ffffff EQ EQ 14 11 1.273 #ffffff #ffffff #ffffff EQ EQ 15 11 1.364 #ffffff #ffffff #ffffff EQ EQ 16 11 1.455 #ffffff #ffffff #ffffff EQ EQ 17 11 1.545 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 18 11 1.636 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 19 11 1.727 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 20 11 1.818 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 1501 11 136.455 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 10 13 0.769 #ffffff #ffffff #ffffff EQ EQ 11 13 0.846 #ffffff #ffffff #ffffff EQ EQ 12 13 0.923 #ffffff #ffffff #ffffff EQ EQ 13 13 1.000 #ffffff #ffffff #ffffff EQ EQ 14 13 1.077 #ffffff #ffffff #ffffff EQ EQ 15 13 1.154 #ffffff #ffffff #ffffff EQ EQ 16 13 1.231 #ffffff #ffffff #ffffff EQ EQ 17 13 1.308 #ffffff #ffffff #ffffff EQ EQ 18 13 1.385 #ffffff #ffffff #ffffff EQ EQ 19 13 1.462 #ffffff #ffffff #ffffff EQ EQ 20 13 1.538 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 1501 13 115.462 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ 10 1000 0.010 #ffffff #ffffff #ffffff EQ EQ 11 1000 0.011 #ffffff #ffffff #ffffff EQ EQ 12 1000 0.012 #ffffff #ffffff #ffffff EQ EQ 13 1000 0.013 #ffffff #ffffff #ffffff EQ EQ 14 1000 0.014 #ffffff #ffffff #ffffff EQ EQ 15 1000 0.015 #ffffff #ffffff #ffffff EQ EQ 16 1000 0.016 #ffffff #ffffff #ffffff EQ EQ 17 1000 0.017 #ffffff #ffffff #ffffff EQ EQ 18 1000 0.018 #ffffff #ffffff #ffffff EQ EQ 19 1000 0.019 #ffffff #ffffff #ffffff EQ EQ 20 1000 0.020 #ffffff #ffffff #ffffff EQ EQ 1501 1000 1.501 #f5f5f5 #f5f5f5 #f5f5f5 EQ EQ
|
|---|