미유탱의 지구정착기

<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" creationComplete="test()">
 <mx:Script>
  <![CDATA[
   public function test():void
   {  
    can.addEventListener(MouseEvent.MOUSE_DOWN, mouseDHandler);
    can.addEventListener(MouseEvent.MOUSE_UP, mouseUHandler);
    can.addEventListener(MouseEvent.MOUSE_MOVE, mouseMHandler);
   }
   
   private function mouseDHandler(ent:Event):void
   {
    can.graphics.lineStyle(5, 1, 1, true);
    can.graphics.moveTo(can.mouseX, can.mouseY);
    can.addEventListener(MouseEvent.MOUSE_MOVE, mouseMHandler);    
   }
   private function mouseUHandler(ent:Event):void
   {
    can.removeEventListener(MouseEvent.MOUSE_MOVE, mouseMHandler);
   }
   private function mouseMHandler(ent:Event):void
   {
    draw(can.mouseX, can.mouseY);    
   }
   private function draw(x:int, y:int):void
   {
    can.graphics.lineTo(x, y);  
   }
  ]]>
 </mx:Script>
 <mx:Panel id="pnl" x="10" y="10" width="398" height="369" layout="absolute">
  <mx:Canvas x="0" y="0" width="378" height="329" id="can">
  </mx:Canvas>
 </mx:Panel>
</mx:Application>