# Solfege - ear training for GNOME
# Copyright (C) 2004, 2005 Tom Cato Amundsen
# License is GPL, see file COPYING

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

question {
 name = _i("intonation|flat")
 set=0
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 220.000000
   i1 0 1 328.478594
 """)
}

question {
 name = _i("intonation|in tune")
 set=0
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 220.000000
   i1 0 1 330.000000
 """)
}

question {
 name = _i("intonation|sharp")
 set=0
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 220.000000
   i1 0 1 331.528453
 """)
}

question {
 name = _i("intonation|flat")
 set=1
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 233.081881
   i1 0 1 348.010948
 """)
}

question {
 name = _i("intonation|in tune")
 set=1
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 233.081881
   i1 0 1 349.622821
 """)
}

question {
 name = _i("intonation|sharp")
 set=1
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 233.081881
   i1 0 1 351.242160
 """)
}

question {
 name = _i("intonation|flat")
 set=2
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 246.941651
   i1 0 1 368.704756
 """)
}

question {
 name = _i("intonation|in tune")
 set=2
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 246.941651
   i1 0 1 370.412476
 """)
}

question {
 name = _i("intonation|sharp")
 set=2
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 246.941651
   i1 0 1 372.128106
 """)
}

question {
 name = _i("intonation|flat")
 set=3
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 261.625565
   i1 0 1 390.629081
 """)
}

question {
 name = _i("intonation|in tune")
 set=3
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 261.625565
   i1 0 1 392.438348
 """)
}

question {
 name = _i("intonation|sharp")
 set=3
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 261.625565
   i1 0 1 394.255995
 """)
}

question {
 name = _i("intonation|flat")
 set=4
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 277.182631
   i1 0 1 413.857095
 """)
}

question {
 name = _i("intonation|in tune")
 set=4
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 277.182631
   i1 0 1 415.773946
 """)
}

question {
 name = _i("intonation|sharp")
 set=4
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 277.182631
   i1 0 1 417.699676
 """)
}

question {
 name = _i("intonation|flat")
 set=5
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 293.664768
   i1 0 1 438.466319
 """)
}

question {
 name = _i("intonation|in tune")
 set=5
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 293.664768
   i1 0 1 440.497152
 """)
}

question {
 name = _i("intonation|sharp")
 set=5
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 293.664768
   i1 0 1 442.537391
 """)
}

question {
 name = _i("intonation|flat")
 set=6
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 311.126984
   i1 0 1 464.538883
 """)
}

question {
 name = _i("intonation|in tune")
 set=6
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 311.126984
   i1 0 1 466.690476
 """)
}

question {
 name = _i("intonation|sharp")
 set=6
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 311.126984
   i1 0 1 468.852034
 """)
}

question {
 name = _i("intonation|flat")
 set=7
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 329.627557
   i1 0 1 492.161802
 """)
}

question {
 name = _i("intonation|in tune")
 set=7
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 329.627557
   i1 0 1 494.441335
 """)
}

question {
 name = _i("intonation|sharp")
 set=7
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 329.627557
   i1 0 1 496.731427
 """)
}

question {
 name = _i("intonation|flat")
 set=8
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 349.228231
   i1 0 1 521.427266
 """)
}

question {
 name = _i("intonation|in tune")
 set=8
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 349.228231
   i1 0 1 523.842347
 """)
}

question {
 name = _i("intonation|sharp")
 set=8
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 349.228231
   i1 0 1 526.268614
 """)
}

question {
 name = _i("intonation|flat")
 set=9
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 369.994423
   i1 0 1 552.432945
 """)
}

question {
 name = _i("intonation|in tune")
 set=9
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 369.994423
   i1 0 1 554.991634
 """)
}

question {
 name = _i("intonation|sharp")
 set=9
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 369.994423
   i1 0 1 557.562175
 """)
}

question {
 name = _i("intonation|flat")
 set=10
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 391.995436
   i1 0 1 585.282317
 """)
}

question {
 name = _i("intonation|in tune")
 set=10
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 391.995436
   i1 0 1 587.993154
 """)
}

question {
 name = _i("intonation|sharp")
 set=10
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 391.995436
   i1 0 1 590.716547
 """)
}

question {
 name = _i("intonation|flat")
 set=11
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 415.304698
   i1 0 1 620.085014
 """)
}

question {
 name = _i("intonation|in tune")
 set=11
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 415.304698
   i1 0 1 622.957046
 """)
}

question {
 name = _i("intonation|sharp")
 set=11
 csound(load("share/sinus.orc"), """
   f1 0 4096 10 1 
   i1 0 1 415.304698
   i1 0 1 625.842381
 """)
}
