Miscellany

From: Lars Stoltenow <penma@penma.de>Date: Sat, 17 Oct 2009 18:26:11 +0200Subject: [PATCH] fix textures to work on GLSL capable systemsmissed a translation for abs(), and the fact that GLSL doesn't treat boolean values as numbers like Perl does.--- lib/Dizzy/Perl2GLSL.pm        |    2 +- lib/Dizzy/Textures/Default.pm |    2 +- 2 files changed, 2 insertions(+), 2 deletions(-)diff --git a/lib/Dizzy/Perl2GLSL.pm b/lib/Dizzy/Perl2GLSL.pmindex 3d0b350..982aeed 100644--- a/lib/Dizzy/Perl2GLSL.pm+++ b/lib/Dizzy/Perl2GLSL.pm@@ -168,7 +168,7 @@ sub make_code { 	} elsif ($op[0] eq "negate") { 		return "-(" . make_code($op[1], $symtab, $in_sub) . ")"; -	} elsif ($op[0] =~ /^(sqrt|sin|cos|pow|log)$/) {+	} elsif ($op[0] =~ /^(sqrt|sin|cos|pow|log|abs)$/) { 		# builtin functions 		return "$op[0](" . join(", ", map { make_code($_, $symtab, $in_sub) } @op[1..$#op]) . ")"; 	} else {diff --git a/lib/Dizzy/Textures/Default.pm b/lib/Dizzy/Textures/Default.pmindex 9a090df..2eb3a06 100644--- a/lib/Dizzy/Textures/Default.pm+++ b/lib/Dizzy/Textures/Default.pm@@ -144,7 +144,7 @@ my @textures = ( 		function => sub { 			my ($x, $y) = @_; 			my $dist = sqrt($x ** 2 + $y ** 2);-			return abs($dist - 0.5) < 0.1;+			return abs($dist - 0.5) < 0.1 ? 1.0 : 0.0; 		}, 	}, );-- 1.6.4.msysgit.0