Part - Windows & canvas setup
Include the Basic Screen Effects by Emily Short.
Include the Glulx Entry Points by Emily Short.
Include the Glimmr Canvas-Based Drawing by Erik Temple.
Figure of intro is the file “intro.jpg”.
Figure of both is the file "both.png".
Figure of allsun is the file “allsun.png”.
Figure of nosun is the file “nosun.png”.
The intro is a sprite. The image-ID of the intro is Figure of intro. The origin is { 10, 10 }. The associated canvas is the graphics-canvas.
The both is a sprite. The image-ID of the both is Figure of both. The origin is { 10, 10 }. The associated canvas is the graphics-canvas.
The allsun is a sprite. The image-ID of the allsun is Figure of allsun. The origin is { 10, 10 }. The associated canvas is the graphics-canvas.
The nosun is a sprite. The image-ID of the nosun is Figure of nosun. The origin is { 10, 10 }. The associated canvas is the graphics-canvas.
The graphics-window is a graphics g-window.
The graphics-canvas is a g-canvas.
The associated canvas of the graphics-window is the graphics-canvas.
The associated canvas of a g-element is the graphics-canvas.
The canvas-width of the graphics-canvas is 0. The canvas-height of the graphics-canvas is 0.
The background image of the graphics-canvas is Figure of intro.
To depict (f - a figure-name):
now the background image of the graphics-canvas is f;
refresh the graphics-window;
When play begins:
open up the graphics-window;
depict Figure of intro;
say “Opening text...”;
wait for any key;
clear the screen;
depict Figure of both.