Reorganized source code and directory tree.

git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@1375 416bcca6-2ee7-4201-b75f-2eb2f807beb1

share/grafx2/scripts/pic_db_Pic2isometric.lua

@@ -0,0 +1,79 @@
+--PICTURE (part of): 2 Isometric v0.1b
+--by Richard Fhager 
+--http://hem.fyristorg.com/dawnbringer/
+-- Email: dawnbringer@hem.utfors.se
+-- MSN:   annassar@hotmail.com
+--
+-- Color 0 is assumed to be the background
+--
+
+iso = {{0, 0, 1, 1, 1, 1, 0, 0},
+       {1, 1, 1, 1, 1, 1, 1, 1},
+       {2, 2, 1, 1, 1, 1, 3, 3},
+       {2, 2, 2, 2, 3, 3, 3, 3},
+       {2, 2, 2, 2, 3, 3, 3, 3},
+       {2, 2, 2, 2, 3, 3, 3, 3},
+       {0, 0, 2, 2, 3, 3, 0, 0}}
+
+isowidth  = 8
+isoheight = 7
+
+xoff = 0.5
+yoff = 0
+
+xstep = 4
+ystep = 2
+zstep = 4
+
+-- Part of screen from top-left (4 = 1/4)
+xsize = 5
+ysize = 4
+
+
+w, h = getpicturesize()
+
+xo = math.floor(w * xoff)
+
+-- just don't render more than can be fittted right now
+w = math.floor(w / xsize)
+h = math.floor(h / ysize)
+
+
+
+for y = 0, h - 1, 1 do
+  for x = 0, w - 1, 1 do
+
+    isox = x * xstep - y * xstep
+    isoy = y * ystep + x * ystep
+    
+    cb = getbackuppixel(x,y)
+
+    --
+    if cb ~= 0 then
+
+      r,g,b = getbackupcolor(cb);
+      c1 = matchcolor(r,g,b);
+      c2 = matchcolor(r+64, g+64, b+64);
+      c3 = matchcolor(r-64, g-64, b-64);
+      
+      cols = {0,c1,c2,c3}
+
+      for iy = 1, isoheight, 1 do
+       for ix = 1, isowidth, 1 do
+ 
+         i = iso[iy][ix]
+         c = cols[i+1]   
+         if i ~= 0 then putpicturepixel(xo + isox+ix-1, isoy+iy-1, c); end
+         
+       end
+      end
+
+    end
+    --
+
+  end
+end
+
+
+
+