Merge pull request #45 from chrisws/0_11_20

0 12 6

Author: chrisws

ChangeLog

@@ -1,3 +1,15 @@
+2016-05-14 (0.12.6)
+	Fix to prevent const overwriting another const
+	Updated MID and REPLACE for performance
+	POINT(0) and POINT(1) values now reset with each program run
+	POINT(-x, -y) now provides access to the base screen image. For better
+	performance use the IMAGE.SAVE sub command
+
+2016-05-07 (0.12.6)
+	Reverted LASTX/LASTY. Data was already accessible via POINT command
+	Reverted getPixel from SCREEN for performance. Can still access this by passed -ve x/y values
+	Reverted using var V_FUNC handling for int sys vars due to eval issues
+
 2016-04-26 (0.12.6)
 	Fixes for unit case sensitivity
 

samples/distro-examples/apps/calc.bas

@@ -209,7 +209,7 @@ func showResult(result)
   rect out_x, out_y STEP w, h,  COLOR bgnd FILLED
   rect out_x - 1, out_y - 1 STEP w + 1, h + 1,  COLOR 2
 
-  local out_str = chr(27) + "[15 C" + result
+  local out_str = result
   local out_str_w = textwidth(result)
   local x = (out_x + w) - out_str_w - textwidth("0")
 

samples/distro-examples/examples/Circles_and_arcs.bas

@@ -1,4 +1,4 @@
-color 0,15
+color 1,2:cls
 circle ymax/4,ymax/4,ymax/8
 circle ymax/2,ymax/4,ymax/8 FILLED
 circle ymax/4,ymax/2,ymax/8,.75

samples/distro-examples/examples/Predefined_Variables.bas

@@ -1,6 +1,5 @@
 ? cat(1);"Predefined Variables";cat(0)
-? "OS VER =0x"; HEX$(osver)
-? "SB VER =0x"; HEX$(sbver)
+? "SB VER ="; sbver
 ? "PI     ="; pi
 ? "XMAX   ="; xmax
 ? "YMAX   ="; ymax

samples/distro-examples/games/UFO.bas

@@ -514,7 +514,7 @@ sub play_game(byref game)
 
   game.game_over = false
   while game.game_over = false
-    pause true: k = inkey
+    k = inkey(1)
     if len(k) = 2 then
       ch = asc(right(k,1))
       select case ch

samples/distro-examples/games/sokoban.bas

@@ -6,12 +6,9 @@
 ' Jelly 2004
 ' Http://rel.betterwebber.com
 
-const Xmax = 640
-const Ymax = 480
 const Xmid = Xmax/2
 const Ymid = Ymax/2
 const Lens = 256
-const PI = 3.141593
 const rings = 14
 const bands = 15
 const ringradius = 100

samples/distro-examples/graphics/3dtorus.bas

@@ -2,8 +2,9 @@
 ' CHART examples
 
 const VN=10
+const LINECHART=1
+const BARCHART=2
 dim v(1 to VN)
-
 randomize timer
 
 cls

samples/distro-examples/graphics/Charts.bas

@@ -33,6 +33,7 @@ for i=1 to 15
 	calcPt
 	line sx,sy
 next
+showpage
 end
 
 '

samples/distro-examples/graphics/Simple_3D.bas

@@ -69,4 +69,16 @@ if (sim(0) <> 50) then
   throw "dim sim not tasty"
 fi
 
+rem ==6866== Source and destination overlap in memcpy(0xfc3f090, 0xfc3f096, 13)
+rem ==6866==    at 0x4C32513: memcpy@@GLIBC_2.14 (in /usr/lib/valgrind/vgpreload_memcheck-amd64-linux.so)
+rem ==6866==    by 0x48D4A3: memcpy (string3.h:53)
+rem ==6866==    by 0x48D4A3: comp_text_line_let (scan.c:1874)
+
+dim dots(1)
+dots(0).y = 100
+dots(0).dy = 1
+dots(0).y += dots(0).dy
+if (dots(0).y != 101) then
+   throw "not 101 !!!"
+endif