# 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-harmonic-min3-20cent"
        module = idbyname
        help = "idbyname-intonation"
        title = _("Is the interval flat, in tune or sharp? %s cent wrong") % 20
        lesson_heading = _("Just interval: %s") % _("Minor Third") + " (6:5)"
        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 0 1 260.967701
 """)
}

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 0 1 264.000000
 """)
}

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 0 1 267.067532
 """)
}

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 0 1 276.485648
 """)
}

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 0 1 279.698257
 """)
}

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 0 1 282.948194
 """)
}

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 0 1 292.926341
 """)
}

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 0 1 296.329981
 """)
}

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 0 1 299.773169
 """)
}

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 0 1 310.344647
 """)
}

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 0 1 313.950678
 """)
}

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 0 1 317.598610
 """)
}

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 0 1 328.798700
 """)
}

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 0 1 332.619157
 """)
}

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 0 1 336.484006
 """)
}

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 0 1 348.350088
 """)
}

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 0 1 352.397722
 """)
}

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 0 1 356.492386
 """)
}

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 0 1 369.064063
 """)
}

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 0 1 373.352380
 """)
}

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 0 1 377.690526
 """)
}

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 0 1 391.009754
 """)
}

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 0 1 395.553068
 """)
}

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 0 1 400.149174
 """)
}

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 0 1 414.260404
 """)
}

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 0 1 419.073878
 """)
}

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 0 1 423.943282
 """)
}

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 0 1 438.893609
 """)
}

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 0 1 443.993307
 """)
}

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 0 1 449.152261
 """)
}

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 0 1 464.991581
 """)
}

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 0 1 470.394523
 """)
}

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 0 1 475.860244
 """)
}

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 0 1 492.641420
 """)
}

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 0 1 498.365637
 """)
}

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 0 1 504.156367
 """)
}
