ETV3D例程

一听软件

wsad控制移动	例程06_加入天空
例程01_最简单窗口	例子07_加入地形
例程02_创建一个模型	例子8_自由摄像机
例程03_带纹理的模型	例子9_摄像机跟踪
例程04_建造简单墙壁和地板	例子10_透明色和双面贴图
例程05_控制移动	例子11_wsad控制移动 例子12_练习

  

按钮1.可视 ＝ 假  ' 首先使按钮隐藏
引擎.窗口模式 (_启动窗口.取窗口句柄 ())  ' 告诉引擎要执行渲染的窗口
模型 ＝ 场景.创建模型 ()  ' 模型必须先通过场景创建
模型.创建茶壶 ()  ' 大家明白为什么TV3D大都创建一个茶壶模型了吧,因为它不需要模型资源
模型.设置位置 (0, 0, 5)  ' 设置模型的位置
继续 ＝ 真  ' 逻辑型变量"继续"是是否继续执行渲染循环的条件
循环判断首 ()
引擎.清屏 ()  ' 清屏,清除屏幕上的一切显示,为执行渲染命令做准备
' 在此加入执行渲染的代码
模型.渲染 ()
引擎.渲染 ()  ' 把引擎的计算结果呈递到屏幕上
处理事件 ()  ' 响应窗口事件
循环判断尾 (继续)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

继续 ＝ 假  ' 跳出循环

.版本 2<br /> <br /> 按钮1.可视 ＝ 假  ' 首先使按钮隐藏<br /> 引擎.窗口模式 (_启动窗口.取窗口句柄 ())  ' 告诉引擎要执行渲染的窗口<br /> 模型 ＝ 场景.创建模型 ()  ' 模型必须先通过场景创建<br /> 模型.创建茶壶 ()  ' 大家明白为什么TV3D大都创建一个茶壶模型了吧,因为它不需要模型资源<br /> 模型.设置位置 (0, 0, 5)  ' 设置模型的位置<br /> 继续 ＝ 真  ' 逻辑型变量"继续"是是否继续执行渲染循环的条件<br /> .循环判断首 ()<br />     引擎.清屏 ()  ' 清屏,清除屏幕上的一切显示,为执行渲染命令做准备<br />     ' 在此加入执行渲染的代码<br />     模型.渲染 ()<br />     引擎.渲染 ()  ' 把引擎的计算结果呈递到屏幕上<br />     处理事件 ()  ' 响应窗口事件<br /> .循环判断尾 (继续)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 继续 ＝ 假  ' 跳出循环

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
引擎	引擎类
场景	场景类
天空	天空类
房间	模型类
球体	模型类
地面	地形类
男角色	角色类
飞机	角色类
角色位置	E3D向量
纹理	纹理类
材质	材质类
输入设备	输入设备类
鼠标x位移
鼠标y位移
茶壶纹理索引
继续	逻辑型
摄像机位置x	小数型
摄像机位置y	小数型
摄像机位置z	小数型
角度	小数型
角度y	小数型
速度系数	小数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

按钮1.可视 ＝ 假  ' 首先使按钮隐藏
设置其它 ()
设置引擎 ()
载入纹理 ()
设置模型 ()
设置天空 ()
执行渲染 ()

子程序名	返回值类型	公开	备 注
设置引擎

引擎.窗口模式 (_启动窗口.取窗口句柄 ())  ' 告诉引擎要执行渲染的窗口
引擎.设置默认路径 (取运行目录 () ＋ “\资源\”)  ' 告诉引擎我们的资源文件在哪里
引擎.设置调试模式 (真)
引擎.设置调试文件 (取运行目录 () ＋ “\除错信息.txt”)  ' 可以查看调试文件来除错,比如是不是有纹理、模型等没有成功载入等
输入设备.初始化 (真, 真)  ' 必须在引擎创建以后初始化,不能先初始化输入设备再创建引擎
场景.设置透视参数 (60, 3000)  ' 这行的作用不明白的话就注释掉,再运行看看效果应该就明白了

子程序名	返回值类型	公开	备 注
载入纹理

子程序名	返回值类型	公开	备 注
设置模型

变量名	类 型	静态	数组	备 注
h	整数型

