按钮控制 显示按钮
数调谐控制 N角按钮
编辑框控制 N编辑框

数调谐控制 角度按钮
编辑框控制 角编辑框

\ 窗口内过程、事件、变量、实例对象、缓冲等
 
属性 窗口标题:
     编字串" 五角星绘制"
     属性。
属性 开始尺寸:
     500 500
     属性。
属性 开始位置:
     自动居中: 自本身
     属性。

0  给  横坐标
0  给  纵坐标

编 点X变换
  横坐标     +     。

编 点Y变换
  纵坐标 ↑↓ -    。  

  210  给  绘图区

编 覆盖绘图区
   浅灰色  画线颜色: 设备描述表
    浅灰色  画刷颜色: 设备描述表
    0  点X变换  0  点Y变换
    绘图区  填充圆: 设备描述表
   。

对象事件 初始时:
                本身的 启动: 角编辑框
                本身的 启动: 角度按钮
                     读句柄: 角编辑框
                  置绑定对象: 角度按钮

         280 11 40 23 定位: 角编辑框
         259 11 20 23 定位: 角度按钮

           0 360 置可调范围: 角度按钮
               0   置当前值: 角度按钮

                本身的 启动: N编辑框
                本身的 启动: N角按钮
                     读句柄: N编辑框
                  置绑定对象: N角按钮

         360 11 40 23 定位: N编辑框
         339 11 20 23 定位: N角按钮

           3 360 置可调范围: N角按钮
               5   置当前值: N角按钮

                本身的 启动: 显示按钮
         435 11 60 23 定位: 显示按钮
字串" 显  示"   置控制对象标题: 显示按钮

         对象事件。

编 转弧度 π 180.0 / * 。

编 转角度 180.0 π / * 。

编 回始点  ( N --- )
   { N \ -- }
 ♂ N  = 就 ♀ 0 然后
 。

编 星常量   (  R  N  --- )
   { \ R0 N0 -- } 数>实  写入  N0 数>实  写入  R0
    N0 3.0 >
   就    R0  360.00 N0 4.00 * /  转弧度  FCOS  *
             360.00 N0 2.00 * /  转弧度  FTAN  *
         R0  360.00 N0 4.00 * /  转弧度  FSIN  *  -
   否则   R0 3.0 /
   然后
   。

编 求实数
   ♂ 属性值 0= 就 数>实  然后  。

编 求点坐标    ( R 度数   --- )
        求实数 ↑↓ 求实数 ↑↓ 转弧度
         ♂  FCOS  2 §   *  实>数 点X变换
         ∵  FSIN        *  实>数 点Y变换    。

编 角星   ( X Y R 偏移度 颜色一 颜色二  N  --- )
         { X Y R 偏移度 颜色一 颜色二 N \ 五星色 -- }  0  写入  五星色
         X        写入 横坐标 Y        写入  纵坐标
  N 0
  ?循环  开始画笔路径[: 设备描述表
         0                          点X变换       0                               点Y变换  坐标定位: 设备描述表
         R          内环数 数>实  360. N  数>实 /      *                偏移度 求实数  +  求点坐标 画线到: 设备描述表
         R N 星常量  内环数 数>实  360. N  数>实 / ♂ ∵ * ↑↓ 2.  /  +  偏移度  求实数  +  求点坐标 画线到: 设备描述表
         0                         点X变换       0                                    点Y变换 画线到: 设备描述表
         ]结束画笔路径:  设备描述表
         2 画笔宽度:  颜色一
          颜色一   画线颜色: 设备描述表
          颜色一   画刷颜色: 设备描述表 
         勾画轮廓并填充: 设备描述表
         开始画笔路径[: 设备描述表
         0                          点X变换       0                                   点Y变换  坐标定位: 设备描述表
         R  内环数 1+ N 回始点  数>实  360. N  数>实 /      *                偏移度 求实数 + 求点坐标 画线到: 设备描述表
         R N 星常量  内环数     数>实  360. N  数>实 / ♂ ∵ * ↑↓ 2.  /  +  偏移度 求实数 +  求点坐标 画线到: 设备描述表
         0                         点X变换       0                                        点Y变换 画线到: 设备描述表
        ]结束画笔路径:  设备描述表
         2 画笔宽度: 颜色二
         颜色二   画线颜色: 设备描述表
         颜色二   画刷颜色: 设备描述表 
         勾画轮廓并填充: 设备描述表
   回环
    。

编 N角星
   覆盖绘图区
   250 250 200
   读当前值: 角度按钮
   粉红色 深红色
   读当前值: N角按钮 角星
   。

对象事件 绘制时:
        绘制时: 自源模板
    0 0 读大小: 自本身  浅灰色 区域填充: 设备描述表
       0 置背景混合方式: 设备描述表
        230 14 字串" 偏移"  文本输出: 设备描述表
        322 14 字串" 度"  文本输出: 设备描述表
        403 14 字串" 角星"  文本输出: 设备描述表
         对象事件。

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

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

