太阳系-初级程序-极语言教程

//清单.xml代码:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<dependency><dependentAssembly><assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/></dependentAssembly></dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3"><security><requestedPrivileges>
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
</requestedPrivileges></security></trustInfo></assembly>

//窗体代码:

整数 窗体;
程序资源 24,"清单.xml";
程序段 加载窗体
窗体=创建窗口($100,程序.名称,"窗体",$11C80000,10,10,401,282,0,0,0,0);
窗体启动;读取消息
结束

//程序代码:

整数 海王星=2995,天王星=1995,土星=914,木星=561,火星=163,地球=102,金星=72,水星=31
整数 设备,黑笔,蓝笔,黑刷,红刷,缩放=350,比例=256;正数 左边,上边,右边,下边;坐标类 中心

程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 滚轮转动{缩放调整(参数)}
    为 鼠标移动{数据->@右边;缩放调整(参数)数据->@左边}
    为 按下左键,按下右键{数据->@左边}
    否则{处理窗口(窗口,消息,参数,数据)}
结束
程序段 窗体启动
    显隐窗口(窗体,窗口最大)
    中心.左=桌面.宽>>1
    中心.顶=桌面.高>>1
    黑刷=创建画刷(0)
    红刷=创建画刷(255)
    黑笔=创建画笔(0,1,0)
    蓝笔=创建画笔(0,2,$FF0060)
    设备=取设备(窗体)
    绘制星系
    读取消息
结束

程序段 缩放调整(参数)
    判断(参数)为 1{如果(上边>下边)比例-2如果(上边<下边)比例+2}
    为 2{如果(左边>右边)中心.左-5如果(左边<右边)中心.左+5
    如果(上边>下边)中心.顶-3如果(上边<下边)中心.顶+3}
    为 7864320缩放+5为 -7864320缩放-5
    否则 返回;绘制星系
结束

程序段 绘制星系
    整数 星,系=@海王星
    选择对象(设备,黑刷)
    选择对象(设备,黑笔)
    画方块(设备,0,0,桌面.宽,桌面.高)
    选择对象(设备,蓝笔)
    循环数组(星<系(8)&)画圆(星)
    选择对象(设备,黑笔)
    选择对象(设备,红刷)
    画圆(12)小行星(350)
    小行星(3500)
结束

程序段  画圆(半径)
    整数 上,下,左,右
    半径*缩放>>10;
    左=中心.左-半径
    右=中心.左+半径
    半径*比例>>8;
    上=中心.顶-半径
    下=中心.顶+半径
    画椭圆(设备,左,上,右,下)
结束

程序段 小行星(半径)
    整数 数=0,值,左,上,机率;小数 勾,股;浮点 角度
    值=半径*缩放>>10;
    循环(数<半径){数++
    机率=随机数
    角度=机率 * 0.0015343552
    勾=正弦(角度)
    股=余弦(角度)
    机率=值+机率*缩放>>18
    左=勾 * 机率 
    机率*比例>>8;
    上=股 * 机率 
    左=中心.左-左
    上=中心.顶-上
    设置颜色(设备,左,上,$CCCC)}
结束;