# Solfege - free ear training software
# Copyright (C) 2004, 2005, 2011, 2016 Tom Cato Amundsen
# License is GPL, see file COPYING

header {
    lesson_id = "csound-intonation-p4-15cent"
        module = idbyname
        help = "idbyname-intonation"
        title = _("Is the interval flat, in tune or sharp? %s cent wrong") % 15
        lesson_heading = _("Just interval: %s") % _("Perfect Fourth") + " (4:3)"
        filldir = vertic
}

question {
 name = _i("intonation|flat")
 set=0
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 220.000000
   i1 + 1 290.802772
 """)
}

question {
 name = _i("intonation|in tune")
 set=0
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 220.000000
   i1 + 1 293.333333
 """)
}

question {
 name = _i("intonation|sharp")
 set=0
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 220.000000
   i1 + 1 295.885915
 """)
}

question {
 name = _i("intonation|flat")
 set=1
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 233.081881
   i1 + 1 308.094805
 """)
}

question {
 name = _i("intonation|in tune")
 set=1
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 233.081881
   i1 + 1 310.775841
 """)
}

question {
 name = _i("intonation|sharp")
 set=1
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 233.081881
   i1 + 1 313.480207
 """)
}

question {
 name = _i("intonation|flat")
 set=2
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 246.941651
   i1 + 1 326.415075
 """)
}

question {
 name = _i("intonation|in tune")
 set=2
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 246.941651
   i1 + 1 329.255534
 """)
}

question {
 name = _i("intonation|sharp")
 set=2
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 246.941651
   i1 + 1 332.120710
 """)
}

question {
 name = _i("intonation|flat")
 set=3
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 261.625565
   i1 + 1 345.824726
 """)
}

question {
 name = _i("intonation|in tune")
 set=3
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 261.625565
   i1 + 1 348.834087
 """)
}

question {
 name = _i("intonation|sharp")
 set=3
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 261.625565
   i1 + 1 351.869636
 """)
}

question {
 name = _i("intonation|flat")
 set=4
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 277.182631
   i1 + 1 366.388534
 """)
}

question {
 name = _i("intonation|in tune")
 set=4
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 277.182631
   i1 + 1 369.576841
 """)
}

question {
 name = _i("intonation|sharp")
 set=4
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 277.182631
   i1 + 1 372.792893
 """)
}

question {
 name = _i("intonation|flat")
 set=5
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 293.664768
   i1 + 1 388.175130
 """)
}

question {
 name = _i("intonation|in tune")
 set=5
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 293.664768
   i1 + 1 391.553024
 """)
}

question {
 name = _i("intonation|sharp")
 set=5
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 293.664768
   i1 + 1 394.960312
 """)
}

question {
 name = _i("intonation|flat")
 set=6
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 311.126984
   i1 + 1 411.257225
 """)
}

question {
 name = _i("intonation|in tune")
 set=6
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 311.126984
   i1 + 1 414.835978
 """)
}

question {
 name = _i("intonation|sharp")
 set=6
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 311.126984
   i1 + 1 418.445874
 """)
}

question {
 name = _i("intonation|flat")
 set=7
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 329.627557
   i1 + 1 435.711852
 """)
}

question {
 name = _i("intonation|in tune")
 set=7
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 329.627557
   i1 + 1 439.503409
 """)
}

question {
 name = _i("intonation|sharp")
 set=7
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 329.627557
   i1 + 1 443.327961
 """)
}

question {
 name = _i("intonation|flat")
 set=8
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 349.228231
   i1 + 1 461.620627
 """)
}

question {
 name = _i("intonation|in tune")
 set=8
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 349.228231
   i1 + 1 465.637642
 """)
}

question {
 name = _i("intonation|sharp")
 set=8
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 349.228231
   i1 + 1 469.689613
 """)
}

question {
 name = _i("intonation|flat")
 set=9
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 369.994423
   i1 + 1 489.070018
 """)
}

question {
 name = _i("intonation|in tune")
 set=9
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 369.994423
   i1 + 1 493.325897
 """)
}

question {
 name = _i("intonation|sharp")
 set=9
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 369.994423
   i1 + 1 497.618811
 """)
}

question {
 name = _i("intonation|flat")
 set=10
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 391.995436
   i1 + 1 518.151634
 """)
}

question {
 name = _i("intonation|in tune")
 set=10
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 391.995436
   i1 + 1 522.660581
 """)
}

question {
 name = _i("intonation|sharp")
 set=10
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 391.995436
   i1 + 1 527.208765
 """)
}

question {
 name = _i("intonation|flat")
 set=11
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 415.304698
   i1 + 1 548.962534
 """)
}

question {
 name = _i("intonation|in tune")
 set=11
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 415.304698
   i1 + 1 553.739597
 """)
}

question {
 name = _i("intonation|sharp")
 set=11
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 1.25 0.95 0.8 0.6 0.4 0.2 
   i1 0 1 415.304698
   i1 + 1 558.558230
 """)
}
