Hypography Science Forums: modest - Viewing Profile - Hypography Science Forums

use GD;
use Math::Trig;

#***** Starting Values *****

print "Image Width: "; $w = <STDIN>;
print "Image Height: "; $h = <STDIN>;
print "Polygon number of sides: "; $p = <STDIN>;
print "Distance between dots in pixels, example '8': "; $s = <STDIN>;
print "Diameter of dots, example '5': "; $d = <STDIN>;
print "Type '1' for centered polygons and '2' for non-centered polygons: "; $coo = <STDIN>;
print "Type '1' for poly groups and '2' for even odd groups: "; $peo = <STDIN>;
$i = 1;
$diagonal_brush = new GD::Image($d,$d);

#***** Put NonPoly File in Array *****

if ($peo == 2){
  open FILEC, "evenodd.txt" or die("could not open nonfigs file");
  @nonPoly = <FILEC>;
  close FILEC;
  $nonPolyN=0; 
}
else {
  open FILEC, "nonpoly2.txt" or die("could not open nonfigs file");
  @nonPoly = <FILEC>;
  close FILEC;
  $nonPolyN=0; 
}

    
#***** Create Image / Colors *****

$im = new GD::Image($w,$h);
$orange = $im->colorAllocate(255,145,0);
$white = $im->colorAllocate(255,255,255);
$blue = $im->colorAllocate(0,0,255);
$black = $im->colorAllocate(0,0,0);
$red = $im->colorAllocate(255,0,0);
$darkblue = $im->colorAllocate(0,0,255);
$yellow = $im->colorAllocate(255,255,0);
$gray = $im->colorAllocate(145,145,145);
$lightgray = $im->colorAllocate(220,220,220);
$darkgreen = $im->colorAllocate(0,109,0);
$yellowgreen = $im->colorAllocate(186,255,0);
$lightblue = $im->colorAllocate(80,80,255);
$lightgreen = $im->colorAllocate(80,255,80);
$gold = $im->colorAllocate(240,198,0);
$im->interlaced('false');
$im->rectangle(0,0,$w-1,$h-1,$white);
if ($h > 2 && $w > 2) {$im->fill(1,1,$white);}


if ($coo == 1){
  $x = $w/2; $y = $h/2;
  fill();
  $i++;
  for($n = 1; $y < ($h-$s);$n++){
    $x = $w/2; $y = $h/2;
    $x = $x+($n*$s/2); $y = $y+($s*$p/(2*3.14159))+($s*($n-1)/(2*tan(deg2rad(360/(2*$p)))));
    for($t = 0; $t < $p; $t++){
      for($u = 1; $u <= $n; $u++){
        fill(); 
        $i++;
        $x = $x-($s*cos(deg2rad($t*360/$p))); $y = $y-($s*sin(deg2rad($t*360/$p)));
      }
    }
  }
}
else {
  $leftSide=0;
  $counter=1;
  while($counter <= int($p/4)){
    $theta = deg2rad(360/$p*$counter);
    $leftSide = $leftSide + $s*cos($theta);
    $counter++;
  }
  $rightSide = $leftSide + $s;
  $xStart = ($leftSide / ($leftSide+$rightSide) * $w) + $d + 3;
  $yStart = $h - $d - 3;
  $x = $xStart;
  $y = $yStart;
  fill();
  $i++;
  for($n=1;$n < $p;$n++){
    $theta = deg2rad(360/$p*$n);
    $x = $x - ($s*cos($theta));
    $y = $y - ($s*sin($theta));
    fill();
    $i++;
  }

  for($n=2;$n < ($w-2*$xStart)/$s;$n++){
    $theta = deg2rad(360/$p);
    $x = $xStart - ($s*$n*cos($theta));
    $y = $yStart - ($s*$n*sin($theta));
    fill();
    $i++;
    for ($middle=1;$middle<=$p-2;$middle++){
      $theta = $theta + deg2rad(360/$p);
      for ($side=1;$side<=$n;$side++){
        $x = $x - ($s*cos($theta));
        $y = $y - ($s*sin($theta));
        fill();
        $i++;      
      }      
    }    
  }
}

#***** Create Image File  *****

  open(PICTURE, ">nGon.png") or die("Cannot open file for writing");
  binmode PICTURE;
  print PICTURE $im->png;
  close PICTURE;
  
#***** Fill Triangle Subroutine   *****

sub fill{
  @words = split(/ /, $nonPoly[$nonPolyN]);
  if ($i>=1 && $i<=5 && $words[1] ne "even" && $words[1] ne "odd"){$color=$gray;}
  elsif ($words[0]==$i && $words[1] eq "twin"){$color=$orange;}
  elsif ($words[0]==$i && $words[1] eq "prime"){$color=$red;}
  elsif ($words[0]==$i && $words[1] eq "lone" && $words[2] eq "odd"){$color=$darkgreen;}
  elsif ($words[0]==$i && $words[1] eq "lone" && $words[2] eq "even"){$color=$darkblue;}
  elsif ($words[0]==$i && $words[1] eq "triplet"){$color=$yellowgreen;}
  elsif ($words[0]==$i && $words[1] eq "pair"){$color=$lightblue;}
  elsif ($words[0]==$i && $words[1] eq "even"){$color=$lightgreen;}
  elsif ($words[0]==$i && $words[1] eq "odd"){$color=$orange;}
  elsif ($words[0]==$i) {$color=$white;}
  else {$color = $black;}
  if ($i == $words[0]){$nonPolyN++;}
  
  $im->arc($x,$y,$d,$d,0,360,$color);
  $im->fill($x,$y,$color);
}