255 9 52 RGB 新颜色 粉红色
155 6 36 RGB 新颜色 深红色

扩展对象 五角星绘制窗口  继承自 窗口对象模板

按钮控制 显示按钮
数调谐控制 N角按钮
编辑框控制 N编辑框

数调谐控制 角度按钮
编辑框控制 角编辑框

\ 窗口内过程、事件、变量、实例对象、缓冲等
 
属性 窗口标题:
     编字串" 五角星绘制"
     属性。
属性 开始尺寸:
     500 500
     属性。
属性 开始位置:
     自动居中: 自本身
     属性。

0  给  横坐标
0  给  纵坐标

编 点X变换
  横坐标     +     。

编 点Y变换
  纵坐标 ↑↓ -    。  

  210  给  绘图区

编 覆盖绘图区
   浅灰色  画线颜色: 设备描述表
    浅灰色  画刷颜色: 设备描述表
    0  点X变换  0  点Y变换
    绘图区  填充圆: 设备描述表
   。

对象事件 初始时:
                本身的 启动: 角编辑框
                本身的 启动: 角度按钮
                     读句柄: 角编辑框
                  置绑定对象: 角度按钮

         280 11 40 23 定位: 角编辑框
         259 11 20 23 定位: 角度按钮

           0 360 置可调范围: 角度按钮
               0   置当前值: 角度按钮

                本身的 启动: N编辑框
                本身的 启动: N角按钮
                     读句柄: N编辑框
                  置绑定对象: N角按钮

         360 11 40 23 定位: N编辑框
         339 11 20 23 定位: N角按钮

           3 360 置可调范围: N角按钮
               5   置当前值: N角按钮

                本身的 启动: 显示按钮
         435 11 60 23 定位: 显示按钮
字串" 显  示"   置控制对象标题: 显示按钮

         对象事件。

编 转弧度 π 180.0 / * 。

编 转角度 180.0 π / * 。

编 回始点  ( N --- )
   { N \ -- }
 ♂ N  = 就 ♀ 0 然后
 。

编 星常量   (  R  N  --- )
   { \ R0 N0 -- } 数>实  写入  N0 数>实  写入  R0
    N0 3.0 >
   就    R0  360.00 N0 4.00 * /  转弧度  FCOS  *
             360.00 N0 2.00 * /  转弧度  FTAN  *
         R0  360.00 N0 4.00 * /  转弧度  FSIN  *  -
   否则   R0 3.0 /
   然后
   。

编 求实数
   ♂ 属性值 0= 就 数>实  然后  。

编 求点坐标    ( R 度数   --- )
        求实数 ↑↓ 求实数 ↑↓ 转弧度
         ♂  FCOS  2 §   *  实>数 点X变换
         ∵  FSIN        *  实>数 点Y变换    。

0.0  给  R0
0.0  给  角1
0.0  给  角2
0.0  给  角3

编 角星   ( X Y R 偏移度 颜色一 颜色二  N  --- )
         { X Y R 偏移度 颜色一 颜色二 N \ 五星色 -- }  0  写入  五星色
         X        写入 横坐标 Y        写入  纵坐标
         R N 星常量  写入  R0
  N 0
  ?循环  内环数             数>实  360. N  数>实 /      *    偏移度 求实数  +  写入 角1
        内环数 1+ N 回始点  数>实  360. N  数>实 /      *    偏移度 求实数  +  写入 角2
        内环数 数>实  360. N  数>实 / ♂ ∵ * ↑↓ 2.  /  +  偏移度  求实数  +  写入 角3

         开始画笔路径[: 设备描述表
         X    Y         坐标定位: 设备描述表
         R   角1  求点坐标 画线到: 设备描述表
         R0  角3  求点坐标 画线到: 设备描述表
         X    Y          画线到: 设备描述表
         ]结束画笔路径:  设备描述表
         2 画笔宽度:  颜色一
          颜色一   画线颜色: 设备描述表
          颜色一   画刷颜色: 设备描述表 
         勾画轮廓并填充: 设备描述表
         开始画笔路径[: 设备描述表
                  X    Y         坐标定位: 设备描述表
         R   角2  求点坐标 画线到: 设备描述表
         R0  角3  求点坐标 画线到: 设备描述表
         X    Y          画线到: 设备描述表
 
        ]结束画笔路径:  设备描述表
         2 画笔宽度: 颜色二
         颜色二   画线颜色: 设备描述表
         颜色二   画刷颜色: 设备描述表 
         勾画轮廓并填充: 设备描述表
   回环
    。

编 N角星
   覆盖绘图区
   250 250 200
   读当前值: 角度按钮
   粉红色 深红色
   读当前值: N角按钮 角星
   。

对象事件 绘制时:
        绘制时: 自源模板
    0 0 读大小: 自本身  浅灰色 区域填充: 设备描述表
       0 置背景混合方式: 设备描述表
        230 14 字串" 偏移"  文本输出: 设备描述表
        322 14 字串" 度"  文本输出: 设备描述表
        403 14 字串" 角星"  文本输出: 设备描述表
         对象事件。

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

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

