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

SCM Repository

[smlnj] Annotation of /sml/trunk/src/eXene/bitmaps/right-ptr-bm.sml
ViewVC logotype

Annotation of /sml/trunk/src/eXene/bitmaps/right-ptr-bm.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (view) (download)

1 : monnier 2 (* right-ptr-bm.sml
2 :     * this file created by bm2mlx
3 :     * from: mit/right_ptr mit/right_ptrmsk
4 :     * on: Wed Mar 6 15:25:27 EST 1991
5 :     *)
6 :     structure RightPtrBM =
7 :     struct
8 :     val right_ptr = EXeneBase.IMAGE{
9 :     sz = Geometry.SIZE{wid=16, ht=16},
10 :     data = [[
11 :     "\000\000",
12 :     "\000\008",
13 :     "\000\024",
14 :     "\000\056",
15 :     "\000\120",
16 :     "\000\248",
17 :     "\001\248",
18 :     "\003\248",
19 :     "\007\248",
20 :     "\000\248",
21 :     "\000\216",
22 :     "\001\136",
23 :     "\001\128",
24 :     "\003\000",
25 :     "\003\000",
26 :     "\000\000"
27 :     ]]
28 :     }
29 :     val right_ptrmsk = EXeneBase.IMAGE{
30 :     sz = Geometry.SIZE{wid=16, ht=16},
31 :     data = [[
32 :     "\000\012",
33 :     "\000\028",
34 :     "\000\060",
35 :     "\000\124",
36 :     "\000\252",
37 :     "\001\252",
38 :     "\003\252",
39 :     "\007\252",
40 :     "\015\252",
41 :     "\015\252",
42 :     "\001\252",
43 :     "\003\220",
44 :     "\003\204",
45 :     "\007\128",
46 :     "\007\128",
47 :     "\003\000"
48 :     ]]
49 :     }
50 :     end (* RightPtrBM *)

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