CVS: sml-dist/src/eXene/examples/add images.sml,1.3,1.4 splash.sml,1.3,1.4
Matthias Blume <[email protected]>
| Newsgroups | gmane.comp.lang.sml.smlnj.commits |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/smlnj/sml-dist/src/eXene/examples/add
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32471/examples/add
Modified Files:
images.sml splash.sml
Log Message:
merge Kansas changes to eXene into repository
Index: images.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/examples/add/images.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** images.sml 31 May 2004 23:10:41 -0000 1.3
--- images.sml 3 Mar 2006 03:33:15 -0000 1.4
***************
*** 35,47 ****
val topIndex = 6
! fun mkImage {x, y, wid, ht, data} = let
! val data = List.map (List.map Byte.stringToBytes) data
! in (
! PT{x=x, y=y},
! EXeneBase.IMAGE{sz = SIZE{wid=wid, ht=ht}, data = data}
! ) end
!
! val dive = mkImage {
! x=15,y=31, wid=16, ht=32,
data = [[
"\000\000",
--- 35,40 ----
val topIndex = 6
! val dive = (PT{x=15,y=31}, EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=16, ht=32},
data = [[
"\000\000",
***************
*** 78,84 ****
"\000\016"
]]
! }
! val stand = mkImage {
! x=0,y=31, wid=16, ht=32,
data = [[
"\000\000",
--- 71,77 ----
"\000\016"
]]
! })
! val stand = (PT{x=0,y=31}, EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=16, ht=32},
data = [[
"\000\000",
***************
*** 115,121 ****
"\007\192"
]]
! }
! val climb1 = mkImage {
! x=0,y=25, wid=16, ht=26,
data = [[
"\129\192",
--- 108,114 ----
"\007\192"
]]
! })
! val climb1 = (PT{x=0,y=25}, EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=16, ht=26},
data = [[
"\129\192",
***************
*** 146,152 ****
"\224\000"
]]
! }
! val climb2 = mkImage {
! x=0,y=25, wid=16, ht=26,
data = [[
"\129\192",
--- 139,145 ----
"\224\000"
]]
! })
! val climb2 = (PT{x=0,y=25}, EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=16, ht=26},
data = [[
"\129\192",
***************
*** 177,183 ****
"\224\000"
]]
! }
! val climb3 = mkImage {
! x=0,y=25, wid=16, ht=26,
data = [[
"\001\192",
--- 170,176 ----
"\224\000"
]]
! })
! val climb3 = (PT{x=0,y=25}, EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=16, ht=26},
data = [[
"\001\192",
***************
*** 208,214 ****
"\224\000"
]]
! }
! val climb4 = mkImage {
! x=0,y=25, wid=16, ht=26,
data = [[
"\129\192",
--- 201,207 ----
"\224\000"
]]
! })
! val climb4 = (PT{x=0,y=25}, EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=16, ht=26},
data = [[
"\129\192",
***************
*** 239,245 ****
"\224\000"
]]
! }
! val top1 = mkImage {
! x=8,y=41, wid=16, ht=42,
data = [[
"\000\028",
--- 232,238 ----
"\224\000"
]]
! })
! val top1 = (PT{x=8,y=41},EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=16, ht=42},
data = [[
"\000\028",
***************
*** 286,293 ****
"\007\112"
]]
! }
! val top2 = mkImage {
! x=10,y=35, wid=32, ht=36,
data = [[
"\000\000\000\016",
--- 279,286 ----
"\007\112"
]]
! })
! val top2 = (PT{x=10,y=35}, EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=32, ht=36},
data = [[
"\000\000\000\016",
***************
*** 328,334 ****
"\001\220\000\000"
]]
! }
! val top3 = mkImage {
! x=10,y=31, wid=32, ht=32,
data = [[
"\000\000\000\000",
--- 321,327 ----
"\001\220\000\000"
]]
! })
! val top3 = (PT{x=10,y=31}, EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=32, ht=32},
data = [[
"\000\000\000\000",
***************
*** 365,371 ****
"\001\220\000\000"
]]
! }
! val top4 = mkImage {
! x=8,y=31, wid=20, ht=32,
data = [[
"\000\000\000",
--- 358,364 ----
"\001\220\000\000"
]]
! })
! val top4 = (PT{x=8,y=31}, EXeneBase.IMAGE{
! sz = Geometry.SIZE{wid=20, ht=32},
data = [[
"\000\000\000",
***************
*** 402,406 ****
"\007\112\000"
]]
! }
val images = [
--- 395,399 ----
"\007\112\000"
]]
! })
val images = [
Index: splash.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/eXene/examples/add/splash.sml,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** splash.sml 31 May 2004 23:10:42 -0000 1.3
--- splash.sml 3 Mar 2006 03:33:15 -0000 1.4
***************
*** 9,15 ****
open Geometry EXeneBase Drawing Widget
- val min = Int.min
- val max = Int.max
-
fun bbox [] = RECT{x=0,y=0,wid=0,ht=0}
| bbox (PT{x,y}::pts) = let
--- 9,12 ----
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642