批处理之家 - Powered by Discuz! Board

下载外链图，存为a.zip，解压即是（含全部源码）。

CLGO3D 1.0版
_____________________________________________________________________________
CLGO3D 绘图脚本语言，是CLGO平面绘图语言的3D版，目前是测试阶段。
_____________________________________________________________________________

W、A、S 键分别控制x、y、z轴视角。对.CL3后缀的文件直接拖拽到CLGO3D上运行。

_全局变量：

-----------------------------------------------------------------------------
关键词(不区分大小写)        中文释义                    用法说明
-----------------------------------------------------------------------------
:PENX                       横坐标
:PENY                       纵坐标
:PENZ                       竖坐标
:PENY                       纵坐标
:PENW                       笔宽                        取值0-255
:PENC                       笔色                        取值0-15
:PENB                       笔背景色                    取值0-15
:PENS                       笔光滑度                    取值0-6
:PENA                       笔透明度                    取值0-255
:HEADING                    笔头角度                    取值0-360
:PEN0 - :PEN9               用户变量                    供用户使用的全局变量
复制代码

TO MORNING_GLORY :R :H
FOR ::A -:R :R
IF ::A%10=0
MAKE :PENC=RAND(15)+1 :PENZ=::A
MAKE :H=SQRT(:R^2-::A^2)
REPEAT 36
PU
FD :H
PD
FD 10
BK :H+10
RT 10
]
]
]
TO MAIN
MAKE :PENW=6
MORNING_GLORY 300 0
WAIT

复制代码

// Julia set renderer - Fragment Shader
// Graham Sellers
// OpenGL SuperBible
#version 150 core
in vec2 initial_z;
out vec4 color;
uniform sampler1D tex_gradient;
uniform vec2 C;
void main(void)
{
vec2 Z = initial_z;
int iterations = 0;
float rate;
const float threshold_squared = 16.0;
const int max_iterations = 256;
while (iterations < max_iterations && dot(Z, Z) < threshold_squared)
{
vec2 Z_squared;
Z_squared.x = Z.x * Z.x - Z.y * Z.y + C.y;
Z_squared.y = Z.x * Z.y * 2.0 + C.x;
Z = Z_squared;
iterations++;
}
if (iterations == max_iterations)
color = vec4(0.0, 0.0, 0.0, 1.0);
else
rate = float(iterations) / 10.0;
color = vec4( sin(rate), cos(1.0-rate), exp(rate), 1.0);
}

复制代码

double callAPI(void *hProc, int *arr, int len, int callMODE, BOOL retMODE)
{
int retINT;
double retLLF;
__asm
{
mov ebx, dword ptr [arr] ;//把arr指向的地址（参数列表的尾地址）放入ebx
mov ecx, dword ptr [len] ;//把len的值放入ecx，作为循环控制变量
dec ecx ;//递减ecx
LOOP1:
mov eax, dword ptr [ebx] ;//倒序把数组arr（ebx指向的内容）的内容加载到eax
sub ebx, 4 ;//把ebx的内容递减4（ebx指向的前移一位）
push eax ;//把eax压栈
dec ecx ;//递减ecx
jns LOOP1 ;//如果ecx不为负值，则跳转到LOOP1:
call dword ptr [hProc] ;//调用API
fstp retLLF;
mov retINT, eax ;//返回值存入result
mov ebx, dword ptr [len] ;//把len的值放入ebx
SHL ebx, 2 ;//左移两位，这是可变参数的大小
cmp callMODE, 0
je LOOP2
add esp, ebx
LOOP2:
xor eax, eax ;//清空eax
}
return (retMODE)?retINT:retLLF;
}

复制代码