# Praat include file demo.praatinclude # Paul Boersma, 4 June 2010 procedure demo.erase demo 'demo.font$' demo Font size... demo.fontSize demo Select inner viewport... 0 100 0 100 demo Axes... 0 100 0 100 demo Erase all demo Paint rectangle... 'demo.backgroundColour$' 0 100 0 100 demo Colour... 'demo.foregroundColour$' endproc procedure demo.title .text$ .width = demo Text width (wc)... '.text$' if .width < 45 demo Text special... 7 left 90 half 'demo.font$' 2*demo.fontSize 0 '.text$' else demo Text special... 50 centre 90 half 'demo.font$' 2*demo.fontSize*45/.width 0 '.text$' endif demo.textY = 70 endproc procedure demo.centredTitle .text$ .width = demo Text width (wc)... '.text$' if .width < 45 demo Text special... 50 centre 90 half 'demo.font$' 2*demo.fontSize 0 '.text$' else demo Text special... 50 centre 90 half 'demo.font$' 2*demo.fontSize*45/.width 0 '.text$' endif demo.textY = 70 endproc procedure demo.bullet .text$ demo Text... 10-1.5 centre demo.textY-0.5 half • .width = demo Text width (wc)... '.text$' if .width < 85 demo Text... 10 left demo.textY half '.text$' else demo Text special... 10 left demo.textY half 'demo.font$' demo.fontSize*85/.width 0 '.text$' endif demo.textY -= 12 endproc procedure demo.text .text$ demo.textY += 4 .width = demo Text width (wc)... '.text$' if .width < 85 demo Text... 10 left demo.textY half '.text$' else demo Text special... 10 left demo.textY half 'demo.font$' demo.fontSize*85/.width 0 '.text$' endif demo.textY -= 12 endproc procedure demo.reference .text$ demo.textY += 5 demo Text special... 98 right demo.textY half 'demo.font$' demo.fontSize/1.5 0 '.text$' demo.textY -= 9 endproc procedure demo.source .text$ demo Text special... 2 left 2 bottom Times demo.fontSize/1.5 0 '.text$' endproc procedure demo.button .x1 .x2 .y .text$ demo Paint rounded rectangle... 'demo.buttonColour$' .x1 .x2 .y-4 .y+4 3 .width = demo Text width (wc)... '.text$' if .width < 0.9 * (.x2 - .x1) demo Text... (.x1+.x2)/2 centre .y half '.text$' else demo Text special... (.x1+.x2)/2 centre .y half 'demo.font$' demo.fontSize*0.9*(.x2-.x1)/.width 0 '.text$' endif endproc procedure demo.wait .duration Create Sound from formula... silence mono 0 .duration 44100 0 Play Remove endproc