用Director创建绘画程序.docVIP

用Director 创建绘画程序 为儿童制作的常用教学软件是绘画软件。这些软件大都是基于早先为7 0 、8 0 年代的计算机设计的简单的绘画软件。最基本地，用户可以在屏幕上点击或拖动鼠标绘画。.在本例中，用户还可以选择不同颜色和不同画刷。用一个角色绘画实际上是非常简单的。所需要做的就是让角色跟随光标走，同时打开它的t r a i l s 属性，这样当用户移动鼠标时，角色的印迹就一路留了下来。但是，这种方法有一个缺陷。如果用户移动鼠标的速度过快，角色的印迹将不能连续，导致在各个印迹间出现空隙。但我们用笔在纸上绘画时却不是这样的。因此，本程序必须很好地处理鼠标移动过快的情况， 在角色的两个印迹间放置平滑的线条。图2 是这个影片实例。窗口的左侧有一些颜色块，当前选中色被用方框标示出来。它们的下方有一些画刷，当前画刷也用方框标出来。主要绘画区域开始是空白的，用户可以在其中绘画。还有一个大型的行为驱动该影片，但它不是在角色上，而是在帧剧本通道内。这是有必要的，因为用户并不是通过在角色上点击来绘画的，而是在舞台上的窗口区域点击而绘画的。因此，帧剧本通道是放置该处理程序的合理位置。不过绘画时仍需使用一个角色，因此绘画是否正在进行就是它的一个属性。有一个属性决 定当前是否正在绘画，另一个属性记录上一个印迹的位置和用来绘画的演员，即画刷( b r u s h )。 图2 在这个简单的绘图软件中，用户可以改变画刷及其颜色。 用大一点的画刷和白颜色，可以起到橡皮擦的作用property pDrawSprite -- which sprite to useproperty pDraw -- drawing in progressproperty pLastDrawLoc -- last spot drawn onproperty pBrush -- member to use to painton beginSprite mepDrawSprite = 7 -- use sprite 7pLastDrawLoc = 0 -- no last drawing locpBrush = sprite(pDrawSprite).memberend当用户在舞台上点击时，绘画就开始了。所需要的只是把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 mepDraw = TRUEcursor([member pBrush, member pBrush])end当用户释放鼠标按钮时，绘画即告结束。不但p D r a w 属性应复位，而且画刷也应当从屏幕上消失。由于用户再次绘画的位置可能与刚才完全不同，p L a s t D r a w L o c 也被复位，这样就不会发生把本次绘画的最后一笔与下次的第一笔用线连结起来的现象。光标也要复位。on mouseUp mesprite(pDrawSprite).loc = point(-100,-100)pDraw = FALSEpLastDrawLoc = 0 -- forget last drawing loccursor(0)end实际上绘画是由on exitFrame 处理程序完成的。这意味着屏幕在每一帧都要被更新。由于我们希望该绘画软件的画面运行得尽可能流畅，因此应把影片的节奏调节到最大值：9 9 9 f p s 。该处理程序也要检查鼠标的位置是否在特定的边界内。在此之后，它调用on drawLine 处理程序模块，把用户所画的上一点与当前点间的空隙填满：.on exitFrame meif pDraw then -- get current locationcurLoc = the mouseLoc-- restrict draw areaif curLoc.locH 60 then curLoc.locH = 60if curLoc.locH 480 then curLoc.locH = 480if curLoc.locV 35 then curLoc.locV = 35if curLoc.locV 320 then curLoc.locV = 320-- if there is a last locationif (pLastDrawLoc 0) thendrawLine(me,pLastDrawLoc,curLoc)-- if not, then just draw a pointelsedraw