CLGO3D解释器发布

happy886rr

CLGO3D 绘图脚本语言，是CLGO平面绘图语言的3D版，目前处在测试阶段。将GDI+绘图库更换为OPENGL库，因此实现了三维线段绘制。

下载外链图，存为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               用户变量                    供用户使用的全局变量
复制代码

代码太长(1911行)不再贴出。后续版本会继续改进语法，以便封装更多的GL函数进入脚本，从而实现复杂的三维绘图。
补充：从测试效果看OPENGL性能还是有瓶颈，后续版本可能换用DX绘图。

happy886rr

回复 2# 老刘1号
彩色球

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
复制代码

happy886rr

回复 6# ivor
感谢支持

happy886rr

回复 8# 523066680
一般的图还行，只是我在测试用opengl画分形时，递归量太大，直接卡住。

happy886rr

回复 10# 523066680
我发现opengl就是为脚本而生的，glbegin 画点东西，glend结束。然后继续这样画，所以就很容易封装为脚本，从而脱离C语言。

happy886rr

回复 13# 523066680
好资料，我没显卡，用的是cpu核显测试的，所以感觉太卡了。

happy886rr

回复 17# 3518228042

你画个图出来，我看看是啥样。
莫非是要这种效果？

(本图仅为外链)

happy886rr

回复 19# 3518228042
哦，你可以直接用photoshop做啊，那个做的颜色比较准。

happy886rr

回复 21# bailong360
用着很多github的开源工具, 写的东西不开源，不像github的风格。
capix最后的汇编可以整合为一个

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;
}
复制代码

happy886rr

回复 24# bailong360
我的速度并不快。因为写完要进行黑白盒测试，还要修bug，精简代码逻辑，优化速度，完善注释，写使用说明。规范化的开发流程使得你： 不可能像其他开发者那样轻松。
对不同语言的win系统，做TCHAR兼容，对不同编译器、乃至不同操作系统做编译器兼容。对用户的各类错误输入，程序的错误运行都要做错误反馈输出。

最终呈现在用户面前的应该是极佳的、高质量的第三方应用。呈现在读者面前的应该是规范的、思维严密、逻辑清晰的代码。