简单图形编程的学习（2）---点 (small basic实现)

write by 九天雁翎(JTianLing) -- blog.csdn.net/vagrxie

讨论新闻组及文件

一、 又一顿牢骚

虽然知道不应该老是说些与技术无关的话。。。。但是有的时候又总是想说。。。。难怪有同事说我最近已经有点像唐僧了-_-!总而言之，因为相对来说书看的太快，（现在租的房子离公司太远，老是坐地铁，导致有了非常固定的看书时间），而因为工作一直太忙，一直加班回家太晚的原因，所以实际的实践太慢（基本上现在就是以写博客的形式），所以Qt与Android的部分要是同步跟上我DirectX的书都要看好几本了，这样的方式好像不太好，所以目前暂时还是以Windows的为主了。。。。这也体现了一点理想与现实的差距-_-!虽然初期项目目标过大，项目中即时调整起码还能保证项目完成吧。。。。。（扯的远了）。

二、 画点

画点，在Small Basic中属于太基础的东西，当然，其实在Small Basic中什么都基础。。。呵呵

GraphicsWindow.SetPixel

函数用于画点，这里的点仅仅只有一个像素，所以叫SetPixel（设置像素），和Windows GDI的命名一致（其实Small Basic中的画图函数很多都与Windows GDI一致），参数的解释如下:

SetPixel
Draws the pixel specified by the x and y co-ordinates using the specified color.

GraphicsWindow.
SetPixel(x, y, color)

x
The x co-ordinate of the pixel.
y
The y co-ordinate of the pixel.
color
The color of the pixel to set.
Returns
Nothing

1. 随机在屏幕上画随机颜色点（HHT897）

GraphicsWindow.BackgroundColor = "White"

GraphicsWindow.PenColor = "LightBlue"

gw = GraphicsWindow.Width

gh = GraphicsWindow.Height

While ("True")

GraphicsWindow.SetPixel(Math.GetRandomNumber(gw), Math.GetRandomNumber(gh), GraphicsWindow.GetRandomColor())

EndWhile

So简单。。。不是吗？效果如插图1

但是，不要小看点的作用，点可以用于模拟星空。。。。。。。。。这里展示几个效果，真的觉得small basic用于演示什么叫简单的技术惊艳的效果非常合适。。。。。。在图形领域，感觉技术固然重要，但是思维强大也能利用简单的技术实现惊艳的效果。

2. 老电视机雪花点的效果：(PXB396)

GraphicsWindow.BackgroundColor = "DarkNight"

GraphicsWindow.PenColor = "LightBlue"

gw = GraphicsWindow.Width

gh = GraphicsWindow.Height

While ("True")

For i = 1 To 1000

GraphicsWindow.SetPixel(Math.GetRandomNumber(gw), Math.GetRandomNumber(gh), "White")

EndFor

Program.Delay(10)

GraphicsWindow.Clear()

EndWhile

3. 闪烁的星空：(TPK996)

GraphicsWindow.BackgroundColor = "DarkNight"

GraphicsWindow.PenColor = "LightBlue"

gw = GraphicsWindow.Width

gh = GraphicsWindow.Height

' 以数组记录下随机出来的点，这样才能保证星空是在闪烁而不是移动

For i = 1 To 500

width[i] = Math.GetRandomNumber(gw)

height[i] = Math.GetRandomNumber(gh)

EndFor

While ("True")

For i = 1 To 500

GraphicsWindow.SetPixel(width[i], height[i], "White")

EndFor

Program.Delay(1000)

GraphicsWindow.Clear()

EndWhile

4. 屏幕刮花效果（RMP025）

GraphicsWindow.BackgroundColor = "DarkNight"

GraphicsWindow.PenColor = "LightBlue"

gw = GraphicsWindow.Width

gh = GraphicsWindow.Height

For i = 1 To 500

width[i] = Math.GetRandomNumber(gw)

height[i] = Math.GetRandomNumber(gh)

EndFor

While ("True")

For i = 1 To 500

GraphicsWindow.SetPixel(width[i], height[i], "White")

width[i] = width[i] + 1

EndFor

Program.Delay(10)

EndWhile

5. 移动的星空：（ZGB224）

GraphicsWindow.BackgroundColor = "DarkNight"

GraphicsWindow.PenColor = "LightBlue"

gw = GraphicsWindow.Width

gh = GraphicsWindow.Height

For i = 1 To 50

width[i] = Math.GetRandomNumber(gw)

height[i] = Math.GetRandomNumber(gh)

EndFor

