再谈图案的设计.docVIP

再谈图案的设计 　　为了好玩，今天我们再谈谈图案设计这个话题。 　　美国人多萝西?K在《设计艺术原理》中，把二维图案归纳成17种（如图1），并提出每一种图案都由基础图形（后面我们把它简称为“基图”，它大多用三角形来示意，这样可使方位感更明确）经过四个基本运动来构成，它们是反射（沿平面上一条线）、平移、旋转（绕平面上的一个点）和滑动反射。 　　你能辨认其中的每个运动吗？能分析它们在既定的图案中是如何出现的吗？ 　　举几个例子来看看：单纯发生平移的就是第1种；第2种既有平移又有反射（反射形成镜像），也就是滑动反射；第3～第5种为基图和它的一个镜像组合后平移而成；第10、第13、第16三种是先旋转，然后由组合图平移形成；第6和第7种则是基图和它的三个镜像为组合图，再行平移。 　　四个基本运动的数学和编程处理我们并不陌生，就看我们能不能按照这17种类型随心所欲地设计图案和游戏一把了。 　　先测试一下你的眼力。如图2所示，要是以左上角图形作为基图，两个图案分别属于哪种类型呢？应该是第4和第10种，你看对了吗？ 　　下面，我们就来做几个图案设计。以图3左上角的箭头形为基图，组成的图案显然由基图的平移运动形成，属于第1种类型。实现它们的程序很简单。 　　Private Sub Form_Click() 　　Scale (0, 0)-(640, 480) 　　d = 50：a = 2 * d：b = 3 * d 　　For i = 1 To 3 　　a1 = 0: z = 5［*1］ 　　If i Mod 2 0 Then a1 = 0: z = 5 Else a1 = -d / 2: z = 6［*2］ 　　For j = 1 To z 　　x = a + a1 + (j - 1) * d 　　y = b + (i - 1) * 2 * d 　　GoSub sub1 　　Next j：Next i 　　GoTo ww 　　sub1: 　　Line (x, y)-(x - d, y - d), 0 　　Line -(x - d / 2, y - d), 0 　　Line -(x - d / 2, y - 2 * d),0 　　Line -(x, y - 2 * d), 0 　　Line -(x, y), 0 　　Return 　　ww:End Sub 　　把基图的尖端P作为参考点。在二重循环中，依次给出平移运动时P点的各个坐标值x和y，调用子程序sub1画出相应的基图。参数d和a、a1、b的大小可调节，选择运行［*1］或［*2］，将绘出上图或下图。 　　不同于平移的情况，当出现反射和旋转时，基图的方位会有各种变化，调用子程序只是单一地画原始的基图是不行的，而调用多个子程序描画各种变化的基图又将使编程很繁琐。比较好的办法是：画出基图，然后把它的信息存起来，处理（平移、反射、旋转）之后再逐一画出。 　　请看图4，图中间的绿色树枝为基图，在方框范围内逐点检索，找到绿色的点，累计其个数存入变量n，算出它们关于参考点P的相对坐标，存入数组xx和yy之后清屏（屏幕坐标系定义为Scale（0，0）-（640，480），描画和取得基图信息的程序段从略）。设置按钮Command1，单击后即呈现图案。 　　Private Sub Command1_Click() 　　d = 130：a=50:b=80 　　For i = 1 To 5 　　If i Mod 2 0 Then a1 = 0: h = 1 Else a1 = d / 2: h = -1［**］ 　　For j = 1 To 4 　　x = a + a1 + (j - 1) * d 　　y = b + (i - 1) * d / 2 　　For k = 1 To n 　　PSet (x + xx(k), y + h * yy(k)), QBColor(2) 　　Next k 　　Next j：Next i 　　End Sub 　　以i，j循环中确定的各个x，y为每一基图的参考点，在k循环中画出。若将［**］语句中修改为h都取1就得到上一图，属于类型1。如果奇数行h=1，偶数行h=-1，便得到属类型2的下一图了。所谓滑动反射本应该是这样：画出第一行图案后，以它们下方的一条水平线为镜面，根据对称性画出第二行，然后将其平移。而我们采取了简便的办法，把关于参考点（x，y）的每一相对坐标yy值加负号，就是以过参考点的水平线为轴，把原基图进行了上下反转。 　　仍以树枝为基图，单击按钮Command2，形成属于第17种类型的图5。 　　Private Sub Command2_Click() 　　Pi=3.1416:d