纹理.载入纹理 (“贴图\墙壁\墙壁2.jpg”, “墙壁”)
纹理.载入纹理 (“贴图\地面\地面1.jpg”, “地面”)
纹理.载入纹理 (“贴图\地面\地球.jpg”, “地球”)
纹理.载入纹理 (“贴图\地面\草地.jpg”, “草地”)
纹理.载入纹理 (“贴图\地面\地面2.jpg”, “地面2”)
纹理.载入纹理 (“贴图\地面\沙地.jpg”, “沙地”)
材质.创建发光材质 (0, 0, 0, 1, 0, 0, “材质1”)
' 房间 ＝ 场景.创建模型 ()  ' 模型必须先通过场景创建
房间.添加墙 (取纹理索引 (“墙壁”), 500, -500, -500, -500, 100, 0, 3, 1)  ' 若要编译exe，请将完全注释或删除，不然会出现内存不能为read
房间.添加墙 (取纹理索引 (“墙壁”), -500, -500, -500, 500, 100, 0, 3, 1)
房间.添加墙 (取纹理索引 (“墙壁”), -500, 500, 500, 500, 100, 0, 3, 1)
房间.添加墙 (取纹理索引 (“墙壁”), 500, 500, 500, -500, 100, 0, 3, 1)
房间.添加地板 (取纹理索引 (“地面”), -500, -500, 500, 500, 0, 10, 10)  ' 这几行通过函数名称就可以知道意义了
' 球体 ＝ 场景.创建模型 ()
' 球体.载入TVM文件 (“qiu2.tvm”, 真, 真)
' 球体.设置纹理 (取纹理索引 (“地球”))
' 球体.设置缩放比 (1, 1, 1)
' 球体.设置位置 (0, 300, 0)
地面 ＝ 场景.创建地形 ()
地面.生成地形 (“贴图\地形\地形2.png”, #地形精度_cTV_PRECISION_HIGH, 10, 10, -1000, 1, -1000, 真)
地面.设置纹理 (取纹理索引 (“沙地”), )
男角色 ＝ 场景.创建角色 ()
男角色.载入TVA模型 (“TVA\peter\男.tva”, 真, 真)
男角色.设置位置 (0, 50, 0)
男角色.播放动画 ()
男角色.设置光照模式 (0, , )
飞机 ＝ 场景.创建角色 ()
飞机.载入TVA模型 (“TVA\p\p.tva”, 真, 真)
飞机.设置位置 (0, 500, 0)
飞机.设置光照模式 (0, , )
飞机.播放动画 ()
' 角色位置.x ＝ 0
' 角色位置.y ＝ 50
' 角色位置.z ＝ 0
' 创建TVA角色 (“TVA\peter\男.tva”, 角色位置)

子程序名	返回值类型	公开	备 注
设置天空

纹理.载入纹理 (“贴图\天空\前面.jpg”, “前”)
纹理.载入纹理 (“贴图\天空\后面.jpg”, “后”)
纹理.载入纹理 (“贴图\天空\左面.jpg”, “左”)
纹理.载入纹理 (“贴图\天空\右面.jpg”, “右”)
纹理.载入纹理 (“贴图\天空\顶部.jpg”, “顶”)
纹理.载入纹理 (“贴图\天空\底部.jpg”, “底”)
天空.天空盒设置纹理 (取纹理索引 (“前”), 取纹理索引 (“后”), 取纹理索引 (“左”), 取纹理索引 (“右”), 取纹理索引 (“顶”), 取纹理索引 (“底”))
天空.天空盒设置缩放比 (3, 3, 3)
天空.天空盒启用 (真)

子程序名	返回值类型	公开	备 注
设置其它

速度系数 ＝ 0.2
摄像机位置y ＝ 25
继续 ＝ 真
播放MP3 (-1, “mp3\50.mp3”)

子程序名	返回值类型	公开	备 注
控制移动

如果真 (输入设备.按键是否按下 ( #键盘键码_W ))
摄像机位置x ＝ 摄像机位置x ＋ 求余弦 (角度) × 引擎.取帧周期 () × 速度系数
摄像机位置z ＝ 摄像机位置z ＋ 求正弦 (角度) × 引擎.取帧周期 () × 速度系数
摄像机位置y ＝ 摄像机位置y ＋ 求正弦 (角度y) × 引擎.取帧周期 () × 速度系数

如果真 (输入设备.按键是否按下 ( #键盘键码_S ))
摄像机位置x ＝ 摄像机位置x － 求余弦 (角度) × 引擎.取帧周期 () × 速度系数
摄像机位置z ＝ 摄像机位置z － 求正弦 (角度) × 引擎.取帧周期 () × 速度系数
摄像机位置y ＝ 摄像机位置y － 求正弦 (角度y) × 引擎.取帧周期 () × 速度系数

如果真 (输入设备.按键是否按下 ( #键盘键码_A ))
摄像机位置x ＝ 摄像机位置x － 求正弦 (角度) × 引擎.取帧周期 () × 速度系数
摄像机位置z ＝ 摄像机位置z ＋ 求余弦 (角度) × 引擎.取帧周期 () × 速度系数
如果真 (输入设备.按键是否按下 ( #键盘键码_D ))
摄像机位置x ＝ 摄像机位置x ＋ 求正弦 (角度) × 引擎.取帧周期 () × 速度系数
摄像机位置z ＝ 摄像机位置z － 求余弦 (角度) × 引擎.取帧周期 () × 速度系数
如果真 (输入设备.按键是否按下 ( #键盘键码_空格 ))
摄像机位置y ＝ 摄像机位置y ＋ 引擎.取帧周期 () × 速度系数
如果真 (输入设备.按键是否按下 ( #键盘键码_左Ctrl ))
摄像机位置y ＝ 摄像机位置y － 引擎.取帧周期 () × 速度系数

' 摄像机位置y ＝ 地面.取位置高度 (摄像机位置x, 摄像机位置z) ＋ 100
输入设备.取鼠标状态 (鼠标x位移, 鼠标y位移)
如果真 (取绝对值 (鼠标x位移) ＞ 0)
角度 ＝ 角度 － 引擎.取帧周期 () × 0.01 × 鼠标x位移

如果真 (取绝对值 (鼠标y位移) ＞ 0)
角度y ＝ 角度y － 引擎.取帧周期 () × 0.01 × 鼠标y位移
如果真 (取绝对值 (角度y) ＞ 1.5)
角度y ＝ 取符号 (角度y) × 1.5


场景.设置摄像机 (摄像机位置x, 摄像机位置y, 摄像机位置z, 摄像机位置x ＋ 求余弦 (角度), 摄像机位置y ＋ 求正弦 (角度y), 摄像机位置z ＋ 求正弦 (角度))
' 以上函数均为通过获取键盘键值来改变摄像机的位置和视向,至于算法,可以通过在纸上画一下图来分析,具体就不多说了

子程序名	返回值类型	公开	备 注
执行渲染

循环判断首 ()
控制移动 ()
引擎.清屏 ()
天空.天空盒渲染 ()
场景.渲染所有 (真)  ' 如果模型、角色等较多，就不要使用这个函数，会降低渲染速度
引擎.渲染 ()
处理事件 ()
球体.绕y旋转 (-0.001, )
循环判断尾 (继续)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

继续 ＝ 假

子程序名	返回值类型	公开	备 注
飞机

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 引擎, 引擎类<br /> .程序集变量 场景, 场景类<br /> .程序集变量 天空, 天空类<br /> .程序集变量 房间, 模型类<br /> .程序集变量 球体, 模型类<br /> .程序集变量 地面, 地形类<br /> .程序集变量 男角色, 角色类<br /> .程序集变量 飞机, 角色类<br /> .程序集变量 角色位置, E3D向量<br /> .程序集变量 纹理, 纹理类<br /> .程序集变量 材质, 材质类<br /> .程序集变量 输入设备, 输入设备类<br /> .程序集变量 鼠标x位移<br /> .程序集变量 鼠标y位移<br /> .程序集变量 茶壶纹理索引<br /> .程序集变量 继续, 逻辑型<br /> .程序集变量 摄像机位置x, 小数型<br /> .程序集变量 摄像机位置y, 小数型<br /> .程序集变量 摄像机位置z, 小数型<br /> .程序集变量 角度, 小数型<br /> .程序集变量 角度y, 小数型<br /> .程序集变量 速度系数, 小数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 按钮1.可视 ＝ 假  ' 首先使按钮隐藏<br /> 设置其它 ()<br /> 设置引擎 ()<br /> 载入纹理 ()<br /> 设置模型 ()<br /> 设置天空 ()<br /> 执行渲染 ()<br /> <br /> .子程序 设置引擎<br /> <br /> 引擎.窗口模式 (_启动窗口.取窗口句柄 ())  ' 告诉引擎要执行渲染的窗口<br /> 引擎.设置默认路径 (取运行目录 () ＋ “\资源\”)  ' 告诉引擎我们的资源文件在哪里<br /> 引擎.设置调试模式 (真)<br /> 引擎.设置调试文件 (取运行目录 () ＋ “\除错信息.txt”)  ' 可以查看调试文件来除错,比如是不是有纹理、模型等没有成功载入等<br /> 输入设备.初始化 (真, 真)  ' 必须在引擎创建以后初始化,不能先初始化输入设备再创建引擎<br /> 场景.设置透视参数 (60, 3000)  ' 这行的作用不明白的话就注释掉,再运行看看效果应该就明白了<br /> <br /> .子程序 载入纹理<br /> <br /> <br /> <br /> .子程序 设置模型<br /> .局部变量 h, 整数型<br /> <br /> 纹理.载入纹理 (“贴图\墙壁\墙壁2.jpg”, “墙壁”)<br /> 纹理.载入纹理 (“贴图\地面\地面1.jpg”, “地面”)<br /> 纹理.载入纹理 (“贴图\地面\地球.jpg”, “地球”)<br /> 纹理.载入纹理 (“贴图\地面\草地.jpg”, “草地”)<br /> 纹理.载入纹理 (“贴图\地面\地面2.jpg”, “地面2”)<br /> 纹理.载入纹理 (“贴图\地面\沙地.jpg”, “沙地”)<br /> 材质.创建发光材质 (0, 0, 0, 1, 0, 0, “材质1”)<br /> <br /> ' 房间 ＝ 场景.创建模型 ()  ' 模型必须先通过场景创建<br /> 房间.添加墙 (取纹理索引 (“墙壁”), 500, -500, -500, -500, 100, 0, 3, 1)  ' 若要编译exe，请将完全注释或删除，不然会出现内存不能为read<br /> 房间.添加墙 (取纹理索引 (“墙壁”), -500, -500, -500, 500, 100, 0, 3, 1)<br /> 房间.添加墙 (取纹理索引 (“墙壁”), -500, 500, 500, 500, 100, 0, 3, 1)<br /> 房间.添加墙 (取纹理索引 (“墙壁”), 500, 500, 500, -500, 100, 0, 3, 1)<br /> 房间.添加地板 (取纹理索引 (“地面”), -500, -500, 500, 500, 0, 10, 10)  ' 这几行通过函数名称就可以知道意义了<br /> <br /> ' 球体 ＝ 场景.创建模型 ()<br /> ' 球体.载入TVM文件 (“qiu2.tvm”, 真, 真)<br /> ' 球体.设置纹理 (取纹理索引 (“地球”))<br /> ' 球体.设置缩放比 (1, 1, 1)<br /> ' 球体.设置位置 (0, 300, 0)<br /> <br /> 地面 ＝ 场景.创建地形 ()<br /> 地面.生成地形 (“贴图\地形\地形2.png”, #地形精度_cTV_PRECISION_HIGH, 10, 10, -1000, 1, -1000, 真)<br /> 地面.设置纹理 (取纹理索引 (“沙地”), )<br /> <br /> 男角色 ＝ 场景.创建角色 ()<br /> 男角色.载入TVA模型 (“TVA\peter\男.tva”, 真, 真)<br /> 男角色.设置位置 (0, 50, 0)<br /> 男角色.播放动画 ()<br /> 男角色.设置光照模式 (0, , )<br /> <br /> 飞机 ＝ 场景.创建角色 ()<br /> 飞机.载入TVA模型 (“TVA\p\p.tva”, 真, 真)<br /> 飞机.设置位置 (0, 500, 0)<br /> 飞机.设置光照模式 (0, , )<br /> 飞机.播放动画 ()<br /> <br /> ' 角色位置.x ＝ 0<br /> ' 角色位置.y ＝ 50<br /> ' 角色位置.z ＝ 0<br /> ' 创建TVA角色 (“TVA\peter\男.tva”, 角色位置)<br /> <br /> <br /> .子程序 设置天空<br /> <br /> 纹理.载入纹理 (“贴图\天空\前面.jpg”, “前”)<br /> 纹理.载入纹理 (“贴图\天空\后面.jpg”, “后”)<br /> 纹理.载入纹理 (“贴图\天空\左面.jpg”, “左”)<br /> 纹理.载入纹理 (“贴图\天空\右面.jpg”, “右”)<br /> 纹理.载入纹理 (“贴图\天空\顶部.jpg”, “顶”)<br /> 纹理.载入纹理 (“贴图\天空\底部.jpg”, “底”)<br /> <br /> 天空.天空盒设置纹理 (取纹理索引 (“前”), 取纹理索引 (“后”), 取纹理索引 (“左”), 取纹理索引 (“右”), 取纹理索引 (“顶”), 取纹理索引 (“底”))<br /> 天空.天空盒设置缩放比 (3, 3, 3)<br /> 天空.天空盒启用 (真)<br /> <br /> .子程序 设置其它<br /> <br /> 速度系数 ＝ 0.2<br /> 摄像机位置y ＝ 25<br /> 继续 ＝ 真<br /> 播放MP3 (-1, “mp3\50.mp3”)<br /> <br /> .子程序 控制移动<br /> <br /> .如果真 (输入设备.按键是否按下 (#键盘键码_W))<br />     摄像机位置x ＝ 摄像机位置x ＋ 求余弦 (角度) × 引擎.取帧周期 () × 速度系数<br />     摄像机位置z ＝ 摄像机位置z ＋ 求正弦 (角度) × 引擎.取帧周期 () × 速度系数<br />     摄像机位置y ＝ 摄像机位置y ＋ 求正弦 (角度y) × 引擎.取帧周期 () × 速度系数<br /> .如果真结束<br /> <br /> .如果真 (输入设备.按键是否按下 (#键盘键码_S))<br />     摄像机位置x ＝ 摄像机位置x － 求余弦 (角度) × 引擎.取帧周期 () × 速度系数<br />     摄像机位置z ＝ 摄像机位置z － 求正弦 (角度) × 引擎.取帧周期 () × 速度系数<br />     摄像机位置y ＝ 摄像机位置y － 求正弦 (角度y) × 引擎.取帧周期 () × 速度系数<br /> .如果真结束<br /> <br /> .如果真 (输入设备.按键是否按下 (#键盘键码_A))<br />     摄像机位置x ＝ 摄像机位置x － 求正弦 (角度) × 引擎.取帧周期 () × 速度系数<br />     摄像机位置z ＝ 摄像机位置z ＋ 求余弦 (角度) × 引擎.取帧周期 () × 速度系数<br /> .如果真结束<br /> .如果真 (输入设备.按键是否按下 (#键盘键码_D))<br />     摄像机位置x ＝ 摄像机位置x ＋ 求正弦 (角度) × 引擎.取帧周期 () × 速度系数<br />     摄像机位置z ＝ 摄像机位置z － 求余弦 (角度) × 引擎.取帧周期 () × 速度系数<br /> .如果真结束<br /> .如果真 (输入设备.按键是否按下 (#键盘键码_空格))<br />     摄像机位置y ＝ 摄像机位置y ＋ 引擎.取帧周期 () × 速度系数<br /> .如果真结束<br /> .如果真 (输入设备.按键是否按下 (#键盘键码_左Ctrl))<br />     摄像机位置y ＝ 摄像机位置y － 引擎.取帧周期 () × 速度系数<br /> .如果真结束<br /> <br /> ' 摄像机位置y ＝ 地面.取位置高度 (摄像机位置x, 摄像机位置z) ＋ 100<br /> <br /> 输入设备.取鼠标状态 (鼠标x位移, 鼠标y位移)<br /> .如果真 (取绝对值 (鼠标x位移) ＞ 0)<br />     角度 ＝ 角度 － 引擎.取帧周期 () × 0.01 × 鼠标x位移<br /> .如果真结束<br /> <br /> .如果真 (取绝对值 (鼠标y位移) ＞ 0)<br />     角度y ＝ 角度y － 引擎.取帧周期 () × 0.01 × 鼠标y位移<br />     .如果真 (取绝对值 (角度y) ＞ 1.5)<br />         角度y ＝ 取符号 (角度y) × 1.5<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> 场景.设置摄像机 (摄像机位置x, 摄像机位置y, 摄像机位置z, 摄像机位置x ＋ 求余弦 (角度), 摄像机位置y ＋ 求正弦 (角度y), 摄像机位置z ＋ 求正弦 (角度))<br /> ' 以上函数均为通过获取键盘键值来改变摄像机的位置和视向,至于算法,可以通过在纸上画一下图来分析,具体就不多说了<br /> <br /> .子程序 执行渲染<br /> <br /> .循环判断首 ()<br />     控制移动 ()<br />     引擎.清屏 ()<br />     天空.天空盒渲染 ()<br />     场景.渲染所有 (真)  ' 如果模型、角色等较多，就不要使用这个函数，会降低渲染速度<br />     引擎.渲染 ()<br />     处理事件 ()<br />     球体.绕y旋转 (-0.001, )<br /> .循环判断尾 (继续)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 继续 ＝ 假<br /> <br /> <br /> .子程序 飞机

补充内容 (2014-11-9 10:06):
下载地址不可以用了

村雨

很喜欢ETV3D，但是版本太杂了，很郁闷。

afd

看下喔      

臭臭臭臭臭Bitch

好厉害的样子

Matty

大表哥给力

柠萌

#在这里快速回复#感谢分享，很给力！~

阿全

我来学习一下，谢谢分享！

名无所谓

超赞。。

汉族

地址失效建议重发

一听软件

别下上面的了上面的下不起新的下载地址；