While ("True")

Program.Delay(1)

For i = 1 To 50

GraphicsWindow.SetPixel(width[i], height[i], "White")

width[i] = width[i] + 1

' 保证星空不是直接消失了-_-!

If(width[i] > gw) Then

width[i] = 0

EndIf

EndFor

GraphicsWindow.Clear()

EndWhile

Have Fun，aha?呵呵，的确是，很久没有这样爽的写程序了，有了思维，很简单的就能体现在Small Basic上，让人愉快。后面的字母都是可以直接在Small Basic中import的，现在Small Basic 0.6出来了，我用的都是Small Basic 0.6。另外，发现没有，不像在讲其他语言/程序的时候一样，对各个参数一通饱讲，10分钟还没有看到一个函数的参数，对于Small Basic的程序我感觉仅仅需要展示效果和源代码就好了，展示的直接就是编程的思想，而不是语言，因为语言本身如此的简单。完成上面所有的示例都没有花掉我一个小时。。。。。很难想象用GDI或者DX我要用多久。。。。。。。呵呵，虽然我用C/C++出身的（现在也靠这个吃饭），也稍微学习过一下汇编，但是我怎么感觉我对越简单的语言越有好感啊？LUA, Python, Bash ,JAVA都稍微学过一点，但是实在是没有如Small Basic这样让人愉快的语言了^^，也许最最重要的一点在于，现有的大部分语言（上面提及的都是），逻辑表达能力虽然很强，库很丰富，但是为了适应足够广阔的领域并达到工业强度，GUI编程方面都是复杂的让人吐血，MFC就不说了，TK号称简单，其实我感觉也好不到哪去，我没有尝试过用Bash没写GUI，Qt已经算是非常好的GUI库了，但是上百个类足够让你头晕目眩。Small Basic这样的语言虽然是玩具，也就因为其是玩具才敢这么简单。。。。。。。。。呵呵，欣赏它，起码作为一种简单的演示也不错。

上面的例子都是自己随便想的，下面看一个偷师来的例子，以前在讲small Basic的时候其实已经展示过了，但是因为这个例子给了我太多惊喜，我决定反复提起，告诉你们什么叫编程思维利用简单的技术，你别说看了没有感觉惊艳，要知道其实仅仅是利用了画点和文字输出两个如此平常而简单的特性。

6. 星空中的文字（HQG707）

GraphicsWindow.BackgroundColor = "midnight"

gw = GraphicsWindow.Width

gh = GraphicsWindow.Height

GraphicsWindow.FontSize = 100

Turtle.Move (100)

Turtle.Turn (1*1)

While ("True")

For i = 1 To 50

GraphicsWindow.SetPixel(Math.GetRandomNumber(gw),Math.GetRandomNumber(gh),GraphicsWindow.GetRandomColor())

EndFor

Turtle.Move(1)

GraphicsWindow.BrushColor = "Black"

GraphicsWindow.DrawBoundText(30,110,gw-20,"Small Basic")

EndWhile

第一次看到这个例子的时候我真的感叹作者是个天才-_-!也许是自己太笨了所以想不到用这样的方式去显示文字吧。这次来个系列效果，如星空中的文字-插图1-4。怎么样？效果惊艳吧？呵呵，直接运行一下程序吧，将文字改成你想要的，你会有更好的感觉。

三、 小结

一个个简单的点就能够构成如此繁多的效果，简直有点不可思议，但是其实，能够绘制一个点，就能够绘制整个世界，要知道，整个屏幕不过也就是一个一个像素构成的，呵呵。其实，从另外的角度来说，一连串连续的点就能构成一条直线，一排排直线就能构成一个面，有了点，线，面，还有什么不够构成的？你可以表达整个世界。

插图1：

插图2：

星空中的文字-插图1：

星空中的文字-插图2：

星空中的文字-插图3：

星空中的文字-插图4：

write by 九天雁翎(JTianLing) -- blog.csdn.net/vagrxie

