Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/eXene/examples/plaid/plaid.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/examples/plaid/plaid.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 844, Wed Jun 20 20:39:15 2001 UTC revision 845, Thu Jun 21 16:25:49 2001 UTC
# Line 47  Line 47 
47        val pen =        val pen =
48          D.newPen [D.PV_Foreground W.EXB.color1, D.PV_Function D.OP_Xor]          D.newPen [D.PV_Foreground W.EXB.color1, D.PV_Function D.OP_Xor]
49        val idlePen = pen        val idlePen = pen
50        val timer = CML.timeout(Time.fromMilliseconds 100)        val timer = CML.timeOutEvt(Time.fromMilliseconds 100)
51    
52        fun realizePlaid {win,sz,env} = let        fun realizePlaid {win,sz,env} = let
53          val drawwin = D.drawableOfWin win          val drawwin = D.drawableOfWin win
# Line 103  Line 103 
103          and doIdle (size as SIZE{wid,ht}) = let          and doIdle (size as SIZE{wid,ht}) = let
104    
105            fun redraw () = let            fun redraw () = let
106              val bnd = min(wid,ht) div 2              val bnd = Int.min(wid,ht) div 2
107              fun loop i =              fun loop i =
108                if i > bnd then ()                if i > bnd then ()
109                else (                else (

Legend:
Removed from v.844  
changed lines
  Added in v.845

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0