255 9 52 RGB 新颜色 粉红色
155 6 36 RGB 新颜色 深红色

扩展对象 五角星绘制窗口  继承自 窗口对象模板

按钮控制 显示按钮
数调谐控制 N角按钮
编辑框控制 N编辑框

数调谐控制 角度按钮
编辑框控制 角编辑框

\ 窗口内过程、事件、变量、实例对象、缓冲等
 
属性 窗口标题:
     编字串" 五角星绘制"
     属性。
属性 开始尺寸:
     500 500
     属性。
属性 开始位置:
     自动居中: 自本身
     属性。

0  给  横坐标
0  给  纵坐标

编 点X变换
  横坐标     +     。

编 点Y变换
  纵坐标 ↑↓ -    。  

  210  给  绘图区

编 覆盖绘图区
   浅灰色  画线颜色: 设备描述表
    浅灰色  画刷颜色: 设备描述表
    0  点X变换  0  点Y变换
    绘图区  填充圆: 设备描述表
   。

对象事件 初始时:
                本身的 启动: 角编辑框
                本身的 启动: 角度按钮
                     读句柄: 角编辑框
                  置绑定对象: 角度按钮

         280 11 40 23 定位: 角编辑框
         259 11 20 23 定位: 角度按钮

           0 360 置可调范围: 角度按钮
               0   置当前值: 角度按钮

                本身的 启动: N编辑框
                本身的 启动: N角按钮
                     读句柄: N编辑框
                  置绑定对象: N角按钮

         360 11 40 23 定位: N编辑框
         339 11 20 23 定位: N角按钮

           3 360 置可调范围: N角按钮
               5   置当前值: N角按钮

                本身的 启动: 显示按钮
         435 11 60 23 定位: 显示按钮
字串" 显  示"   置控制对象标题: 显示按钮

         对象事件。

编 转弧度 π 180.0 / * 。

编 转角度 180.0 π / * 。

编 回始点  ( N --- )
   { N \ -- }
 ♂ N  = 就 ♀ 0 然后
 。

编 星常量   (  R  N  --- )
   { \ R0 N0 -- } 数>实  写入  N0 数>实  写入  R0
    N0 3.0 >
   就    R0  360.00 N0 4.00 * /  转弧度  FCOS  *
             360.00 N0 2.00 * /  转弧度  FTAN  *
         R0  360.00 N0 4.00 * /  转弧度  FSIN  *  -
   否则   R0 3.0 /
   然后
   。

编 求实数
   ♂ 属性值 0= 就 数>实  然后  。

编 求点坐标    ( R 度数   --- )
        求实数 ↑↓ 求实数 ↑↓ 转弧度
         ♂  FCOS  2 §   *  实>数 点X变换
         ∵  FSIN        *  实>数 点Y变换    。

编 勾画轮廓并填充
         开始画笔路径[: 设备描述表
坐标定位: 设备描述表
画线到: 设备描述表
画线到: 设备描述表 
画线到: 设备描述表
         ]结束画笔路径:  设备描述表
         勾画轮廓并填充: 设备描述表
。

编 角星   ( X Y R 偏移度 颜色一 颜色二  N  --- )
         { X Y R 偏移度 颜色一 颜色二 N \ R0 -- }  
         X        写入 横坐标 Y        写入  纵坐标
         R N 星常量  写入  R0
         2 画笔宽度:  颜色一
  N 0
  ?循环  R  内环数             数>实  360. N  数>实 /      *    偏移度 求实数  +  求点坐标
        R  内环数 1+ N 回始点  数>实  360. N  数>实 /      *    偏移度 求实数  +  求点坐标
        R0 内环数 数>实  360. N  数>实 / ♂ ∵ * ↑↓ 2.  /  +  偏移度  求实数  +  求点坐标
        

          颜色一   画线颜色: 设备描述表
          颜色一   画刷颜色: 设备描述表
         X    Y         
         双∽   
         9 √ 9 √
         X    Y
         勾画轮廓并填充
         颜色二   画线颜色: 设备描述表
         颜色二   画刷颜色: 设备描述表
         X    Y    
         双↑↓   
         双∴ 
         X    Y         
         勾画轮廓并填充
   回环
    。

编 N角星
   覆盖绘图区
   250 250 200
   读当前值: 角度按钮
   粉红色 深红色
   读当前值: N角按钮 角星
   。

对象事件 绘制时:
        绘制时: 自源模板
    0 0 读大小: 自本身  浅灰色 区域填充: 设备描述表
       0 置背景混合方式: 设备描述表
        230 14 字串" 偏移"  文本输出: 设备描述表
        322 14 字串" 度"  文本输出: 设备描述表
        403 14 字串" 角星"  文本输出: 设备描述表
         对象事件。

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

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