tokei/tests/data/wenyan.wy
zhong-yiyu 1dd47ab45b
Add in Support for WenYan programming language (#790)
Co-authored-by: Dark-BlackTea-Master <53254770+dark-blacktea-master@users.noreply.github.com>
2022-08-13 21:13:59 +02:00

141 lines
7.3 KiB
Plaintext

//! 141 lines 107 code 1 comments 33 blanks
吾嘗觀「「曆法」」之書。方悟「今何紀元時」「彼時何小時」「彼刻何刻」「彼分何分」「彼秒何秒」之義。
吾嘗觀「「畫譜」」之書。方悟「備紙」「擇筆」「蘸色」「落筆」「運筆」「提筆」「設色」「裱畫」之義。
吾嘗觀「「算經」」之書。方悟「倍圓周率」「正弦」「餘弦」之義。
施「今何紀元時」。名之曰「紀元時」。
施「彼時何小時」於「紀元時」。名之曰「小時」。
施「彼刻何刻」於「紀元時」。名之曰「刻」。
施「彼分何分」於「紀元時」。名之曰「分」。
施「彼秒何秒」於「紀元時」。名之曰「秒」。
有數四百。名之曰「紙縱」。
有數四百。名之曰「紙橫」。
除二於「紙縱」。名之曰「半縱」。
除二於「紙橫」。名之曰「半橫」。
吾有一數。名之曰「比例」。
批曰。「「文氣淋灕。字句切實」」。
若「半橫」小於「半縱」者。
昔之「比例」者。今「半橫」是矣。
若非。
昔之「比例」者。今「半縱」是矣。
云云。
吾有一術。名之曰「縱坐標」。欲行是術。必先得一數。曰「南」。是術曰。
乘「南」以「比例」。減其於「半縱」。乃得矣。
是謂「縱坐標」之術也。
吾有一術。名之曰「橫坐標」。欲行是術。必先得一數。曰「東」。是術曰。
乘「東」以「比例」。減其於「半橫」。乃得矣。
是謂「橫坐標」之術也。
吾有一術。名之曰「極坐標」。欲行是術。必先得二數。曰「距」。曰「角」。是術曰。
施「餘弦」於「角」。乘其以「距」。取一以施「縱坐標」。名之曰「縱」。
施「正弦」於「角」。乘其以「距」。取一以施「橫坐標」。名之曰「橫」。
吾有一物。名之曰「坐標」。其物如是。
物之「「橫」」者。數曰「橫」。
物之「「縱」」者。數曰「縱」。
是謂「坐標」之物也。乃得「坐標」。
是謂「極坐標」之術也。
吾有一術。名之曰「畫鐘面」。
欲行是術。必先得一物。曰「紙」。一數。曰「半徑」。
是術曰。
有數一千零二十四。名之曰「割圓」。
夫「半徑」。夫零。取二以施「極坐標」。名之曰「始坐標」。
夫「紙」。夫「始坐標」之「「橫」」。夫「始坐標」之「「縱」」。取三以施「落筆」。
有數一。名之曰「甲」。
為是「割圓」遍。
除「甲」以「割圓」。乘其以「倍圓周率」。名之曰「乙」。
夫「半徑」。夫「乙」。取二以施「極坐標」。名之曰「坐標」。
夫「紙」。夫「坐標」之「「橫」」。夫「坐標」之「「縱」」。取三以施「運筆」。
加「甲」以一。昔之「甲」者。今其是矣。
云云。
施「蘸色」於「紙」於「「鈦白」」。
施「設色」於「紙」。
施「蘸色」於「紙」於「「黑」」。
施「提筆」於「紙」。
有數零。名之曰「丙」。
為是六十遍。
除「丙」以六十。乘其以「倍圓周率」。名之曰「丁」。
夫「半徑」。夫「丁」。取二以施「極坐標」。名之曰「正刻外坐標」。
夫「紙」。夫「正刻外坐標」之「「橫」」。夫「正刻外坐標」之「「縱」」。取三以施「落筆」。
乘九分五於「半徑」。夫「丁」。取二以施「極坐標」。名之曰「正刻內坐標」。
夫「紙」。夫「正刻內坐標」之「「橫」」。夫「正刻內坐標」之「「縱」」。取三以施「運筆」。
施「提筆」於「紙」。
加「丙」以一。昔之「丙」者。今其是矣。
云云。
有數零。名之曰「丙」。
為是十二遍。
除「丙」以十二。乘其以「倍圓周率」。名之曰「戊」。
夫「半徑」。夫「戊」。取二以施「極坐標」。名之曰「初刻外坐標」。
夫「紙」。夫「初刻外坐標」之「「橫」」。夫「初刻外坐標」之「「縱」」。取三以施「落筆」。
乘八分五於「半徑」。夫「戊」。取二以施「極坐標」。名之曰「初刻內坐標」。
夫「紙」。夫「初刻內坐標」之「「橫」」。夫「初刻內坐標」之「「縱」」。取三以施「運筆」。
施「提筆」於「紙」。
加「丙」以一。昔之「丙」者。今其是矣。
云云。
是謂「畫鐘面」之術也。
吾有一術。名之曰「畫指針」。
欲行是術。必先得一物。曰「紙」。五數。曰「角」。曰「針長」。曰「尾長」。曰「針角」。曰「尾角」。
是術曰。
夫「針長」。加「針角」於「角」。取二以施「極坐標」。名之曰「甲」。
乘負一於「尾長」。減「尾角」於「角」。取二以施「極坐標」。名之曰「乙」。
乘負一於「尾長」。加「尾角」於「角」。取二以施「極坐標」。名之曰「丙」。
夫「針長」。減「針角」於「角」。取二以施「極坐標」。名之曰「丁」。
夫「紙」。夫「甲」之「「橫」」。夫「甲」之「「縱」」。取三以施「落筆」。
夫「紙」。夫「乙」之「「橫」」。夫「乙」之「「縱」」。取三以施「運筆」。
夫「紙」。夫「丙」之「「橫」」。夫「丙」之「「縱」」。取三以施「運筆」。
夫「紙」。夫「丁」之「「橫」」。夫「丁」之「「縱」」。取三以施「運筆」。
夫「紙」。夫「甲」之「「橫」」。夫「甲」之「「縱」」。取三以施「運筆」。
施「蘸色」於「紙」於「「花青」」。
施「設色」於「紙」。
是謂「畫指針」之術也。
吾有一術。名之曰「执笔」。是術曰。
施「(()=>document.getElementById("out").innerHTML="")」。
施「今何紀元時」。名之曰「紀元時」。
施「彼時何小時」於「紀元時」。名之曰「時」。
施「彼分何分」於「紀元時」。名之曰「分」。
施「彼刻何刻」於「紀元時」。名之曰「刻」。
施「彼秒何秒」於「紀元時」。名之曰「秒」。
乘「刻」以十五。加其於「分」。昔之「分」者。今其是矣。
除「秒」以六十。加其於「分」。昔之「分」者。今其是矣。
除「分」以六十。加其於「時」。昔之「時」者。今其是矣。
除「分」以六十。乘其以「倍圓周率」。乘其以負一。名之曰「分角」。
除「時」以十二。乘其以「倍圓周率」。乘其以負一。名之曰「時角」。
除「秒」以六十。乘其以「倍圓周率」。乘其以負一。名之曰「秒角」。
施「備紙」於「紙橫」。於「紙縱」。名之曰「紙」。
施「畫鐘面」於「紙」。於九分。
施「畫指針」於「紙」。於「秒角」。於八分。於一分。於三毫。於一分。
施「畫指針」於「紙」。於「分角」。於七分五釐。於一分。於三毫。於三分。
施「畫指針」於「紙」。於「時角」。於五分五釐。於八釐。於五毫。於五分。
施「裱畫」於「紙」於「「out」」。
是謂「执笔」之術也。
施「(x=>setInterval(x, 500))」於「执笔」。