home *** CD-ROM | disk | FTP | other *** search
/ MacPeople 1998 #2 / MACPEOPLE-1998-NO2.ISO / おまけ / ジャバジャバ工作教室 / 第５回 / MPPApplet5.java < prev   
Text File  |  1997-08-29  |  726b  |  39 lines
  1. import java.awt.*;
  2. import java.util.Random;
  3.  
  4. public class MPPApplet5 extends java.applet.Applet{
  5.     
  6.     int XX,YY,RNum,flg;
  7.     Font myFont;
  8.     Random myR;
  9.     
  10.     public void start() {
  11.         myFont = new Font ("Courier",Font.BOLD,36);
  12.         myR = new Random ();
  13.         XX = -100;
  14.         YY = -100;
  15.         RNum = 50;
  16.         flg = -5;
  17.     }
  18.  
  19.      public void paint (Graphics g) {
  20.         g.setFont (myFont);
  21.         Color myC = new Color (myR.nextInt());
  22.         g.setColor (myC);
  23.         g.fillOval (XX,YY,RNum,RNum);
  24.         g.setColor (Color.red);
  25.         g.drawString ("Random Colors.",30,100);
  26.     }
  27.  
  28.     public boolean mouseMove (Event evt,int x,int y) {
  29.         RNum = RNum + flg;
  30.         if ((RNum >= 50) | (RNum <= 0)) {
  31.             flg = flg * -1;
  32.         }
  33.         XX = x - RNum / 2;
  34.         YY = y - RNum / 2;
  35.         repaint ();
  36.         return true;
  37.     }
  38. }
  39.