reset;
commands slideshow-config.txt;
table page IN "ODBC" "data/diagram.xls":
[], page_width, page_height;
read table page;
table params IN "ODBC" "data/randomwalk.mdb":
[], T;
read table params;
shell ("gswin32c -dNOPAUSE -dBATCH" &
" -dDEVICEWIDTHPOINTS=" & page_width &
" -dDEVICEHEIGHTPOINTS=" & page_height &
" -sDEVICE=pdfwrite -sOutputFile=diagram/out.pdf -f diagram/out.ps");
print "Creating GIF file ...";
shell ("convert -delay 15" &
" -page " & page_width & "x" & page_height &
" diagram/out.ps" &
" diagram/out.gif");
end;
#print "Creating MPEG file ...";
#shell ("convert" &
# " -page " & page_width & "x" & page_height &
# " diagram/out.ps" &
# " diagram/out.mpeg");
print "Creating PNG files ...";
shell ("convert" &
" -page " & page_width & "x" & page_height &
" diagram/out.ps" &
" diagram/out-%d.png");
param code_java_sz;
param code_java{1..code_java_sz} symbolic;
param code_html_sz;
param code_html{1..code_html_sz} symbolic;
read code_java_sz, {i in 1..code_java_sz} code_java[i];
51
''
''
''
''
''
'
'
'Return
'
''
''
''
''
''
read code_html_sz, {i in 1..code_html_sz} code_html[i];
12
''
''
' '
' '
' '
''
' '
' 
'
' Return
'
' '
''
''
param file symbolic;
param str symbolic;
let file := "diagram/slideshow.htm";
for{i in 1..code_java_sz}
{
let str := code_java[i];
let str := gsub(str,"\${T}",T & "");
print str > (file);
}
close (file);
for{t in 1..T}
{
let file := sprintf("diagram/page-%d.htm",t-1);
for{i in 1..code_html_sz}
{
let str := code_html[i];
let str := gsub(str,"\${wait}",(if t < T then 1 else 5) & "");
let str := gsub(str,"\${next}",sprintf("page-%d.htm",if t < T then t-1+1 else 0));
let str := gsub(str,"\${image}",sprintf("out-%d.png",t-1));
let str := gsub(str,"\${frame}",t & "");
print str > (file);
}
close (file);
}