[tekui-devel] tekui: Improved parameters

[hg-notify at neoscientists.org]

details:   http://hg.teklib.org/tekui/rev/177b5ac4a826
changeset: 351:177b5ac4a826
user:      Timm S. Mueller <tmueller at neoscientists.org>
date:      Sat Feb 02 22:53:03 2008 +0100
description:
Improved parameters

diffs (51 lines):

diff -r 8e266bb9a2bf -r 177b5ac4a826 tek/app/plasma.lua
--- a/tek/app/plasma.lua	Sat Feb 02 21:43:24 2008 +0100
+++ b/tek/app/plasma.lua	Sat Feb 02 22:53:03 2008 +0100
@@ -45,10 +45,8 @@ function addgradient(sr, sg, sb, dr, dg,
 	end
 end
 
-addgradient(23,36,86,		  209,219,155, 	64)
-addgradient(209,219,155,	79,33,57, 		64)
-addgradient(79,33,57,		  209,130,255, 	64)
-addgradient(209,130,255, 	45,30,1,		  64)
+addgradient(209,219,155, 79,33,57, 68)
+addgradient(79,33,57, 209,130,255, 60)
 
 local sintab = { }
 for i = 0, 1023 do
@@ -81,21 +79,25 @@ function effect()
 			screen[i] = palette[cv]
 			i = i + 1
 
-			xc1 = (xc1 + 14) % 1024
-			xc2 = (xc2 + 11) % 1024
-			xc3 = (xc3 + 1009) % 1024
+			xc1 = (xc1 - 6) % 1024
+			xc2 = (xc2 - 9) % 1024
+			xc3 = (xc3 + 14) % 1024
 
 		end
 
-		yc1 = (yc1 + 17) % 1024
-		yc2 = (yc2 + 1011) % 1024
-		yc3 = (yc3 + 10) % 1024
+		yc1 = (yc1 + 8) % 1024
+		yc2 = (yc2 + 11) % 1024
+		yc3 = (yc3 - 18) % 1024
 
 	end
 
-	yp1 = (yp1 + 15) % 1024
-	yp2 = (yp2 + 14) % 1024
-	yp3 = (yp3 + 23) % 1024
+	yp1 = (yp1 - 9) % 1024
+	yp2 = (yp2 + 4) % 1024
+	yp3 = (yp3 + 5) % 1024
+
+	xp1 = (xp1 + 7) % 1024
+	xp2 = (xp2 - 2) % 1024
+	xp3 = (xp3 - 5) % 1024
 
 end