简单图形编程的学习（2）---点 (small basic实现)相关推荐

  1. 《图形编程技术学习》（一）计算机图形学与图形流水线

    这个系列是学习北京林业大学杨刚教授的课程时的学习笔记,课程简洁易懂又含以重要知识,谨以此分享出来.欢迎勘误~ 一.计算机图形学的概念及主要研究内容  计算机图形学是作什么的 计算机图形学(Comput ...

  2. opengl实现经纹理映射的旋转立方体_《图形编程技术学习》（五十三）环境映射...

    一.环境映射(Environment Mapping) 1.具有光滑表面的物体会反射形成周围环境的影像 2.属于环境光效果 二.如何实现这种效果 1.光线跟踪(全局光照技术)可以实现这种效果,但效率太 ...

  3. 机器学习实现计算不规则图形面积_《图形编程技术学习》（五十八）用VS实现逐顶点的光照计算...

    这个系列接近尾声了,自己也着急想早点弄完,最近忙着项目的事情,一连几天没有更新, 更新的时候遇到疑点也没有时间细细研究,大抵是囫囵吞枣,这种习惯很不好, 来得容易忘得也容易,到底是纸上得来终觉浅;想着 ...

  4. python交互式图形编程

    简单图形编程 笑脸代码 from graphics import*win = GraphWin() face = Circle(Point(100,95),50) leftEye = Circle(P ...

  5. 现代3D图形编程学习-关于本书（译）

    本书系列 现代3D图形编程学习 关于这本书 三维图像处理硬件很快成为了必不可少的组件.很多操作系统能够直接使用三维图像硬件,有些甚至要求需要有3D渲染能力的硬件.同时对于日益增加的手机系统,3D图像硬 ...

  6. 图形用户界面（GUI）编程可以学习C++ Builder，架构先进（和C#一样拖控件）

    图形用户界面(GUI)编程可以学习C++ Builder,架构先进(和C#一样拖控件),入门比较容易. -------------------- C++ Builder是真正的可视化的开发工具.C++ ...

  7. Python学习笔记·交互式图形编程

    Python学习笔记·交互式图形编程 注:在校计算机学生一名,菜鸟一枚,最近开始学习Python的基础知识希望有什么不对的地方各位大佬能够不令赐教! 课程是在中国大学MOOC上学的,有兴趣的同学可以自 ...

  8. java编程打印以下图形,分享java打印简单图形的实现代码

    我们平时都是使用的画图工具进行简单图形的绘制,今天我们使用java打印一些简单的图形 实现代码如下 package test; /** * * @author hanzel * @打印图形 * */ ...

  9. WebGL（三）——学习Canvas及简单图形绘制

    WebGL(三)--学习Canvas及简单图形绘制 Canvas简介 canvas是HTML5新增的一个可以使用javascript脚本在其中绘制图像的HTML元素(容器),它可以用来制作图像.动画, ...

最新文章

  1. 黑客声称盗取微软GitHub账号500GB数据，网友：这些最终都会开源的
  2. iphone电池怎么保养_怎么保持iPhone的电池健康？掌握这4个方面，3年不用换电池...
  3. Android之基于xmpp openfire smack开发之openfire介绍和部署[1]
  4. PHP与ThinkPHP读写文件
  5. 关于mybatis的association和collection主键映射问题
  6. iOS 8 Auto Layout界面自动布局系列5-自身内容尺寸约束、修改约束、布局动画
  7. rpcbind 服务启动失败
  8. 你真的分得清系统误差、随机误差和偶然误差吗？(含例题)
  9. 关于ExtJS错误“例外被抛出且未被接住”
  10. Linux 安装mongodb数据库
  11. 最强的优化器:把RAdam和LookAhead协同组合
  12. iOS开发之3D Touch（快速添加3D Touch功能）
  13. python d3d_GitHub - shenxiangzhuang/PythonDataAnalysis at c5498c038bbddd512d3d7801b5f91c4603e70ba2
  14. java基础做简单的医院管理系统，附带课程设计说明书
  15. 每一个c语言程序允许有多个函数,一个c语言程序由什么构成
  16. 无卡支付时代 银行信用卡联手京东金融欲打翻身仗
  17. Ubuntu16.04LTS部署CEPH文件存储集群
  18. 单细胞测序数据整合（Seurat V4.0） vignettes
  19. 网络原理（2）——网络开发
  20. 小学数学典型应用题解题思路及方法（一）

热门文章

  1. Warning! ***HDF5 library version mismatched error***
  2. leaflet动态画线（leaflet篇.59）
  3. Invalidate用法
  4. 新手学php还是python_python和php学习哪个更有发展
  5. js pixi框架 极其详细到位(入门)-----转载
  6. 05.Beetl标签函数以及定界符、占位符介绍---《Beetl视频课程》
  7. sqli-labs（15-19关）笔记
  8. 男女用户的不同偏好：扩展型和维护型游戏
  9. oracle11g 安装2 卡住,oracle11g 最终版本11.2.0.4安装详细过程介绍(2)
  10. 安装SQL Server详细教程