\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\圆的新画法通用源码，仅窗口内可用   秦汉昌于2009年12月17日于上海原创

编 画圆     ( X Y R --- )
    { X Y R \ 曲线缓冲 -- }
    120 3 * 1+ 8 * 个字节空给  曲线缓冲
    360  0
   ?循环  内环数  数>实  π 180.0 / *
         ♂  FCOS  R 数>实  * 取整 实>数 X      + 内环数   8 *     曲线缓冲 +  写
             FSIN  R 数>实  * 取整 实>数 Y ↑↓ - 内环数    8 * 4 + 曲线缓冲 +  写
    回环
   开始画笔路径[: 设备描述表
   曲线缓冲      读   
   曲线缓冲 4 +  读   坐标定位: 设备描述表
   361 1
   ?循环  内环数 1- 8 *     曲线缓冲 +  读
         内环数 1- 8 * 4 + 曲线缓冲 +  读  画线到: 设备描述表
    回环 
    ]结束画笔路径:  设备描述表
    勾画轮廓并填充:  设备描述表  
    。

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\新词： 画半圆 源码 仅窗口内可用  秦汉昌于2009年12月17日于上海原创
编 画半圆     ( X Y R 偏移度 --- )
    { X Y R 偏移度 \ 曲线缓冲 -- }
    65 3 * 1+ 8 * 个字节空给  曲线缓冲
    185  0
   ?循环  内环数  偏移度 + 数>实  π 180.0 / *
         ♂  FCOS  R 数>实  * 取整  实>数 X      + 内环数   8 *     曲线缓冲 +  写
             FSIN  R 数>实  * 取整  实>数 Y ↑↓ - 内环数    8 * 4 + 曲线缓冲 +  写
    回环
   开始画笔路径[: 设备描述表
   曲线缓冲      读   
   曲线缓冲 4 +  读   坐标定位: 设备描述表
   186 1
   ?循环  内环数 1- 8 *     曲线缓冲  +  读
         内环数 1- 8 * 4 + 曲线缓冲  +  读   画线到: 设备描述表
   回环  曲线缓冲      读   曲线缓冲 4 +  读   画线到: 设备描述表
   ]结束画笔路径:  设备描述表
   勾画轮廓并填充:  设备描述表  
    。

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\太极图画法一

对象事件 初始时:
         本身的 启动: 新对象0
         435 11 60 23 定位: 新对象0
         字串" 静 态 图"   置控制对象标题: 新对象0
         本身的 启动: 新对象1
         435 46 60 23 定位: 新对象1
         字串" 游动图一"   置控制对象标题: 新对象1
         本身的 启动: 新对象2
         435 76 60 23 定位: 新对象2
         字串" 游动图二"   置控制对象标题: 新对象2
          \ 窗口初始事件: 不包含 '编' '变量:' '为'等,直接输入执行的动作词
         对象事件。

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\太极图画法二

0  给  切换
0  给  偏移度数
编 打开定时器一
   0  写入  偏移度数
  15 2  窗口句柄 打开定时器 ♀   。
编 打开定时器二
   0  写入  偏移度数
  15 3  窗口句柄 打开定时器 ♀   。

编 关闭定时器一
  2  窗口句柄 关闭定时器 ♀      。
编 关闭定时器二
  3  窗口句柄 关闭定时器 ♀      。

编 阴阳鱼游动
  切换
  如和 1 对应就  关闭定时器二 打开定时器一
  而和 2 对应就  关闭定时器一 打开定时器二
  而和 3 对应就  关闭定时器一 关闭定时器二
  而后
  。

((
打开定时器  (定时器间隔值 定时器标识号 窗口句柄 --- 返回值 )
参数一: 定时器间隔值 ( 以毫秒为单位)
参数二: 定时器标识号 ( 一个整数，唯一标识一个定时器)
参数三: 窗口句柄
返回值:  成功返回 定时器标识号，否则返回0

关闭定时器 ( 定时器标识号 窗口句柄 --- 返回值 )
参数一: 定时器标识号( 必须是该定时器创建时所用标识号)
参数二: 窗口句柄
返回值: 成功返回非0值，否则返回0。

))

