【图】用Director 创建绘画程序

         为儿童制作的常用教学软件是绘画软件。这些软件大都是基于早先为7 0 、8 0 年代的计算
机设计的简单的绘画软件。
        最基本地，用户可以在屏幕上点击或拖动鼠标绘画。.在本例中，用户还可以选择不同颜
色和不同画刷。
       用一个角色绘画实际上是非常简单的。所需要做的就是让角色跟随光标走，同时打开它
的t r a i l s 属性，这样当用户移动鼠标时，角色的印迹就一路留了下来。但是，这种方法有一个
缺陷。如果用户移动鼠标的速度过快，角色的印迹将不能连续，导致在各个印迹间出现空隙。
但我们用笔在纸上绘画时却不是这样的。因此，本程序必须很好地处理鼠标移动过快的情况，
在角色的两个印迹间放置平滑的线条。
图2 是这个影片实例。窗口的左侧有一些颜色块，当前选中色被用方框标示出来。它
们的下方有一些画刷，当前画刷也用方框标出来。主要绘画区域开始是空白的，用户可以在
其中绘画。
        还有一个大型的行为驱动该影片，但它不是在角色上，而是在帧剧本通道内。这是有必
要的，因为用户并不是通过在角色上点击来绘画的，而是在舞台上的窗口区域点击而绘画的。
因此，帧剧本通道是放置该处理程序的合理位置。
不过绘画时仍需使用一个角色，因此绘画是否正在进行就是它的一个属性。有一个属性决
定当前是否正在绘画，另一个属性记录上一个印迹的位置和用来绘画的演员，即画刷( b r u s h )。

图2 在这个简单的绘图软件中，用户可以改变画刷及其颜色。

      用大一点的画刷和白颜色，可以起到橡皮擦的作用
property pDrawSprite -- which sprite to use
property pDraw -- drawing in progress
property pLastDrawLoc -- last spot drawn on
property pBrush -- member to use to paint
on beginSprite me
pDrawSprite = 7 -- use sprite 7
pLastDrawLoc = 0 -- no last drawing loc
pBrush = sprite(pDrawSprite).member
end
       当用户在舞台上点击时，绘画就开始了。所需要的只是把p D r a w 属性设为T R U E 。不过，
向用户表明当前所用的画刷也是有用的。.因为所有画刷都是小于1 6 ×1 6 的1 - b i t 位图，所以用
c u r s o r 命令可以把它们用作光标：
on mouseDown me
pDraw = TRUE
cursor([member pBrush, member pBrush])
end
       当用户释放鼠标按钮时，绘画即告结束。不但p D r a w 属性应复位，而且画刷也应当从屏幕
上消失。由于用户再次绘画的位置可能与刚才完全不同，p L a s t D r a w L o c 也被复位，这样就不
会发生把本次绘画的最后一笔与下次的第一笔用线连结起来的现象。光标也要复位。
on mouseUp me
sprite(pDrawSprite).loc = point(-100,-100)
pDraw = FALSE
pLastDrawLoc = 0 -- forget last drawing loc
cursor(0)
end
        实际上绘画是由on exitFrame 处理程序完成的。这意味着屏幕在每一帧都要被更新。由于
我们希望该绘画软件的画面运行得尽可能流畅，因此应把影片的节奏调节到最大值：9 9 9 f p s 。
该处理程序也要检查鼠标的位置是否在特定的边界内。在此之后，它调用on drawLine 处
理程序模块，把用户所画的上一点与当前点间的空隙填满：.
on exitFrame me
if pDraw then
-- get current location
curLoc = the mouseLoc
-- restrict draw areatulaoshi.com
if curLoc.locH 60 then curLoc.locH = 60
if curLoc.locH 480 then curLoc.locH = 480
if curLoc.locV 35 then curLoc.locV = 35
if curLoc.locV 320 then curLoc.locV = 320
-- if there is a last location
if (pLastDrawLoc 0) then
drawLine(me,pLastDrawLoc,curLoc)
-- if not, then just draw a point
else
drawLine(me,curLoc,curLoc)
end if
-- new last location
pLastDrawLoc = curLoc
end if
go to the frame
end