DIRECTORY Icons USING [DrawIconProc, IconFlavor, IconRef, IconRep, NewIcon], Imager USING [black, MaskRectangleI, SetColor, SetFont, SetXYI, ShowChar], ImagerFont USING [Find, Font, Scale], SurfaceIcons USING []; SurfaceIconsImpl: CEDAR PROGRAM IMPORTS Icons, Imager, ImagerFont EXPORTS SurfaceIcons ~ BEGIN SurfaceToolIcon: PUBLIC PROC[] RETURNS [icon: Icons.IconFlavor] ~ BEGIN iconRef: Icons.IconRef _ NEW[Icons.IconRep _ [ bits: ALL[0], label: TRUE, invertLabel: FALSE, lx: 4, ly: 4, lw: 56, lh: 56, proc: PaintSurfaceToolIcon]]; icon _ Icons.NewIcon[iconRef]; END; SurfaceViewerIcon: PUBLIC PROC[] RETURNS [icon: Icons.IconFlavor] ~ BEGIN iconRef: Icons.IconRef _ NEW[Icons.IconRep _ [ bits: ALL[0], label: TRUE, invertLabel: FALSE, lx: 4, ly: 4, lw: 56, lh: 56, proc: PaintSurfaceViewerIcon]]; icon _ Icons.NewIcon[iconRef]; END; PaintSurfaceToolIcon: Icons.DrawIconProc ~ BEGIN mathFont, textFont: ImagerFont.Font; Imager.SetColor[context, Imager.black]; Imager.MaskRectangleI[context, 50, 50, 10, 10]; Imager.SetXYI[context, 15, 40]; END; PaintSurfaceViewerIcon: Icons.DrawIconProc ~ BEGIN END; END. SurfaceIconsImpl.mesa James Rauen, July 14, 1986 5:22:02 pm PDT mathFont _ ImagerFont.Scale[ImagerFont.Find["xerox/pressfonts/cmex60"], 30]; textFont _ ImagerFont.Find["xerox/pressfonts/cmex60"]; Imager.SetFont[context, mathFont]; Imager.ShowChar[context, '\122]; Κ΄˜J˜™J™)J™—codešΟk ˜ Kšœœ7˜BKšœœ>˜JKšœ œ˜%Kšœ œ˜K˜—K˜šΠlnœœ˜Kšœ˜Kšœ˜!Kšœ˜K˜š Οnœœœœ˜Gšœœ˜.Kšœœ˜ Kšœœ˜ Kšœ œ˜K˜K˜K˜K˜K˜—K˜Kšœ˜K˜—š Ÿœœœœ˜Išœœ˜.Kšœœ˜ Kšœœ˜ Kšœ œ˜K˜K˜K˜K˜K˜—K˜Kšœ˜K˜—šŸœ˜0K˜$K™LK™6K˜'K˜/K™"K˜K™ Kšœ˜K˜—šŸœ˜2Kšœ˜K˜K˜——K˜Kšœ˜—…—b&