扩展对象 八卦符窗口  继承自 窗口对象模板
属性 窗口标题: 编字串" 阴阳八卦变化图" 属性。
属性 开始位置: 自动居中: 自本身  属性。
属性 开始尺寸: 480 380  属性。
属性 最大尺寸: 480 380  属性。
属性 最小尺寸: 480 380  属性。

0 给 横标
0 给 纵标
0 给 乂高

编 显阳符  ( 横坐标 纵坐标 --- )
  双♂ 30 + ↑↓ 300 +  ↑↓  黑色 实心矩形: 设备描述表
  。

编 显阴符  ( 横坐标 纵坐标 --- )
  双♂ 显阳符 ↑↓  135 +  ↑↓
  双♂ 30 + ↑↓ 30 +  ↑↓  白色 实心矩形: 设备描述表
  。

编 显阴阳符  ( 横坐标 纵坐标 阴或阳标志 --- )
   0=
   就     显阴符 
   否则   显阳符
   然后
   。
 
编 显八卦符    ( 八卦符二进制码 横坐标 纵坐标  --- )
   {  横坐标 纵坐标 \ -- }
   3 0
   ?循环   横坐标 纵坐标 内环数 60 *  +  ∴  显阴阳符 
   回环
   。

编 数转八卦符   ( 八卦序数 --- 地址 长度 )
   字串" 坤艮坎巽震离兌乾"  ♀  ↑↓  2 *  +  2
   。

编 连续显示八卦符
     90 写入  横标  90  写入  纵标
      0 7
     ?循环    
          内环数 2 /余商 2 /余商 2 /余商  ♀  ↑↓  ∴     
           横标  纵标  显八卦符
           白色  置文本颜色: 设备描述表                  
           内环数 7 =
           就    0 
           否则  内环数 1+
           然后 
           数转八卦符   双♂ 计算文本串宽高: 设备描述表  ♀
           横标  纵标 180  + ↑↓  ∴ 2 /  150  ↑↓ - +  ↑↓  双↑↓   文本输出: 设备描述表 
           黑色  置文本颜色: 设备描述表   500 毫秒 
           内环数 数转八卦符   双♂ 计算文本串宽高: 设备描述表  ♀
           横标  纵标 180  + ↑↓  ∴ 2 /  150  ↑↓ - +  ↑↓  双↑↓   文本输出: 设备描述表
           -1
     +回环
     。

对象事件 初始时:
      标题字体初始: 标题字体对象
      对象事件。

对象事件 绘制时:
      
      0 0 读大小: 自本身 白色 区域填充: 设备描述表
      置背景混合方式:  设备描述表
      黑色  置文本颜色: 设备描述表
 创建: 标题字体对象 句柄: 标题字体对象  设置字体: 设备描述表   双♀
      环首
      连续显示八卦符
      1 0=  就出来  
      对象事件。

对象。

启动: 八卦符窗口