Commits

Trammell Hudson committed 0c453af

Swap x and y

Comments (0)

Files changed (1)

 
 #printf "height=%d width=%d offset=%d\n", $height, $width, $offset;
 my $pitch = $width * 3; # should be rounded?
-my $scale = 6;
-my $off_x = $scale * 3;
-my $off_y = $scale * 3;
+my $scale = 5;
+my $off_x = $scale * 2;
+my $off_y = $scale * 2;
 
 print <<"";
 <svg xmlns="http://www.w3.org/2000/svg">
 
 		print <<"";
 			<circle
-				cx = "$px"
-				cy = "$py"
+				cy = "$px"
+				cx = "$py"
 				r = "$radius"
 				stroke = "#ff0000"
 				fill = "none"
 	}
 }
 
-my $width_px = $scale * $width + $off_x * 2;
-my $height_px = $scale * $height + $off_y * 2;
+my $width_px = $scale * $width + $off_x*2;
+my $height_px = $scale * $height + $off_y*2;
 
 print <<"";
 <rect
 	x = "0"
 	y = "0"
-	width = "$width_px"
-	height = "$height_px"
+	height = "$width_px"
+	width = "$height_px"
 	stroke = "#ff0000"
 	fill = "none"
 />