北大《空间探测信息处理技术(IDL)》第9章 面向对象程序设计（下）.ppt

程序设计实例分析 实现各种操作的方法 菜单选择设置曲面的属性 定义菜单按钮（在组件定义模块中） ... wButton = WIDGET_BUTTON(wShading,VALUE=Gouraud,$ UVALUE=SHADE_GOURAUD) ... 在事件分支模块中 WIDGET_CONTROL, sEvent.id, GET_UVALUE=uval CASE uval OF ... SHADE_GOURAUD: BEGIN ; 菜单选择渐变染色 WIDGET_CONTROL, sEvent.top, GET_UVALUE=sState, /NO_COPY ; 设置为渐变染色 sState.oSurface-SetProperty, SHADING=1 sState.oWindow-Draw, sState.oView WIDGET_CONTROL, sEvent.top, SET_UVALUE=sState, /NO_COPY END ... 程序设计实例分析 实现各种操作的方法 图形区域更新 在组件定义模块中 wDraw = WIDGET_DRAW(wBase, XSIZE=xdim, YSIZE=ydim, $ UVALUE=DRAW, RETAIN=0, /EXPOSE_EVENTS, $ /BUTTON_EVENTS, GRAPHICS_LEVEL=2) 在事件分支模块中 WIDGET_CONTROL, sEvent.id, GET_UVALUE=uval CASE uval OF ... DRAW: BEGIN ; 绘图区域事件 WIDGET_CONTROL, sEvent.top, GET_UVALUE=sState, /NO_COPY ... ; 处理 Exposure. (显示刷新事件：显示发生变化) IF (sEvent.type EQ 4) THEN BEGIN sState.oWindow-Draw, sState.oView WIDGET_CONTROL, sEvent.top, SET_UVALUE=sState, /NO_COPY RETURN ENDIF ... 程序设计实例分析 实现各种操作的方法 虚拟跟踪球 在组件定义模块中 wDraw = WIDGET_DRAW(wBase, XSIZE=xdim, YSIZE=ydim, $ UVALUE=DRAW, RETAIN=0, /EXPOSE_EVENTS, $ /BUTTON_EVENTS, GRAPHICS_LEVEL=2) ... oTrack = OBJ_NEW(Trackball, [xdim/2., ydim/2.], xdim/2.) 在事件分支模块中 WIDGET_CONTROL, sEvent.id, GET_UVALUE=uval CASE uval OF ... DRAW: BEGIN ; 绘图区域事件 ... ; 根据事件，获得跟踪转换矩阵 bHave = sState.oTrack-Update(sEvent, TRANSFORM=qmat) IF (bHave NE 0) THEN BEGIN ; 如果获取跟踪转换矩阵成功，把它附加到原来矩阵上。 sState.oGroup-GetProperty, TRANSFORM=t sState.oGroup-SetProperty, TRANSFORM=t#qmat ; 重新绘制图形 sState.oWindow-Draw, sState.oView ENDIF ... 程序设计实例分析 实现各种操作的方法 鼠标拖拽处理 在组件定义模块中 wDraw = WIDGET_DRAW(wBase, XSIZE=xdim, YSIZE=ydim, $ UVALUE=DRAW, RETAIN=0, /EXPOSE_EVENTS, $ /BUTTON_EVENTS, GRAPHICS_LEVEL=2) 在事件分支模块中 WIDGET_CONTROL, sEvent.id, GET_UVALUE=uval CASE uval OF ... DRAW: BEGIN ; 绘图区域事件 WIDGET_CONTROL, sEvent.top, GET_UVALUE=sState, /NO_COPY ... ; 当鼠标键按下时 IF (sEvent.type EQ 0) THEN BEGIN