1(kern-mk-sprite-set 'ss_u4_shapes        32 32   16 16   0 0   "shapes.png")
2(kern-mk-sprite-set 'ss_frame            16 16    4  4   0 0   "frame.png")
3(kern-mk-sprite-set 'ss_u4_charset       8  16    8 16   0 0   "charset.png")
4
5(kern-mk-sprite 's_null           ss_u4_shapes 1 126 #f 0 )
6(kern-mk-sprite 'ls_whirlpool     ss_u4_charset 4 28 #f 0 )
7
8(kern-mk-sprite 's_frame_ulc   ss_frame 1  0 #f 0 )
9(kern-mk-sprite 's_frame_td    ss_frame 1  1 #f 0 )
10(kern-mk-sprite 's_frame_urc   ss_frame 1  2 #f 0 )
11(kern-mk-sprite 's_frame_endu  ss_frame 1  3 #f 0 )  ; top of vertical bar, currently unused
12(kern-mk-sprite 's_frame_tr    ss_frame 1  4 #f 0 )
13(kern-mk-sprite 's_frame_plus  ss_frame 1  5 #f 0 )  ; center crosspiece, currently unused
14(kern-mk-sprite 's_frame_tl    ss_frame 1  6 #f 0 )
15(kern-mk-sprite 's_frame_vert  ss_frame 1  7 #f 0 )
16(kern-mk-sprite 's_frame_llc   ss_frame 1  8 #f 0 )
17(kern-mk-sprite 's_frame_tu    ss_frame 1  9 #f 0 )
18(kern-mk-sprite 's_frame_lrc   ss_frame 1 10 #f 0 )
19(kern-mk-sprite 's_frame_endb  ss_frame 1 11 #f 0 )  ; bottom of vertical bar, currently unused
20(kern-mk-sprite 's_frame_endl  ss_frame 1 12 #f 0 )
21(kern-mk-sprite 's_frame_horz  ss_frame 1 13 #f 0 )
22(kern-mk-sprite 's_frame_endr  ss_frame 1 14 #f 0 )
23(kern-mk-sprite 's_frame_dot   ss_frame 1 15 #f 0 )  ; disconnected disk, currently unused
24
25(kern-set-frame s_frame_ulc
26                s_frame_urc
27                s_frame_llc
28                s_frame_lrc
29                s_frame_td
30                s_frame_tu
31                s_frame_tl
32                s_frame_tr
33                s_null
34                s_frame_horz
35                s_frame_vert
36                s_frame_endl
37                s_frame_endr)
38(kern-set-ascii ss_u4_charset 32)
39(kern-set-cursor ls_whirlpool)
40