利用Grapher绘制彩色渐变剖面平面图

第32卷第 2期 2008年 4月 物 探 与 化 探 GEOPHYSICAL＆ GEOCHEMICAL EXPLORATION Vo1．32，No．2 Apr．，2008 利用 Grapher绘制彩色渐变剖面平面图 陈明，何门贵 (广东省地质物探S-程勘察院，广东 广州 510800) 摘 要：在物探扫面工作中，有大量的剖面数据需要绘制成剖面平面图，要求寻找一个高效快速的制图方法。通过对 Grapher自动化功能的分析和实践，编制程序实现了快速绘制彩色渐变剖面平面图的需求，说明利用自动化脚本能 够在获得精美图件的同时，可以极大地提高作图效率。 关键词：grapher；自动绘图；剖面平面图 中图分类号：P631．2 文献标识码：A 文章编号：1000—8918(2008)02—0196—03 用计算机自动绘制物探剖面平面图有许多方 法，可以自己编写专门的绘图程序，如刘浩军 提 出将剖面划分条带区间进行填充，从而达到渐变着 色效果；可以利用 GIS二次开发进行绘制，如孙中任 等 提出构造边界文件，通过 Surfer自动化接 口实 现剖面平面图绘制和着色。但前者需要相当成熟的 编程能力，不容易推广应用，后者则不能实现渐变着 色。为了寻找一个既能快速获得精美图件又简便易 行的方法，笔者研究了Grapher的实现方式。 作为地质工作者手中的绘图利器，Grapher拥有 大多数流行的数学统计功能和数十种基于二维或三 维数据的图形类型，绘制剖面图是其中一种基本功 能。随着新版渐变颜色填充特性的加入，Grapher绘 制的剖面图和剖面平面图也能像 Surfer绘制的等值 线图一样拥有多样的色彩、直观地 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 现物探异常。 Grapher提供了全面详尽的二次开发接 口，能够 很好地与各类编程语言对接，如 Visual C++、Del— phi、Visual Basic、ASP．NET等，其本身甚至附带了基 于 Sax Basic引擎的二次开发环境。笔者以 Basic语 言为例说明如何利用新版的 Grapher 6实现物探彩 色剖面平面图的自动绘制。 1 实现方法 图 1是用 Basic语言编制的自动化绘图程序结 构框图，这个实现方法最核心的地方是利用 Grapher 的渐变填充分别对正异常和负异常区域进行着色。 正是新的 Grapher引入了简化的 ColorMap特性，使 渐变色填充得以实现。图2是一个白色一黑色渐变 填充的例子。 收稿 日期 ：2007—05—25 70 言 6o 50 40 程序启动 、I， Nl 通过CreateObject或GetObjeet __1 取得 Grapher内存实例 l获得比例参数I l 绘制剖面图 、L J L l正值填充l I负值填充I l I ◇N l保存、打印、输出 I 程序结束 、) 、L ／ 图1 程序实现框图 1 2 3 4 5 6 7 8 9 10 11 12 x／m 图2 白色一黑色渐变填充 在自动化实现过程中，要求我们利用[．CLR]文 维普资讯 http://www.cqvip.com 2期 陈明等：利用 Grapher绘制彩色渐变剖面平面图 件格式，其定义简单明了。例如一个蓝一绿一黄颜 色渐变的[Blue．Green．Yello．CLR]文件 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 如下： ColorMap 1 1 0 0 0 255 50 0 255 0 100 255 255 0 其中第一行是标识符、版本号和插值方法，第二至第 24 16 四行是各铆点位置及相应的RGB颜色分量，注意必 须有第0％位置和第 100％位置。 然而由于刚出现的 ColorMap特性是一个简化 了的实现，它允许我们定义每个百分点上的渐变色， 却不允许我们指定每个百分点对应的数值。这种简 化的设计在绘制单个剖面图时是很便利的，但由于 剖面平面图上要表现多条剖面，每个剖面上量值的 了 图3 多剖面的渐变填充不符合实际要求 ． ~,,4250 一 300 350 50 250 lA 、 0 蛳 2 ’50 200 。 ． ～ ． ⋯ ～ ‘ ⋯ ‘ ‘ ’ 15 0 '20 0 250⋯ 3 50 ’t一-- 一一 。 ， 一一 (D 100 150 2 00 25O 350 寸 ’00 ， 150 粕 一 一 250 350 銎50 誊00 1so50．__蔓2o0 -0 专黛 t300 0 _350 1{ ⋯ 、^f 0 ．． c、|5o ，oo l50 2 5口- n ’‘ ～一 ’ ～一 一一 、一一 o 1 ． 2 。 — ， 。 t 27口 。一、 。 ． ． 2oo 一⋯ ， ?⋯ ! ‘： ⋯ ⋯ ? ■ 250 ，li''3 OO C、J ⋯ 一 ：‘ ’’ ‘ ⋯， ’ 一 ⋯ 。 ． ． ． ． ' ⋯ ． f 250 l1 ． ． ． 。 。 50 ’ 佃 ’5o 2∞ 一 r 一 一 一(D 0 ‘ 一 0 ’ 、 一 鬯 簟 ■， ’ 一， ． ， ■ 。 50 呲 ÷5o 2 ● 。 ‘ 。 ． ^ 50 ￥15o 2 ∞ 一 r · r 50 00 幽 150 2oo 寸 50 弩 一 卵 寸 -t r ，I_ 5o ’ ，5o 2oo 2 V 、3。o ． ． ． ～ ， ． ， ⋯ 5o ， '5o 2oo 25o 3。o 图4 彩色渐变剖面平面 一 暮i 一3Il 一m 甜 ．晏 ， 一 一 一 一 铲 二l丹 ， 一 维普资讯 http://www.cqvip.com · 198· 物 探 与 化 探 32卷 范围是不同的，使用同一个 ColorMap导致每个剖面 上填色 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 不统一。图3说明使用同一个 ColorMap 对不同剖面进行填充，导致渐变色不能真实反映异 常特征。 笔者经过实践，发现通过编程的方法可以将 ColorMap中的颜色分量(RGB)与量值对应：假设整 个工区所有剖面的极大值为 ⋯，某个剖面量值的 极大值为Y⋯，通过 Y⋯ x255／z 这样的算式，可以 得到该剖面极大值位置的 RGB分量，从而得到与整 个工区一致的渐变填充。 最后通过 Basic语言编制成 自动化脚本程序 (见图1)，根据每个剖面量值特征，获得相应的 Col— orMap，从而得到一幅合格的彩色剖面平面图。 2 应用实例 图4是利用自动化脚本程序绘制的某磁法工区 剖面平面图。图中正异常用白色一红色渐变表示， 生成 ColorMap的 Basic语言代码如下： clrW2R=Path& ”w2r．clr” Open clrW2R For Output As#fn cRGB=255一IntfyMax：l=255／zMax) Print#fn．”ColorMap 1 1” Print#fn．”0 255 255 255” Print#fn．”100 255 ”& cRCB & ” ”& cRCB Close#fn 负异常用白色一蓝色渐变表示，生成 ColorMap的 Basic语言代码如下： c1rW2R=Path& ”w2r．clr Open clrW2R For Output As#fn cRGB=255一Int(yMax：l=255／zMax) Print#fn．”ColorMap 1 1” Print#fn．”0 255 255 255” Print#fn．”100 255 ”& cRGB & ””& cRGB Close}}fn 每个剖面的相应 ColorMap生成后，用 Grapher自动 化方法中的 LoadColorMap方法即可应用渐变色填 充。 3 结束语 (1)利用 Grapher的 ColorMap特性，能够做出 精美直观的剖面平面图。 (2)利用 Grapher的自动化能力，将各种数据 统计以及图件的各类参数调校均交由程序 自动完 成，极大地提高了作图效率。 (3)只需简单修改 ColorMap生成代码，即可轻 松实现其他渐变色的填充。 参考文献： [1] 刘浩军．航空物探平剖图自动绘制的可视化处理[J]．物探与 化探．2004，28(2)：147． 【2] 孙中任，赵东亮．利用 Suffer实现剖面平面图绘制[J]．物探与 化探．2006，30(2)：172． [3] 林永，张乐强．Visual Basic 6．0用户编程手册(第二版)[M]． 人民邮电出版社．2002． [4] 李春雨．计算机图形学与实践[M]．北京：北京航天航空大学 出版社．2004． [5] 三味工作室．Maplnfo 6．0应用开发指南[M]．北京：人民邮电 出版社．2001． [6] 曾志华，朱学林．Suffer自动化在静力触探试验曲线图绘制中 的应用[J]．探矿工程．2003(6)． THE APPLICATIoN oF Grapher AUToM ATIoN To DRAW ING THE CoLoRFUL PRoFILE M AP CHEN Ming，HE Men—gui (Guangdong Institute ofGeological and Geoph)sical Engineering Exploration，Guangzhou 510800，China) Abstract：There exists lots of profile mapping work in geophysical survey，and thus a rapid and efficient automation mapping method is highly needed．This paper has described the application of Grapher automation to the rapid drawing of geophysical profile map and pro- vided some automation script codes and mapping examples to illustrate the realization of delicate mapping and high efficiency． Key words：Grapher；automation mapping；profile map 作者简介：陈明(1971一)，男 ，1985年毕业于赣州地质学院应用地球物理专业，现主要从事物化探勘查研究工作。 维普资讯 http://www.cqvip.com