-----------------------------------

DarkAng

Thu May 12, 2005 1:46 am


Radio program

-----------------------------------

this is my first big turing project feel free to contribute ideas 
setscreen ("graphics:800;600")
setscreen ("offscreenonly")

var s,t:int
var font1, font2, y, x, c : int
x := 0
y := 0

%different fonts
font1 := Font.New ("comic sans ms:50:bold")
assert font1 > 0
font2 := Font.New ("comic sans ms:50:bold,italic,underline")
assert font2 > 0

%processes
process rh
%RH measures 1 to 8
Music.Play ("8>def+f+edadef+f+edgef+gdc+c+ef+ggf+ef+def+c+def+ag+f+g+ef+g+dc+c+deedc+dc+dc+ddc+c+c+c+ed+c+d+c+d+dc+c+d") 
%RH measures 9 to 17
Music.Play ("dc+g+e+f+g+c+bag+af+g+ac+ed+c+d+f+gaagf+gef+gdccd+ef+cef+gdc+c+ef+ggf+ef+def+cc+c+edc+")
%RH measures  18 to20
Music.Play ("dc+dcddc ccccd ccccdc+ c+c+c