作图纸 · 短片
正在点亮纸面……
三元罗盘
以代码为规,以数理为矩,算尽三百八十四爻
一面三元罗盘在图纸上逐层成形,随后十五层转动归位。片子先放归位的那一刻:十五层各自转动,由外而内一圈圈锁定;然后倒回一张白纸。一段 TikZ 代码化作一颗橙色火花,从天池起逐层作出这面三元盘:天池与先天八卦、先天卦所配的洛书数、后天八卦与九宫,地盘正针二十四山、三元龙与替星;外圈是伏羲六十四卦方位圆图,依次是卦气、卦名、卦象、卦运与天地人父母卦——卦象一爻一笔,共三百八十四笔;再往外是三百八十四爻,按开禧宿度排列的二十八宿,与周天度数。盘上 439 个字依据同一组数值另行排版,跟着画笔一格一格显现。最后一层画完,十五层转动、锁回原位,磁针停在子午线上,两条红线组成天心十道,转动着读出坐与向,细到哪一卦、哪一爻。每一帧都在浏览器里实时生成;配乐也由代码依据同一份作图计划生成。
- 速度
- 96 BPM · 42 小节
- 画面
- 作图引擎 · WebGL
- 程序
- 一段 TikZ 代码,138 行
- 盘面
- 十五层,384 爻,439 个字另行排版
- 声音
- 原创配乐,依据作图计划合成
章节8
TikZ 代码83 条语句
本片与 Sanyuan Luopan 使用同一份 TikZ 代码,并与「作图纸」的其他几支短片共用作图引擎;盘上的字依据同一组数值另行排版,跟着画笔一格一格显现。复制的代码会附带一行 \tikzset,用于声明本图专用的键;粘贴到加载了 TikZ 宏包的 LaTeX 文档中即可编译。
% title: 三元盘 · 十五层% 方位角自子起顺时针;纸上上南下北,角 = 270 - 方位角\begin{tikzpicture}% 盘照 1 cm 一单位排,整个缩到纸上\begin{scope}[scale=0.5] % 第 1 层 天池:海底线,北端两点\draw[compass] (0,0) circle (1);\draw[signal, thick] (0,-0.9) -- (0,0.9);\foreach \x in {-.13,.13} \fill[signal] (\x,-0.72) circle (.035); % 八宫:八条界线,每宫 45°\foreach \b in {22.5,67.5,...,337.5} \draw[help lines, dashed] ({270-\b}:1) -- ({270-\b}:11.07); % 第 2 层 先天八卦\draw (0,0) circle (2);\foreach \b in {22.5,67.5,...,337.5} \draw ({270-\b}:1) -- ({270-\b}:2);\foreach \a/\r/\g in {0/1.2/0,0/1.37/0,0/1.54/0,45/1.2/0,45/1.37/0,45/1.54/0.05,90/1.2/0,90/1.37/0.05,90/1.54/0,135/1.2/0,135/1.37/0.05,135/1.54/0.05,-45/1.2/0.05,-45/1.37/0,-45/1.54/0,-90/1.2/0.05,-90/1.37/0,-90/1.54/0.05,-135/1.2/0.05,-135/1.37/0.05,-135/1.54/0,180/1.2/0.05,180/1.37/0.05,180/1.54/0.05} \draw[thick, rotate=\a] (-.2,\r) -- (-\g,\r) (\g,\r) -- (.2,\r); % 第 3 层 先天卦配洛书\draw (0,0) circle (2.45);\foreach \b in {22.5,67.5,...,337.5} \draw ({270-\b}:2) -- ({270-\b}:2.45); % 第 4 层 后天八卦 · 洛书\draw (0,0) circle (3.07);\foreach \b in {22.5,67.5,...,337.5} \draw ({270-\b}:2.45) -- ({270-\b}:3.07); % 第 5 层 地盘正针二十四山\draw[thick] (0,0) circle (3.97);\foreach \b in {7.5,22.5,...,352.5} \draw[semithick] ({270-\b}:3.07) -- ({270-\b}:3.97); % 第 6 层 三元龙\draw (0,0) circle (4.39);\foreach \b in {7.5,22.5,...,352.5} \draw ({270-\b}:3.97) -- ({270-\b}:4.39); % 第 7 层 替星\draw (0,0) circle (4.81);\foreach \b in {7.5,22.5,...,352.5} \draw ({270-\b}:4.39) -- ({270-\b}:4.81); % 第 8 层 六十四卦卦气\draw (0,0) circle (5.31);\foreach \b in {0,5.625,...,354.375} \draw ({270-\b}:4.81) -- ({270-\b}:5.31); % 第 9 层 先天六十四卦\draw (0,0) circle (6.26);\foreach \b in {0,5.625,...,354.375} \draw ({270-\b}:5.31) -- ({270-\b}:6.26); % 第 10 层 六十四卦卦象\draw (0,0) circle (7.36);\foreach \b in {0,5.625,...,354.375} \draw ({270-\b}:6.26) -- ({270-\b}:7.36);\foreach \a/\r/\g in {177.188/6.43/0,177.188/6.58/0.04,177.188/6.73/0.04,177.188/6.88/0.04,177.188/7.03/0.04,177.188/7.18/0.04,171.563/6.43/0,171.563/6.58/0.04,171.563/6.73/0.04,171.563/6.88/0.04,171.563/7.03/0.04,171.563/7.18/0,165.938/6.43/0,165.938/6.58/0.04,165.938/6.73/0.04,165.938/6.88/0.04,165.938/7.03/0,165.938/7.18/0.04,160.313/6.43/0,160.313/6.58/0.04,160.313/6.73/0.04,160.313/6.88/0.04,160.313/7.03/0,160.313/7.18/0,154.688/6.43/0,154.688/6.58/0.04,154.688/6.73/0.04,154.688/6.88/0,154.688/7.03/0.04,154.688/7.18/0.04,149.063/6.43/0,149.063/6.58/0.04,149.063/6.73/0.04,149.063/6.88/0,149.063/7.03/0.04,149.063/7.18/0,143.438/6.43/0,143.438/6.58/0.04,143.438/6.73/0.04,143.438/6.88/0,143.438/7.03/0,143.438/7.18/0.04,137.813/6.43/0,137.813/6.58/0.04,137.813/6.73/0.04,137.813/6.88/0,137.813/7.03/0,137.813/7.18/0} \draw[rotate=\a] (-.19,\r) -- (-\g,\r) (\g,\r) -- (.19,\r); % 下卦震\foreach \a/\r/\g in {132.188/6.43/0,132.188/6.58/0.04,132.188/6.73/0,132.188/6.88/0.04,132.188/7.03/0.04,132.188/7.18/0.04,126.563/6.43/0,126.563/6.58/0.04,126.563/6.73/0,126.563/6.88/0.04,126.563/7.03/0.04,126.563/7.18/0,120.938/6.43/0,120.938/6.58/0.04,120.938/6.73/0,120.938/6.88/0.04,120.938/7.03/0,120.938/7.18/0.04,115.313/6.43/0,115.313/6.58/0.04,115.313/6.73/0,115.313/6.88/0.04,115.313/7.03/0,115.313/7.18/0,109.688/6.43/0,109.688/6.58/0.04,109.688/6.73/0,109.688/6.88/0,109.688/7.03/0.04,109.688/7.18/0.04,104.063/6.43/0,104.063/6.58/0.04,104.063/6.73/0,104.063/6.88/0,104.063/7.03/0.04,104.063/7.18/0,98.438/6.43/0,98.438/6.58/0.04,98.438/6.73/0,98.438/6.88/0,98.438/7.03/0,98.438/7.18/0.04,92.813/6.43/0,92.813/6.58/0.04,92.813/6.73/0,92.813/6.88/0,92.813/7.03/0,92.813/7.18/0} \draw[rotate=\a] (-.19,\r) -- (-\g,\r) (\g,\r) -- (.19,\r); % 下卦离\foreach \a/\r/\g in {87.188/6.43/0,87.188/6.58/0,87.188/6.73/0.04,87.188/6.88/0.04,87.188/7.03/0.04,87.188/7.18/0.04,81.563/6.43/0,81.563/6.58/0,81.563/6.73/0.04,81.563/6.88/0.04,81.563/7.03/0.04,81.563/7.18/0,75.938/6.43/0,75.938/6.58/0,75.938/6.73/0.04,75.938/6.88/0.04,75.938/7.03/0,75.938/7.18/0.04,70.313/6.43/0,70.313/6.58/0,70.313/6.73/0.04,70.313/6.88/0.04,70.313/7.03/0,70.313/7.18/0,64.688/6.43/0,64.688/6.58/0,64.688/6.73/0.04,64.688/6.88/0,64.688/7.03/0.04,64.688/7.18/0.04,59.063/6.43/0,59.063/6.58/0,59.063/6.73/0.04,59.063/6.88/0,59.063/7.03/0.04,59.063/7.18/0,53.438/6.43/0,53.438/6.58/0,53.438/6.73/0.04,53.438/6.88/0,53.438/7.03/0,53.438/7.18/0.04,47.813/6.43/0,47.813/6.58/0,47.813/6.73/0.04,47.813/6.88/0,47.813/7.03/0,47.813/7.18/0} \draw[rotate=\a] (-.19,\r) -- (-\g,\r) (\g,\r) -- (.19,\r); % 下卦兑\foreach \a/\r/\g in {42.188/6.43/0,42.188/6.58/0,42.188/6.73/0,42.188/6.88/0.04,42.188/7.03/0.04,42.188/7.18/0.04,36.563/6.43/0,36.563/6.58/0,36.563/6.73/0,36.563/6.88/0.04,36.563/7.03/0.04,36.563/7.18/0,30.938/6.43/0,30.938/6.58/0,30.938/6.73/0,30.938/6.88/0.04,30.938/7.03/0,30.938/7.18/0.04,25.313/6.43/0,25.313/6.58/0,25.313/6.73/0,25.313/6.88/0.04,25.313/7.03/0,25.313/7.18/0,19.688/6.43/0,19.688/6.58/0,19.688/6.73/0,19.688/6.88/0,19.688/7.03/0.04,19.688/7.18/0.04,14.063/6.43/0,14.063/6.58/0,14.063/6.73/0,14.063/6.88/0,14.063/7.03/0.04,14.063/7.18/0,8.438/6.43/0,8.438/6.58/0,8.438/6.73/0,8.438/6.88/0,8.438/7.03/0,8.438/7.18/0.04,2.813/6.43/0,2.813/6.58/0,2.813/6.73/0,2.813/6.88/0,2.813/7.03/0,2.813/7.18/0} \draw[rotate=\a] (-.19,\r) -- (-\g,\r) (\g,\r) -- (.19,\r); % 下卦乾\foreach \a/\r/\g in {-2.812/6.43/0.04,-2.812/6.58/0,-2.812/6.73/0,-2.812/6.88/0,-2.812/7.03/0,-2.812/7.18/0,-8.437/6.43/0.04,-8.437/6.58/0,-8.437/6.73/0,-8.437/6.88/0,-8.437/7.03/0,-8.437/7.18/0.04,-14.062/6.43/0.04,-14.062/6.58/0,-14.062/6.73/0,-14.062/6.88/0,-14.062/7.03/0.04,-14.062/7.18/0,-19.687/6.43/0.04,-19.687/6.58/0,-19.687/6.73/0,-19.687/6.88/0,-19.687/7.03/0.04,-19.687/7.18/0.04,-25.312/6.43/0.04,-25.312/6.58/0,-25.312/6.73/0,-25.312/6.88/0.04,-25.312/7.03/0,-25.312/7.18/0,-30.937/6.43/0.04,-30.937/6.58/0,-30.937/6.73/0,-30.937/6.88/0.04,-30.937/7.03/0,-30.937/7.18/0.04,-36.562/6.43/0.04,-36.562/6.58/0,-36.562/6.73/0,-36.562/6.88/0.04,-36.562/7.03/0.04,-36.562/7.18/0,-42.187/6.43/0.04,-42.187/6.58/0,-42.187/6.73/0,-42.187/6.88/0.04,-42.187/7.03/0.04,-42.187/7.18/0.04} \draw[rotate=\a] (-.19,\r) -- (-\g,\r) (\g,\r) -- (.19,\r); % 下卦巽\foreach \a/\r/\g in {-47.812/6.43/0.04,-47.812/6.58/0,-47.812/6.73/0.04,-47.812/6.88/0,-47.812/7.03/0,-47.812/7.18/0,-53.437/6.43/0.04,-53.437/6.58/0,-53.437/6.73/0.04,-53.437/6.88/0,-53.437/7.03/0,-53.437/7.18/0.04,-59.062/6.43/0.04,-59.062/6.58/0,-59.062/6.73/0.04,-59.062/6.88/0,-59.062/7.03/0.04,-59.062/7.18/0,-64.687/6.43/0.04,-64.687/6.58/0,-64.687/6.73/0.04,-64.687/6.88/0,-64.687/7.03/0.04,-64.687/7.18/0.04,-70.312/6.43/0.04,-70.312/6.58/0,-70.312/6.73/0.04,-70.312/6.88/0.04,-70.312/7.03/0,-70.312/7.18/0,-75.937/6.43/0.04,-75.937/6.58/0,-75.937/6.73/0.04,-75.937/6.88/0.04,-75.937/7.03/0,-75.937/7.18/0.04,-81.562/6.43/0.04,-81.562/6.58/0,-81.562/6.73/0.04,-81.562/6.88/0.04,-81.562/7.03/0.04,-81.562/7.18/0,-87.187/6.43/0.04,-87.187/6.58/0,-87.187/6.73/0.04,-87.187/6.88/0.04,-87.187/7.03/0.04,-87.187/7.18/0.04} \draw[rotate=\a] (-.19,\r) -- (-\g,\r) (\g,\r) -- (.19,\r); % 下卦坎\foreach \a/\r/\g in {-92.812/6.43/0.04,-92.812/6.58/0.04,-92.812/6.73/0,-92.812/6.88/0,-92.812/7.03/0,-92.812/7.18/0,-98.437/6.43/0.04,-98.437/6.58/0.04,-98.437/6.73/0,-98.437/6.88/0,-98.437/7.03/0,-98.437/7.18/0.04,-104.062/6.43/0.04,-104.062/6.58/0.04,-104.062/6.73/0,-104.062/6.88/0,-104.062/7.03/0.04,-104.062/7.18/0,-109.687/6.43/0.04,-109.687/6.58/0.04,-109.687/6.73/0,-109.687/6.88/0,-109.687/7.03/0.04,-109.687/7.18/0.04,-115.312/6.43/0.04,-115.312/6.58/0.04,-115.312/6.73/0,-115.312/6.88/0.04,-115.312/7.03/0,-115.312/7.18/0,-120.937/6.43/0.04,-120.937/6.58/0.04,-120.937/6.73/0,-120.937/6.88/0.04,-120.937/7.03/0,-120.937/7.18/0.04,-126.562/6.43/0.04,-126.562/6.58/0.04,-126.562/6.73/0,-126.562/6.88/0.04,-126.562/7.03/0.04,-126.562/7.18/0,-132.187/6.43/0.04,-132.187/6.58/0.04,-132.187/6.73/0,-132.187/6.88/0.04,-132.187/7.03/0.04,-132.187/7.18/0.04} \draw[rotate=\a] (-.19,\r) -- (-\g,\r) (\g,\r) -- (.19,\r); % 下卦艮\foreach \a/\r/\g in {-137.812/6.43/0.04,-137.812/6.58/0.04,-137.812/6.73/0.04,-137.812/6.88/0,-137.812/7.03/0,-137.812/7.18/0,-143.437/6.43/0.04,-143.437/6.58/0.04,-143.437/6.73/0.04,-143.437/6.88/0,-143.437/7.03/0,-143.437/7.18/0.04,-149.062/6.43/0.04,-149.062/6.58/0.04,-149.062/6.73/0.04,-149.062/6.88/0,-149.062/7.03/0.04,-149.062/7.18/0,-154.687/6.43/0.04,-154.687/6.58/0.04,-154.687/6.73/0.04,-154.687/6.88/0,-154.687/7.03/0.04,-154.687/7.18/0.04,-160.312/6.43/0.04,-160.312/6.58/0.04,-160.312/6.73/0.04,-160.312/6.88/0.04,-160.312/7.03/0,-160.312/7.18/0,-165.937/6.43/0.04,-165.937/6.58/0.04,-165.937/6.73/0.04,-165.937/6.88/0.04,-165.937/7.03/0,-165.937/7.18/0.04,-171.562/6.43/0.04,-171.562/6.58/0.04,-171.562/6.73/0.04,-171.562/6.88/0.04,-171.562/7.03/0.04,-171.562/7.18/0,-177.187/6.43/0.04,-177.187/6.58/0.04,-177.187/6.73/0.04,-177.187/6.88/0.04,-177.187/7.03/0.04,-177.187/7.18/0.04} \draw[rotate=\a] (-.19,\r) -- (-\g,\r) (\g,\r) -- (.19,\r); % 下卦坤 % 第 11 层 六十四卦卦运\draw (0,0) circle (7.86);\foreach \b in {0,5.625,...,354.375} \draw ({270-\b}:7.36) -- ({270-\b}:7.86); % 第 12 层 天地人父母卦\draw (0,0) circle (8.31);\foreach \b in {0,5.625,...,354.375} \draw ({270-\b}:7.86) -- ({270-\b}:8.31); % 第 13 层 三百八十四爻\draw (0,0) circle (9.31);\foreach \b in {0,5.625,...,354.375} \draw ({270-\b}:8.31) -- ({270-\b}:9.31);\foreach \p/\g in {269.531/0,268.594/0.07,267.656/0.07,266.719/0.07,265.781/0.07,264.844/0.07,259.219/0,260.156/0.07,261.094/0.07,262.031/0.07,262.969/0.07,263.906/0,258.281/0,257.344/0.07,256.406/0.07,255.469/0.07,254.531/0,253.594/0.07,247.969/0,248.906/0.07,249.844/0.07,250.781/0.07,251.719/0,252.656/0,242.344/0,243.281/0.07,244.219/0.07,245.156/0,246.094/0.07,247.031/0.07,241.406/0,240.469/0.07,239.531/0.07,238.594/0,237.656/0.07,236.719/0,231.094/0,232.031/0.07,232.969/0.07,233.906/0,234.844/0,235.781/0.07,230.156/0,229.219/0.07,228.281/0.07,227.344/0,226.406/0,225.469/0} \draw[very thin] (\p:8.47) -- (\p:{8.81-\g}) (\p:{8.81+\g}) -- (\p:9.15); % 下卦震\foreach \p/\g in {219.844/0,220.781/0.07,221.719/0,222.656/0.07,223.594/0.07,224.531/0.07,218.906/0,217.969/0.07,217.031/0,216.094/0.07,215.156/0.07,214.219/0,208.594/0,209.531/0.07,210.469/0,211.406/0.07,212.344/0,213.281/0.07,207.656/0,206.719/0.07,205.781/0,204.844/0.07,203.906/0,202.969/0,202.031/0,201.094/0.07,200.156/0,199.219/0,198.281/0.07,197.344/0.07,191.719/0,192.656/0.07,193.594/0,194.531/0,195.469/0.07,196.406/0,190.781/0,189.844/0.07,188.906/0,187.969/0,187.031/0,186.094/0.07,180.469/0,181.406/0.07,182.344/0,183.281/0,184.219/0,185.156/0} \draw[very thin] (\p:8.47) -- (\p:{8.81-\g}) (\p:{8.81+\g}) -- (\p:9.15); % 下卦离\foreach \p/\g in {179.531/0,178.594/0,177.656/0.07,176.719/0.07,175.781/0.07,174.844/0.07,169.219/0,170.156/0,171.094/0.07,172.031/0.07,172.969/0.07,173.906/0,168.281/0,167.344/0,166.406/0.07,165.469/0.07,164.531/0,163.594/0.07,157.969/0,158.906/0,159.844/0.07,160.781/0.07,161.719/0,162.656/0,152.344/0,153.281/0,154.219/0.07,155.156/0,156.094/0.07,157.031/0.07,151.406/0,150.469/0,149.531/0.07,148.594/0,147.656/0.07,146.719/0,141.094/0,142.031/0,142.969/0.07,143.906/0,144.844/0,145.781/0.07,140.156/0,139.219/0,138.281/0.07,137.344/0,136.406/0,135.469/0} \draw[very thin] (\p:8.47) -- (\p:{8.81-\g}) (\p:{8.81+\g}) -- (\p:9.15); % 下卦兑\foreach \p/\g in {129.844/0,130.781/0,131.719/0,132.656/0.07,133.594/0.07,134.531/0.07,128.906/0,127.969/0,127.031/0,126.094/0.07,125.156/0.07,124.219/0,118.594/0,119.531/0,120.469/0,121.406/0.07,122.344/0,123.281/0.07,117.656/0,116.719/0,115.781/0,114.844/0.07,113.906/0,112.969/0,112.031/0,111.094/0,110.156/0,109.219/0,108.281/0.07,107.344/0.07,101.719/0,102.656/0,103.594/0,104.531/0,105.469/0.07,106.406/0,100.781/0,99.844/0,98.906/0,97.969/0,97.031/0,96.094/0.07,90.469/0,91.406/0,92.344/0,93.281/0,94.219/0,95.156/0} \draw[very thin] (\p:8.47) -- (\p:{8.81-\g}) (\p:{8.81+\g}) -- (\p:9.15); % 下卦乾\foreach \p/\g in {89.531/0.07,88.594/0,87.656/0,86.719/0,85.781/0,84.844/0,79.219/0.07,80.156/0,81.094/0,82.031/0,82.969/0,83.906/0.07,78.281/0.07,77.344/0,76.406/0,75.469/0,74.531/0.07,73.594/0,67.969/0.07,68.906/0,69.844/0,70.781/0,71.719/0.07,72.656/0.07,62.344/0.07,63.281/0,64.219/0,65.156/0.07,66.094/0,67.031/0,61.406/0.07,60.469/0,59.531/0,58.594/0.07,57.656/0,56.719/0.07,51.094/0.07,52.031/0,52.969/0,53.906/0.07,54.844/0.07,55.781/0,50.156/0.07,49.219/0,48.281/0,47.344/0.07,46.406/0.07,45.469/0.07} \draw[very thin] (\p:8.47) -- (\p:{8.81-\g}) (\p:{8.81+\g}) -- (\p:9.15); % 下卦巽\foreach \p/\g in {39.844/0.07,40.781/0,41.719/0.07,42.656/0,43.594/0,44.531/0,38.906/0.07,37.969/0,37.031/0.07,36.094/0,35.156/0,34.219/0.07,28.594/0.07,29.531/0,30.469/0.07,31.406/0,32.344/0.07,33.281/0,27.656/0.07,26.719/0,25.781/0.07,24.844/0,23.906/0.07,22.969/0.07,22.031/0.07,21.094/0,20.156/0.07,19.219/0.07,18.281/0,17.344/0,11.719/0.07,12.656/0,13.594/0.07,14.531/0.07,15.469/0,16.406/0.07,10.781/0.07,9.844/0,8.906/0.07,7.969/0.07,7.031/0.07,6.094/0,0.469/0.07,1.406/0,2.344/0.07,3.281/0.07,4.219/0.07,5.156/0.07} \draw[very thin] (\p:8.47) -- (\p:{8.81-\g}) (\p:{8.81+\g}) -- (\p:9.15); % 下卦坎\foreach \p/\g in {-0.469/0.07,-1.406/0.07,-2.344/0,-3.281/0,-4.219/0,-5.156/0,-10.781/0.07,-9.844/0.07,-8.906/0,-7.969/0,-7.031/0,-6.094/0.07,-11.719/0.07,-12.656/0.07,-13.594/0,-14.531/0,-15.469/0.07,-16.406/0,-22.031/0.07,-21.094/0.07,-20.156/0,-19.219/0,-18.281/0.07,-17.344/0.07,-27.656/0.07,-26.719/0.07,-25.781/0,-24.844/0.07,-23.906/0,-22.969/0,-28.594/0.07,-29.531/0.07,-30.469/0,-31.406/0.07,-32.344/0,-33.281/0.07,-38.906/0.07,-37.969/0.07,-37.031/0,-36.094/0.07,-35.156/0.07,-34.219/0,-39.844/0.07,-40.781/0.07,-41.719/0,-42.656/0.07,-43.594/0.07,-44.531/0.07} \draw[very thin] (\p:8.47) -- (\p:{8.81-\g}) (\p:{8.81+\g}) -- (\p:9.15); % 下卦艮\foreach \p/\g in {-50.156/0.07,-49.219/0.07,-48.281/0.07,-47.344/0,-46.406/0,-45.469/0,-51.094/0.07,-52.031/0.07,-52.969/0.07,-53.906/0,-54.844/0,-55.781/0.07,-61.406/0.07,-60.469/0.07,-59.531/0.07,-58.594/0,-57.656/0.07,-56.719/0,-62.344/0.07,-63.281/0.07,-64.219/0.07,-65.156/0,-66.094/0.07,-67.031/0.07,-67.969/0.07,-68.906/0.07,-69.844/0.07,-70.781/0.07,-71.719/0,-72.656/0,-78.281/0.07,-77.344/0.07,-76.406/0.07,-75.469/0.07,-74.531/0,-73.594/0.07,-79.219/0.07,-80.156/0.07,-81.094/0.07,-82.031/0.07,-82.969/0.07,-83.906/0,-89.531/0.07,-88.594/0.07,-87.656/0.07,-86.719/0.07,-85.781/0.07,-84.844/0.07} \draw[very thin] (\p:8.47) -- (\p:{8.81-\g}) (\p:{8.81+\g}) -- (\p:9.15); % 下卦坤 % 第 14 层 周天二十八宿\draw (0,0) circle (10.03);\foreach \b in {0,9.117,19.959,26.858,49.281,58.645,76.386,82.3,87.967,103.984,113.593,126.16,144.641,164.6,182.094,188.747,202.053,204.517,234.333,243.696,244.189,260.452,271.294,286.324,298.891,316.632,326.242,344.23} \draw ({270-\b}:9.31) -- ({270-\b}:10.03);\foreach \d in {1,...,15} \draw[very thin] ({270+\d*0.986}:9.31) -- ({270+\d*0.986}:9.41); % 危 16 度\foreach \d in {1,...,18} \draw[very thin] ({285.77+\d*0.986}:9.31) -- ({285.77+\d*0.986}:9.41); % 室 18 度少\foreach \d in {1,...,9} \draw[very thin] ({303.758+\d*0.986}:9.31) -- ({303.758+\d*0.986}:9.41); % 壁 9 度太\foreach \d in {1,...,17} \draw[very thin] ({313.368+\d*0.986}:9.31) -- ({313.368+\d*0.986}:9.41); % 奎 18 度\foreach \d in {1,...,12} \draw[very thin] ({331.109+\d*0.986}:9.31) -- ({331.109+\d*0.986}:9.41); % 娄 12 度太\foreach \d in {1,...,15} \draw[very thin] ({343.676+\d*0.986}:9.31) -- ({343.676+\d*0.986}:9.41); % 胃 15 度少\foreach \d in {1,...,10} \draw[very thin] ({358.706+\d*0.986}:9.31) -- ({358.706+\d*0.986}:9.41); % 昴 11 度\foreach \d in {1,...,16} \draw[very thin] ({369.548+\d*0.986}:9.31) -- ({369.548+\d*0.986}:9.41); % 毕 16 度半\foreach \d in {1,...,9} \draw[very thin] ({386.304+\d*0.986}:9.31) -- ({386.304+\d*0.986}:9.41); % 参 9 度半\foreach \d in {1,...,30} \draw[very thin] ({395.667+\d*0.986}:9.31) -- ({395.667+\d*0.986}:9.41); % 井 30 度少\foreach \d in {1,...,2} \draw[very thin] ({425.483+\d*0.986}:9.31) -- ({425.483+\d*0.986}:9.41); % 鬼 2 度半\foreach \d in {1,...,13} \draw[very thin] ({427.947+\d*0.986}:9.31) -- ({427.947+\d*0.986}:9.41); % 柳 13 度半\foreach \d in {1,...,6} \draw[very thin] ({441.253+\d*0.986}:9.31) -- ({441.253+\d*0.986}:9.41); % 星 6 度太\foreach \d in {1,...,17} \draw[very thin] ({447.906+\d*0.986}:9.31) -- ({447.906+\d*0.986}:9.41); % 张 17 度太\foreach \d in {1,...,20} \draw[very thin] ({465.4+\d*0.986}:9.31) -- ({465.4+\d*0.986}:9.41); % 翼 20 度少\foreach \d in {1,...,18} \draw[very thin] ({485.359+\d*0.986}:9.31) -- ({485.359+\d*0.986}:9.41); % 轸 18 度太\foreach \d in {1,...,12} \draw[very thin] ({503.84+\d*0.986}:9.31) -- ({503.84+\d*0.986}:9.41); % 角 12 度太\foreach \d in {1,...,9} \draw[very thin] ({516.407+\d*0.986}:9.31) -- ({516.407+\d*0.986}:9.41); % 亢 9 度太\foreach \d in {1,...,16} \draw[very thin] ({526.016+\d*0.986}:9.31) -- ({526.016+\d*0.986}:9.41); % 氐 16 度少\foreach \d in {1,...,5} \draw[very thin] ({542.033+\d*0.986}:9.31) -- ({542.033+\d*0.986}:9.41); % 房 5 度太\foreach \d in {1,...,5} \draw[very thin] ({547.7+\d*0.986}:9.31) -- ({547.7+\d*0.986}:9.41); % 心 6 度\foreach \d in {1,...,17} \draw[very thin] ({553.614+\d*0.986}:9.31) -- ({553.614+\d*0.986}:9.41); % 尾 18 度\foreach \d in {1,...,9} \draw[very thin] ({571.355+\d*0.986}:9.31) -- ({571.355+\d*0.986}:9.41); % 箕 9 度半\foreach \d in {1,...,22} \draw[very thin] ({580.719+\d*0.986}:9.31) -- ({580.719+\d*0.986}:9.41); % 斗 22 度太\foreach \d in {1,...,6} \draw[very thin] ({603.142+\d*0.986}:9.31) -- ({603.142+\d*0.986}:9.41); % 牛 7 度\foreach \d in {1,...,10} \draw[very thin] ({610.041+\d*0.986}:9.31) -- ({610.041+\d*0.986}:9.41); % 女 11 度\foreach \d in {1,...,9} \draw[very thin] ({620.883+\d*0.986}:9.31) -- ({620.883+\d*0.986}:9.41); % 虚 9 度少 % 第 15 层 周天三百六十度\draw[thick] (0,0) circle (10.77);\foreach \b in {0,1,...,359} \draw[very thin] ({270-\b}:10.65) -- ({270-\b}:10.77);\foreach \b in {0,5,...,355} \draw ({270-\b}:10.57) -- ({270-\b}:10.77);\foreach \b in {0,10,...,350} \draw ({270-\b}:10.47) -- ({270-\b}:10.77);\end{scope} % 盘边:直径(纸上的长度)\draw[|<->|] (-5.385,-5.685) -- (5.385,-5.685) node[midway, below] {$10.77$}; \end{tikzpicture}