# Commits

committed 24316cb Draft

scale around average x/y

• Participants
• Parent commits 75b4686

# File lace-maker

` use Math::Geometry::Voronoi;`
` `
` my \$size = 300;`
`-my \$num = 10;`
`+my \$num = 200;`
`+my \$scale = 0.8;`
` `
` my @points = map { [ rand \$size, rand \$size ] } 0..\$num;`
` `
` `
` 	# Find the center point of the polygon.`
` 	# Throw away any polygons that are outside of the box.`
`-	for (my \$i = 0 ; \$i < \$count-1 ; \$i++)`
`+	for (my \$i = 0 ; \$i < \$count ; \$i++)`
` 	{`
` 		my (\$x0,\$y0) = @{ \$poly->[\$i+0] };`
`-		my (\$x1,\$y1) = @{ \$poly->[\$i+1] };`
`-		my \$a0 = \$x0*\$y1 - \$x1*\$y0;`
`+		\$cx += \$x0;`
`+		\$cy += \$y0;`
` `
`-		\$cx += (\$x0 + \$x1) * \$a0;`
`-		\$cy += (\$y0 + \$y1) * \$a0;`
`-		\$a += \$a0 / 2;`
` 	}`
` `
`-	\$cx /= 6 * \$a;`
`-	\$cy /= 6 * \$a;`
`-	printf STDERR "%.5f, %.5f\n", \$cx, \$cy;`
`+	\$cx /= \$count;`
`+	\$cy /= \$count;`
`+	#printf STDERR "%.5f, %.5f\n", \$cx, \$cy;`
` `
` 	print <<"";`
` 		<g transform	= "translate(\$cx,\$cy)" >`
` 		<path`
`-			transform	= "scale(0.5)"`
`+			transform	= "scale(\$scale)"`
` 			stroke		= "#ff0000"`
` 			fill		= "none"`
` 			stroke-width	= "0.1px"`