%eden /* load pres environment */ cd("gel"); include("run.e"); cd("../htmlenv"); autocalc=0; include("run.eden"); cd("../pres"); include("interface.gel"); include("mods.eden"); autocalc=1; /* load the 3D room model */ cd("../room3d"); include("run.e"); /* load the presentation file */ cd(".."); include("presentation.e"); ## remove inessential components from the display (using the SCreen layOUT notation): %scout display disp = ; ## change size and position of components xy_plane_pos = {40, 350}; xz_plane_pos = xy_plane_pos + {200, 0}; window view_plane = { type: DONALD box: [{5, 5}, {395, 345}] pict: "VIEWPLANE" xmin: -(view_width / 2) ymin: -(view_height / 2) xmax: (view_width / 2) - 1 ymax: (view_height / 2) - 1 bgcolor: "white" fgcolor: "black" border: 2 relief: "sunken" }; %eden screen = []; tcl(".menu.show invoke screen"); %angel scoutbox.display = "disp"; scoutbox.height = 440; scoutbox.width = 404; inputbox.width = 40; %eden ## some modifications that make the presentation environment ## look better on windows inputbox_height = 5; inputbox_width = 30; pres_slideheader=" 
"; pres_slidefooter="
";