templeos-info/public/Wb/Home/Src/Apps/Psalmody/Psalmody.HC.HTML

96 lines
5.9 KiB
HTML
Executable File

<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="generator" content="TempleOS V5.03">
<meta name="viewport" content="width=device-width">
<link rel="stylesheet" href="/style/templeos.css">
<script src="/script/templeos.js"></script>
<style type="text/css">
.cF0{color:#000000;background-color:#ffffff;}
.cF1{color:#0000aa;background-color:#ffffff;}
.cF2{color:#00aa00;background-color:#ffffff;}
.cF3{color:#00aaaa;background-color:#ffffff;}
.cF4{color:#aa0000;background-color:#ffffff;}
.cF5{color:#aa00aa;background-color:#ffffff;}
.cF6{color:#aa5500;background-color:#ffffff;}
.cF7{color:#aaaaaa;background-color:#ffffff;}
.cF8{color:#555555;background-color:#ffffff;}
.cF9{color:#5555ff;background-color:#ffffff;}
.cFA{color:#55ff55;background-color:#ffffff;}
.cFB{color:#55ffff;background-color:#ffffff;}
.cFC{color:#ff5555;background-color:#ffffff;}
.cFD{color:#ff55ff;background-color:#ffffff;}
.cFE{color:#ffff55;background-color:#ffffff;}
.cFF{color:#ffffff;background-color:#ffffff;}
</style>
</head>
<body>
<pre id="content">
<a name="l1"></a><span class=cF2>/*</span><span class=cF0>
<a name="l2"></a></span><span class=cF2>This uses four types of ctrls</span><span class=cF0>
<a name="l3"></a>
<a name="l4"></a></span><span class=cF2> 1) The pull-down menu.</span><span class=cF0>
<a name="l5"></a>
<a name="l6"></a></span><span class=cF2> 2) The </span><a href="/Wb/Kernel/KernelA.HH.HTML#l3065"><span class=cF4>CCtrl</span></a><span class=cF2> type for the tempo/stacatto sliders.</span><span class=cF0>
<a name="l7"></a>
<a name="l8"></a></span><span class=cF2> 3) The active </span><a href="/Wb/Kernel/KernelA.HH.HTML#l1367"><span class=cF4>CDoc</span></a><span class=cF2> sprite bttns with macros for left/record/play/right.</span><span class=cF0>
<a name="l9"></a>
<a name="l10"></a></span><span class=cF2> 4) Hand-made ctrls for the kbdgraphic, notes and staff.</span><span class=cF0>
<a name="l11"></a>
<a name="l12"></a></span><span class=cF2>This uses four types of output</span><span class=cF0>
<a name="l13"></a>
<a name="l14"></a></span><span class=cF2> 1) The </span><a href="/Wb/Kernel/KernelA.HH.HTML#l1367"><span class=cF4>CDoc</span></a><span class=cF2> for the text and bttns and kbdgraphic.</span><span class=cF0>
<a name="l15"></a>
<a name="l16"></a></span><span class=cF2> 2) The Fs-&gt;draw_it() for the staff region, drawn every refresh.</span><span class=cF0>
<a name="l17"></a>
<a name="l18"></a></span><span class=cF2> 3) The gr.dc persistent layer for the note chooser, meter chooser. The </span><span class=cF0>
<a name="l19"></a></span><span class=cF2>persistent layer is used during drag-and-drop.</span><span class=cF0>
<a name="l20"></a>
<a name="l21"></a></span><span class=cF2> 4) The Fs-&gt;next_ctrl for the tempo/stacatto sliders.</span><span class=cF0>
<a name="l22"></a>
<a name="l23"></a></span><span class=cF2>See </span><a href="/Wb/Adam/Gr/GrScrn.HC.HTML#l18"><span class=cF4>GrUpdateTaskWin</span></a><span class=cF2>(), </span><a href="/Wb/Adam/Gr/GrScrn.HC.HTML#l58"><span class=cF4>GrUpdateTasks</span></a><span class=cF2>() and </span><a href="/Wb/Adam/Gr/GrScrn.HC.HTML#l398"><span class=cF4>GrUpdateScrn</span></a><span class=cF2>().</span><span class=cF0>
<a name="l24"></a></span><span class=cF2>*/</span><span class=cF0>
<a name="l25"></a>
<a name="l26"></a>#</span><span class=cF1>define</span><span class=cF0> PSMT_HEAD 0
<a name="l27"></a>#</span><span class=cF1>define</span><span class=cF0> PSMT_NOTE 1
<a name="l28"></a>#</span><span class=cF1>define</span><span class=cF0> PSMT_METER 2
<a name="l29"></a>
<a name="l30"></a>#</span><span class=cF1>define</span><span class=cF0> PSMf_SEL 0
<a name="l31"></a>#</span><span class=cF1>define</span><span class=cF0> PSMF_SEL 1
<a name="l32"></a>#</span><span class=cF1>define</span><span class=cF0> PSMf_SHARP 1
<a name="l33"></a>#</span><span class=cF1>define</span><span class=cF0> PSMf_FLAT 2
<a name="l34"></a>#</span><span class=cF1>define</span><span class=cF0> PSMf_TIE 3
<a name="l35"></a>
<a name="l36"></a></span><span class=cF1>class</span><span class=cF0> PsmNote
<a name="l37"></a>{
<a name="l38"></a> PsmNote *next,*last;
<a name="l39"></a> </span><span class=cF9>I64</span><span class=cF0> x,y;
<a name="l40"></a> </span><span class=cF1>U8</span><span class=cF0> *word;
<a name="l41"></a> </span><span class=cF9>I64</span><span class=cF0> type,flags;
<a name="l42"></a> </span><span class=cF9>I64</span><span class=cF0> ona,meter_top,meter_bottom;
<a name="l43"></a> </span><span class=cF9>I64</span><span class=cF0> duration,width;
<a name="l44"></a> </span><span class=cF1>U8</span><span class=cF0> ascii[32];
<a name="l45"></a>};
<a name="l46"></a>
<a name="l47"></a></span><span class=cF2>//Tool types</span><span class=cF0>
<a name="l48"></a>#</span><span class=cF1>define</span><span class=cF0> PSMTT_PTR_TOOL 0
<a name="l49"></a>#</span><span class=cF1>define</span><span class=cF0> PSMTT_BOX_TOOL 1
<a name="l50"></a>
<a name="l51"></a></span><span class=cF1>class</span><span class=cF0> PsmCtrl
<a name="l52"></a>{
<a name="l53"></a> PsmNote head;
<a name="l54"></a> PsmNote clip;
<a name="l55"></a> </span><span class=cF9>CMenuEntry</span><span class=cF0> *incomplete_entry,*record_entry;
<a name="l56"></a> </span><span class=cF9>I64</span><span class=cF0> scrn_x,tool;
<a name="l57"></a> PsmNote *cur_note;
<a name="l58"></a> </span><span class=cF9>CDC</span><span class=cF0> *dc2;
<a name="l59"></a> </span><span class=cF1>Bool</span><span class=cF0> playing;
<a name="l60"></a>} psm;
<a name="l61"></a>
<a name="l62"></a></span><span class=cF1>U8</span><span class=cF0> *psm_note_lst=</span><span class=cF6>&quot;A\0A#\0B\0C\0C#\0D\0D#\0E\0F\0F#\0G\0G#\0&quot;</span><span class=cF0>;
<a name="l63"></a></span><span class=cF1>U8</span><span class=cF0> psm_note_map[12]={6,6,5,4,4,3,3,2,1,1,0,0};
<a name="l64"></a></span><span class=cF1>U8</span><span class=cF0> psm_note_inverse_map[7]={10,8,7,5,3,2,0};
</span></pre></body>
</html>