Update pendulum.bat

Author: IcarusLivesHF

pendulum/pendulum.bat

@@ -26,7 +26,7 @@ for /l %%# in () do (
 			   "angle+=angleV",^
 			   "bob.x=length * !sin:x=angle! + origin.x",^
 			   "bob.y=length * !cos:x=angle! + origin.y",^
-			   "angleV=angleV * 99000 / 100000" & rem DAMPENING
+			   "angleV=angleV * 99900 / 100000" & rem DAMPENING
 
 		%@line% !origin.x! !origin.y! !bob.x! !bob.y!
 		set "scrn=!scrn!!$line!"
@@ -84,4 +84,4 @@ set @line=for %%# in (1 2) do if %%#==2 ( for /f "tokens=1-5" %%1 in ("^!args^!"
 	)%\n%
 	set "$line=^!$line^!%\e%[0m"%\n%
 )) else set args=
-goto :eof
+goto :eof