OPENGL-初级程序-极语言教程

//窗体代码:

整数 窗体;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-680)>>1,上=(桌面.高-513)>>1;
窗体=创建窗口($100,程序.名称,"动画演示",$10CF0000,左,上,680,513,0,0,0,0);
窗体启动;读取消息
结束

 

//程序代码:

引入 "lib\opengl32.lib";
程序段 窗体消息(窗口,消息,参数,双字 数据)
    判断(消息)为 窗口关闭 停止
    为 窗口创建 渲染设备(窗口)
    为 窗口缩放 设置视区(0,0,数据.低,数据.高)
    为 窗口重绘 绘制旋转矩形
    否则 处理窗口(窗口,消息,参数,数据)
结束

常量 四边形 = 7;
常量 颜色缓冲位 = $4000;
整数 设备,渲染;小数 旋转=0.8;布尔 加速=真;矩形类 视窗;
像素格式类 图像(版本=1,标志=$25,颜色位=16,缓冲深度=16)

程序段 渲染设备(整数 窗口);
    设备=取设备(窗口)
    格式像素(设备,匹配像素(设备,图像),图像)
    渲染 = 创建渲染(设备)
    指定渲染(设备,渲染)
结束

程序段 绘制旋转矩形;
    小数 速度;
    清理预设(颜色缓冲位);
    旋转小数(旋转,0.0,0.0,1.0);
    速度 = 0.01 * 旋转;
    如果(加速=真){
        如果(旋转<30.0)旋转+速度
        否则 加速=假
    }否则{
        如果(旋转>1.0)旋转-速度
        否则 加速=真
    }
    开始分形(四边形);
    三色小数(40.0,0.0,0.0);三点小数(-0.6,-0.6,0.0);
    三色小数(0.0,40.0,0.0);三点小数(0.6,-0.6,0.0);
    三色小数(0.0,0.0,40.0);三点小数(0.6,0.6,0.0);
    三色小数(40.0,40.0,0.0);三点小数(-0.6,0.6,0.0); 
    结束分形;交换缓冲(设备)
结束

程序段 窗体启动
读取消息
结束