地震剖面二维显示

屏幕组成屏幕被切割为5个部分：Panel1显示地震道的线号和CDP号、Panel2显示时间刻度值、Panel3底层剖面显示区、Scollbar1水平滚动条、Scollbar2垂直滚动条。

重要参数Startcdp：当前绘制的cdp

的起点数值。Cdplength：当前屏幕显示的CDP的个数。Cdpscale：CDP的间隔（为屏幕象素值）。Starttime：当前的time的起点数值。Timelength：当前可在屏幕显示区域的time的值的个数。Timescale：time方向的间隔，单位为ms（为屏幕象素值）。Scaltime：scaltime:=10divtimescale。Cdprate：CDP抽道的数值，即CDP可能是隔道显示。Allcdp：所有的道也就是所有选定的CDP点的个数。pm_start_time：剖面数据的起始时间。pointnumb：每道记录的样点数。rate：采样间隔，即切片参数（移动量）。地震道波形的绘制流程图剖面显示剖面图像操作剖面图填充剖面图的缩小剖面图的放大剖面图的矩形放大剖面图的拖动正负极填充彩色底图填充正负极单彩色填充正负极渐变色填充剖面图的操作缩小、放大绘制：对剖面图整体缩小或放大

矩形放大：对剖面图的人已选定位置进行放大

拖动：实现用户自定义距离的拖动矩形缩放、鼠标平移剖面图功能，主要是完成屏幕坐标与对应的cdp和time的转换，并进行相应计算，更改startcdp

和startime

以及cdpscale

和timescale以及cdplength

和timelength

的值来实现。实线范围为缩小以前剖面图所显示的范围，虚线范围为缩小以后剖面图所显示的范围。(mycdp,mytime)为用户的选定点。需要更改以下几个参数：startcdp=mycdp-cdplengthstarttime=mytime-timelengthtimescale=timescale/2cdpscale=cdpscale/2timelength=timelength*2cdplength=cdplength*2具体代码如下:startcdp:=mycdp-cdplength;starttime:=mytime-timelength;ifstartcdp<0thenstartcdp:=0;ifstarttime<0thenstarttime:=0;//设置滚动条开始位置scrollbar1.Position:=startcdp;scrollbar2.Position:=starttime;//设置缩放比例timescale:=timescalediv2;cdpscale:=cdpscalediv2;iftimescale<1thentimescale:=1;ifcdpscale<1thencdpscale:=1;timelength:=timelength*2;cdplength:=cdplength*2;矩形放大前后剖面图显示效果剖面图填充提供的填充方式有:

底图彩色填充(变密度填充)正级、负级填充自选颜色进行正负极的单彩色填充正负极的彩色渐变填充剖面图填充模块功能选择窗体正负极填充：地震道波形的正极填充流程图彩色底图填充：剖面图的彩色底图填充。在绘制彩色填充区域时，根据纵向采样时间轴间隔以及横向cdp间隔所分割成的矩形按颜色表依次填充颜色。地震道波形彩色底图填充流程图彩色底图填充图例正负极单彩色、渐变色填充：根据cdp数据，正负极偏移中心坐标的值大小来确定颜色值，进行极性的渐变彩色填充使用的颜色表同背景彩色填充的颜色表一致。渐变色填充流程图正负极单色填充效果图渐变色填充效果马赛克的问题在选择剖面图彩色填充的时候，原系统绘制彩色填充区域，是根据纵向采样时间轴间隔以及横向cdp

间隔所分割成的矩形简单的按颜色表依次填充颜色,而没有用插值算法对各个矩形中的颜色进行渐变过度，所以当横纵两方向上的间隔放大到一定程度，所分割的矩形也就随之放大，当矩形为肉眼可见时，各个矩形中颜色的差异就很明显，出现了如上所显示的马赛克现象利用双线性差值插值算法解决马赛克现象插值处理主要依据Gouraud

着色方法，该方法通过对多边形顶点颜色进行线性插值来获得其内部各点颜色，又称颜色插值着色方法。对多边形网络中的每一个多边形，其着色步骤如下：1．计算多边形的单位法矢量；2．计算多边形顶点的单位法矢量；3．利用光照明方程计算顶点的颜色；4．在扫描线消隐算法中，对多边形顶点颜色进行双线性插值，获得多边形内部（位于多边形内的扫描线上）各点的颜色。在解决过程中，依据该算法，进行改进，改进后算法的绘制原理为：1．计算当前矩形4个顶点的颜色值2．选择适当的切