编 转弧度 π 180.0 / * 。

编 转角度 180.0 π / * 。

编 偏移坐标      ( R 偏移角 --- )
    ♂ 属性值 0= 就 数>实 然后  ↑↓
    ♂ 属性值 0= 就 数>实 然后  ↑↓ 转弧度
    ♂   FCOS  2 §    *  取整 实>数
    ∵   FSIN         *  取整 实>数
    。

编 画太极图  { X Y R0 偏移度 阴极色 阳极色 \ R1 R2 -- }
         R0 2 /  写入  R1  
         R0 5 /  写入  R2
        1 画笔宽度: 阳极色
        阳极色   画线颜色: 设备描述表
        阳极色   画刷颜色: 设备描述表
          0   X +  0   Y ↑↓ -  R0  偏移度 画半圆

        1 画笔宽度: 阴极色
        阴极色   画线颜色: 设备描述表
        阴极色   画刷颜色: 设备描述表 
        0   X +  0   Y ↑↓ -  R0  偏移度 180 + 画半圆

        1 画笔宽度: 阳极色
        阳极色   画线颜色: 设备描述表
        阳极色   画刷颜色: 设备描述表
        R1  偏移度 180 +  偏移坐标   
        Y ↑↓ -  ↑↓   X +   ↑↓  R1  偏移度 180 + 画半圆

        1 画笔宽度: 阴极色
        阴极色   画线颜色: 设备描述表
        阴极色   画刷颜色: 设备描述表 
        R1  偏移度 180 +  偏移坐标   
        Y ↑↓ -  ↑↓   X +   ↑↓  R2  画圆

        1 画笔宽度: 白色
        阴极色   画线颜色: 设备描述表
        阴极色   画刷颜色: 设备描述表 
        R1  偏移度   偏移坐标   
        Y ↑↓ -  ↑↓   X +   ↑↓  R1  偏移度  画半圆

        1 画笔宽度: 阳极色
        阳极色   画线颜色: 设备描述表
        阳极色   画刷颜色: 设备描述表 
         R1  偏移度   偏移坐标   
        Y ↑↓ -  ↑↓   X +   ↑↓  R2  画圆

   。

  210  给  绘图区

编 覆盖绘图区
   浅灰色  画线颜色: 设备描述表
    浅灰色  画刷颜色: 设备描述表
    250 250
    绘图区  填充圆: 设备描述表
   。

编 静态的阴阳鱼     { \ 偏移度 -- }
         覆盖绘图区   90  写入  偏移度
        250  250  200  偏移度  浅黄色 浅红色  画太极图
        15  毫秒  10  +写入  偏移度
 
   。

编 游动的阴阳鱼1     { \ 偏移度 -- }
         覆盖绘图区   0  写入  偏移度
  环首   250  250  200  偏移度  白色 黑色  画太极图
        15  毫秒  10  +写入  偏移度
  回首
   。

编 游动的阴阳鱼2     { \ 偏移度 -- }
         覆盖绘图区   0  写入  偏移度
  环首   250  250  200  偏移度  浅黄色 浅红色  画太极图
        15  毫秒  10  +写入  偏移度
  回首
   。
编 游动的阴阳鱼3     { 偏移度  \  -- }
   250  250  200  偏移度  白色 黑色  画太极图
   。

编 游动的阴阳鱼4     { 偏移度  \  -- }
   250  250  200  偏移度  浅黄色 浅红色  画太极图
   。

对象事件 绘制时:
        绘制时: 自源模板
    0 0 读大小: 自本身  浅灰色 区域填充: 设备描述表
        
         对象事件。

WM_TIMER 触发时:  ( wPara lPara --- )
          ∽
          如和 2 对应就
              10  +写入  偏移度数
               偏移度数 游动的阴阳鱼3
          而和 3 对应就
              10  +写入  偏移度数
               偏移度数 游动的阴阳鱼4
          而后
          触发。

对象事件 定义路径:
        对象事件。

对象事件 关闭:
         关闭: 自源模板
         退出
         对象事件。
WM_CLOSE 触发时:
         关闭: 自源模板
         退出
         触发。