C language drawing example - flower pattern

C Language drawing example － Floral pattern

I use it on my Android phone in my spare time myspringc Graphic drawing examples written in language , It can be used as a reference for your favorite friends . The biggest advantage of the example program I have compiled is that the pattern changes at any time , Color changes randomly at any time , It's quite ornamental . Add another key to automatically demonstrate all examples .

MySpringC You can not only write simple C Language program , And it can read the values of various sensors in the mobile phone , Control various multimedia devices , So that ordinary users can use C Language controlled mobile phone , Write unexpected 、 Applications suitable for your own use .

v.2.7 Is the current perfect version . The following game code is written on Android phone with it , Can be made into Android mobile desktop app Applications . This sample can be copied and pasted to the compiler for direct use , Also available VB6 ,C++ ,  java   rewrite .

Partial legend ：

Here is the source code ：
//   The simplest C Language programming
//  myspringc  v2.7   Compile Android native app application
//   This sample can be copied and pasted to myspringc   compile
//   This document is available VB,VC  ,  java rewrite

//***********************************
//     Flowers change    KALEIDOSCOPE
//***********************************
//   producer ： Uncle Zhang Chunshu （ [email protected] com）
//*************************************
Canvas cs;      // Drawing canvas
string sBarDes[10];
int nBarId[10];
string sMenu[50];
int nMenu[50];
float pi=3.1415926535;
float src[4];  //ClearDraw (cls) clear screen
string s,ss,ss1,ss2,ss3;
float x0,y0,x1,y1,x2,y2,x3,y3,x4,y4;
float sx,sy;
float px,py,dx,dy;   //center point
float sx1,sy1,sx2,sy2,sx3,sy3,sx4,sy4;   //draw
float a,L,L1,d,r;   //d degree
int btw,bth;
int drag[9];
FileInput filebox;
string fname;  //filename
int picw,pich;
int size[2];
int i,j,n,t,k;    //t = times
int s1,s2,s3;    

double sn;    //mode number
int round;      //set round steps
 int r1,g1,b1;     //16m Panchromatic palette
double Rn;    //random number

main(){
setDisplay(1);
   cs.SetBackground(225,225,225);
   cs.Active();
   sBarDes[0]=" Select graphics ";
   nBarId[0]=100;
   sBarDes[1]=" Auto Demo ";
   nBarId[1]=101;
   sBarDes[2]=" Catalogue of flowers ";
   nBarId[2]=102;
   sBarDes[3]=" The graphics ";
   nBarId[3]=103;
   sBarDes[4]=" Exit procedure ";
   nBarId[4]=104;
   sBarDes[5]="@";
   nBarId[5]=105;
   setToolBarHeight(6);
   setButtonTextSize(13);
   setToolBarBackgroundColor(255,192,192,192);
   setButtonColor(255,0,0,240);
   setButtonTextColor(255,255,255,0);
   setToolBar(100,myToolBarProc,sBarDes,nBarId,6);

   sMenu[0]=" Select graphics ";
   nMenu[0]=200;
   sMenu[1]=" Auto Demo ";
   nMenu[1]=201;
   sMenu[2]=" Catalogue of flowers ";
   nMenu[2]=202;
   sMenu[3]=" Loading pictures (*.bmp;*.jpg;*.png)";
   nMenu[3]=203;
   sMenu[4]=" Save the picture ";
   nMenu[4]=204;
   sMenu[5]=" Close the drawing board ";
   nMenu[5]=205;
   sMenu[6]=" Display board ";
   nMenu[6]=206;
   sMenu[7]=" Version information ";
   nMenu[7]=207;
   sMenu[8]=" sign out ";
   nMenu[8]=208;
   setMenu(100,myMenuProc,sMenu,nMenu,9);
  setTitle(" Flowers change version 1.02  ");
//**********
       dx=360; dy=300;   //center point
       px=360; py=300;  //center point
        round=10;            //set play times
  drawcover ();  
while (){}
  }//main ()

drawcover (){
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.ClearDraw (0,src);
         cs.SetColor(255,125,85,125);
        cs.DrawRect (0,4,720,760);
            cs.SetTextSize (108);
        cs.SetColor (255,0,250,0);        
        cs.DrawText (" Flowers change ",154,554);
        cs.SetColor (255,250,0,250);        
        cs.DrawText (" Flowers change ",150,550);
            cs.SetTextSize (58);
        cs.DrawText ("KALEIDOSCOPE",150,620);
         cs.SetColor (255,250,0,20);           
        cs.DrawText ("KALEIDOSCOPE",153,620);
       cs.SetColor (255,0,0,120);
             cs.SetTextSize (30);
         s=" Compiler ： Uncle Zhang Chunshu  ([email protected]) ";
         cs.DrawText (s,20,800);
    cs.DrawText ("@copyright  Version 1.02",190,670);
    for (t=1;t<5;t++){    // ** Flowers change ******
     if (t==1){r1=255; g1=10; b1=250;  }  
     if (t==2){r1=225; g1=50; b1=250;  }  
     if (t==3){r1=205; g1=0; b1=250;  }  
         cs.SetColor(255,255,255,255);
         cs.DrawRect (90,30,630,410);
         cs.SetColor (255,0,0,0);
         cs.DrawRect (100,40,620,400);
         cs.SetFillMode (0);//0 No coloring ,1 Colouring
           cs.SetTextSize (108);
        cs.SetColor (255,20,50,250);        
        cs.DrawText (" Flowers change ",150,550);
        cs.SetTextSize (58);
         cs.SetColor (255,250,220,0);
         cs.DrawText ("KALEIDOSCOPE",152,621);
         cs.Update ();
      for(i=0;i<13;i++){  // Cross stars hexagon Octagon
            a=2*pi/6*i ;    L=50-t*3;
            sx1=(float)(L*sin(a))+360-140;
            sy1=(float)(-L*cos(a))+220;
            sx2=(float)(L*sin(a))+360+140;
            sy2=(float)(-L*cos(a))+220;
            a=2*pi/12*i;
            sx3=(float)(L*sin(a))+360;
            sy3=(float)(L*cos(a))+200-60;
            sx4=(float)(L*sin(a))+360;
            sy4=(float)(L*cos(a))+200+100;
            r1=200; g1=60; b1=0;
       for (k=10;k<40;k++){  
         cs.SetColor (255,r1,g1+k*4,250-b1);
           if ((k-k/3*3)==0){
             //  cs.DrawOval (sx1,sy1,40,k*1.5,i*45);    
               cs.DrawOval (sx1,sy1,20,k,i*60);    
               cs.DrawOval (sx2,sy2,20,k,i*60);    
               cs.DrawOval (sx3,sy3,20,k,-i*30);    
               cs.DrawOval (sx4,sy4,20,k,-i*30); }  }
                 cs.Update ();      }   }
     cs.Update();
               cs.SetTextSize (28);
}//drawcover ()

content (){   //
    clearOutput();
       print " A catalogue of colorful graphics ";
       print "     1.   At the beginning of one yuan ";
       print "     2.   Everything goes smoothly ";
       print "     3.   Round and round ";
       print "     4.   Five blessings come to the door ";
       print "     5.   resplendent with variegated coloration ";
       print "     6.   LiuMang Xingyao ";
       print "     7.   Cut and put together ";
       print "     8.   be all things to all men ";
       print "     9.   when all is said and done ";
       print "    10. Perfect ";
       print "    11. Go round and begin again ";
       print "    12. scored twice ";
       print "    13. Be able to achieve success one way or another ";
       print "    14. overcautious ";
       print "    15. multifarious ";
       print "    16. be like a lion ";
       print "    17. Good in pairs ";
       print "    18. good luck and happiness to you ";
       print "    19. Four generations ";
       print "    20. Booming Flowers and a Full Moon ";
       print "    21. colorful ";
       print "    22. a hundred flowers contend in beauty ";
       print "    23. colourful ";
       print "    24. sashays ";
       print "    25. A presumptuous guest usurps the host's role ";
       print "    26. exotic flowers and rare herbs ";
       print "    27. all sorts of strange things ";
       print "    28. surprise ";
       print "    29. a fly in the ointment ";
       print "    30. Magnificent; ornate; fascinating ";
}//content ()

autoplay (){
         //     if (sn==0) return;    
replay:
         sn=sn+1;
             if (sn==1) kaleid1 ();          
             if (sn==2) kaleid2 ();          
             if (sn==3) kaleid3 ();  
             if (sn==4) kaleid4 () ;
             if (sn==5) kaleid5 ();  
             if (sn==6) kaleid6 ();  
             if (sn==7) kaleid7 ();  
             if (sn==8) kaleid8 ();  
             if (sn==9) kaleid9 ();  
             if (sn==10) kaleid10 ();
             if (sn==11) kaleid11 ();
             if (sn==12) kaleid12 ();
             if (sn==13) kaleid13 ();
             if (sn==14) kaleid14 ();
             if (sn==15) kaleid15 ();
             if (sn==16) kaleid16 ();
             if (sn==17) kaleid17 ();
             if (sn==18) kaleid18 ();
             if (sn==19) kaleid19 ();
             if (sn==20) kaleid20 ();
             if (sn==21) kaleid21 ();
             if (sn==22) kaleid22 ();
             if (sn==23) kaleid23 ();
             if (sn==24) kaleid24 ();
             if (sn==25) kaleid25 ();
             if (sn==26) kaleid26 ();
             if (sn==27) kaleid27 ();
             if (sn==28) kaleid28 ();
             if (sn==29) kaleid29 ();
             if (sn==30) kaleid30 ();
        if (sn>30)return;
        goto replay;
}//autoplay

selectfigure (){
          cs.SetBackground(225,245,245);
          setDisplay (1);
      sn=doubleInput(" Select presentation graphics ",  "1. At the beginning of one yuan  2. Everything goes smoothly  3. Round and round  4. Five blessings come to the door  5. resplendent with variegated coloration  6. LiuMang Xingyao  7. Cut and put together  8. be all things to all men  9. when all is said and done  10. Perfect  ......>  \n       Input [ empty ] Then cancel "  );
             if (sn==0) return;    
             if (sn==1) kaleid1 ();          
             if (sn==2) kaleid2 ();          
             if (sn==3) kaleid3 ();  
             if (sn==4) kaleid4 () ;
             if (sn==5) kaleid5 ();  
             if (sn==6) kaleid6 ();  
             if (sn==7) kaleid7 ();  
             if (sn==8) kaleid8 ();  
             if (sn==9) kaleid9 ();  
             if (sn==10) kaleid10 ();
             if (sn==11) kaleid11 ();
             if (sn==12) kaleid12 ();
             if (sn==13) kaleid13 ();
             if (sn==14) kaleid14 ();
             if (sn==15) kaleid15 ();
             if (sn==16) kaleid16 ();
             if (sn==17) kaleid17 ();
             if (sn==18) kaleid18 ();
             if (sn==19) kaleid19 ();
             if (sn==20) kaleid20 ();
             if (sn==21) kaleid21 ();
             if (sn==22) kaleid22 ();
             if (sn==23) kaleid23 ();
             if (sn==24) kaleid24 ();
             if (sn==25) kaleid25 ();
             if (sn==26) kaleid26 ();
             if (sn==27) kaleid27 ();
             if (sn==28) kaleid28 ();
             if (sn==29) kaleid29 ();
             if (sn==30) kaleid30 ();
              return;             
 } //selectfigure ()

myToolBarProc(int nBtn,int nContext){
      if(nBtn==100){      //select ...
             selectfigure ();       }
     if(nBtn==101){//auto show play
            cs.SetBackground(225,245,245);
            setDisplay (1);
            autoplay ();     } //auto show ******
     if(nBtn==102){// Close the drawing board Display the catalogue of flowers
            setDisplay (0);
            content ();                }
     if(nBtn==103){// Display board
            setDisplay (1);          }
     if(nBtn==104){// Exit procedure
           cs.ClearDraw (0,src);
           setDisplay (0);
           exit (0);              }
     if(nBtn==105){//@  testdraw
           setDisplay (1);
           drawcover ();              }
}//myToolBar ()

myMenuProc(int nMen,int nContext){
    if(nMen==200){   //disMsg(0," Select graphics ");
           selectfigure ();           }   
    if(nMen==201){   //print " Auto Demo ";
           setDisplay (1);
           autoplay ();     } //auto show ******           
    if(nMen==202){     //print " Catalogue of flowers ";
            setDisplay (0);
            content ();       }
      if (nMen==203){// Loading pictures
            loadpic ();            }  
       if (nMen==204){//disMsg(0," Save the picture ");
           savepic ();            }
  if(nMen==205){//close 
           clearOutput ();  
           setDisplay (0);             }
   if(nMen==206){//show canvas
           setDisplay (1);               }
   if(nMen==207){//show cover
           drawcover ();      
           setDisplay (1);               }
  if (nMen==208){//Exit 
           clearOutput();
           cs.ClearDraw (0,src);
           exit (0);           }
}//myMenu()

testdraw (){
     n=0; 
redraw31:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<8;t++){    // ** Flowers change (31) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*20+50;   L=(int)Rn;  //rnd 40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (28) surprise ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,545);   
       for(i=0;i<13;i++){  // Cross stars hexagon Octagon
            a=2*pi/8*i ;    
            sx1=(float)(L*sin(a))+px;
            sy1=(float)(-L*cos(a))+py-50;
            a=2*pi/12*i;
            sx3=(float)(L*sin(a))+px-140;
            sy3=(float)(-L*cos(a))+py+100;
            sx4=(float)(L*sin(a))+px+140;
            sy4=(float)(-L*cos(a))+py+100;
            x1=(float)(L*sin(a))+px-190;
            y1=(float)(L*cos(a))+py-100;
            x2=(float)(L*sin(a))+px+190;
            y2=(float)(L*cos(a))+py-100;
       for (k=10;k<40;k++){  
         cs.SetColor (255,r1+10,g1+k*4,250-b1);
           if ((k-k/2*2)==0){
               cs.DrawOval (sx1,sy1,40,k*1.5,i*45);    
               cs.DrawOval (x1,y1,20,k,i*60);    
               cs.DrawOval (x2,y2,20,k,i*60);    
               cs.DrawOval (sx3,sy3,20,k,i*30);    
               cs.DrawOval (sx4,sy4,20,k,i*30); 
  }       } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (31) ****
     if (n<round) goto redraw31;
}//testdraw ()

kaleid30 (){
     n=0; 
redraw30:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<8;t++){    // ** Flowers change (30) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*20+48;   L=(int)Rn;  //rnd 40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (30) Magnificent; ornate; fascinating ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,545);   
       for(i=0;i<13;i++){  // Cross stars hexagon Octagon
            a=2*pi/6*i ;    
            sx1=(float)(L*sin(a))+px;
            sy1=(float)(-L*cos(a))+py-80;
            a=2*pi/12*i;
            sx3=(float)(L*sin(a))+px-100;
            sy3=(float)(-L*cos(a))+py+100;
            sx4=(float)(L*sin(a))+px+100;
            sy4=(float)(-L*cos(a))+py+100;
            x1=(float)(L*sin(a))+px-200;
            y1=(float)(L*cos(a))+py-60;
            x2=(float)(L*sin(a))+px+200;
            y2=(float)(L*cos(a))+py-60;
       for (k=10;k<40;k++){  
         cs.SetColor (255,r1+10,g1+k*4,250-b1);
          if ((k-k/2*2)==0){
               cs.DrawOval (sx1,sy1,40,k*1.8,i*60);    
               cs.DrawOval (x1,y1,20,k,i*60);    
               cs.DrawOval (x2,y2,20,k,i*60);    
               cs.DrawOval (sx3,sy3,20,k,i*30);    
               cs.DrawOval (sx4,sy4,20,k,i*30);   }       } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (30) ****
     if (n<round) goto redraw30;
}//kaleid30 ()

kaleid29 (){
     n=0; 
redraw29:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<8;t++){    // ** Flowers change (29) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*20+50;   L=(int)Rn;  //rnd 40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (29) a fly in the ointment ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,545);   
       for(i=0;i<13;i++){  // Cross stars hexagon Octagon
            a=2*pi/12*i ;    
            sx1=(float)(L*sin(a))+px;
            sy1=(float)(-L*cos(a))+py-20;
            sx2=(float)(L*sin(a))+px;
            sy2=(float)(-L*cos(a))+py;
            sx3=(float)(L*sin(a))+px-150;
            sy3=(float)(-L*cos(a))+py+100;
            sx4=(float)(L*sin(a))+px+150;
            sy4=(float)(-L*cos(a))+py+100;
            x1=(float)(L*sin(a))+px-200;
            y1=(float)(L*cos(a))+py-100;
            x2=(float)(L*sin(a))+px+200;
            y2=(float)(L*cos(a))+py-100;
       for (k=10;k<40;k++){  
         cs.SetColor (255,r1+10,g1+k*4,250-b1);
          if ((k-k/2*2)==0){
               cs.DrawOval (sx1,sy1,40,k*2.8,i*120);    
               cs.DrawOval (x1,y1,20,k,i*60);    
               cs.DrawOval (x2,y2,20,k,i*60);    
               cs.DrawOval (sx3,sy3,20,k,i*30);    
               cs.DrawOval (sx4,sy4,20,k,i*30);   }       } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (29) ****
     if (n<round) goto redraw29;
}//kaleid29 ()

kaleid28 (){
     n=0; 
redraw28:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<8;t++){    // ** Flowers change (28) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*20+50;   L=(int)Rn;  //rnd 40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (28) surprise ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,545);   
       for(i=0;i<13;i++){  // Cross stars hexagon Octagon
            a=2*pi/8*i ;    
            sx1=(float)(L*sin(a))+px;
            sy1=(float)(-L*cos(a))+py-50;
            a=2*pi/12*i;
            sx3=(float)(L*sin(a))+px-140;
            sy3=(float)(-L*cos(a))+py+100;
            sx4=(float)(L*sin(a))+px+140;
            sy4=(float)(-L*cos(a))+py+100;
            x1=(float)(L*sin(a))+px-190;
            y1=(float)(L*cos(a))+py-100;
            x2=(float)(L*sin(a))+px+190;
            y2=(float)(L*cos(a))+py-100;
       for (k=10;k<40;k++){  
         cs.SetColor (255,r1+10,g1+k*4,250-b1);
           if ((k-k/2*2)==0){
               cs.DrawOval (sx1,sy1,40,k*1.5,i*45);    
               cs.DrawOval (x1,y1,20,k,i*60);    
               cs.DrawOval (x2,y2,20,k,i*60);    
               cs.DrawOval (sx3,sy3,20,k,i*30);    
               cs.DrawOval (sx4,sy4,20,k,i*30);  }       } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (28) ****
     if (n<round) goto redraw28;
}//kaleid28 ()

kaleid27 (){
     n=0; 
redraw27:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<8;t++){    // ** Flowers change (27) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*20+48;   L=(int)Rn;  //rnd 40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (27) all sorts of strange things ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,545);   
       for(i=0;i<19;i++){  // Cross stars hexagon Octagon
            a=2*pi/8*i ;    
            sx1=(float)(L*sin(a))+px-150;
            sy1=(float)(-L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+150;
            sy2=(float)(-L*cos(a))+py;
            sx3=(float)(L*sin(a))+px;
            sy3=(float)(-L*cos(a))+py-110;
            sx4=(float)(L*sin(a))+px;
            sy4=(float)(-L*cos(a))+py+110;
       for (k=10;k<40;k++){  
         cs.SetColor (255,r1+10,g1+k*4,250-b1);
          if ((k-k/2*2)==0){
               cs.DrawOval (sx1,sy1,40,k*2.5,i*45);    
               cs.DrawOval (sx2,sy2,40,k*2.5,i*45);    
               cs.DrawOval (sx3,sy3,20,k,i*45);    
               cs.DrawOval (sx4,sy4,20,k,i*45);    
      }       } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (27) ****
     if (n<round) goto redraw27;
}//kaleid27 ()

kaleid26 (){
     n=0; 
redraw26:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<8;t++){    // ** Flowers change (26) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*20+28;   L=(int)Rn;  //rnd 40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (26) exotic flowers and rare herbs ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,545);   
       for(i=0;i<19;i++){  // Cross stars hexagon Octagon
            a=2*pi/18*i ;    
            sx1=(float)(L*sin(a))+px-150;
            sy1=(float)(-L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+150;
            sy2=(float)(-L*cos(a))+py;
            sx3=(float)(L*sin(a))+px;
            sy3=(float)(-L*cos(a))+py-100;
            sx4=(float)(L*sin(a))+px;
            sy4=(float)(-L*cos(a))+py+100;
       for (k=10;k<40;k++){  
         cs.SetColor (255,r1+10,g1+k*4,250-b1);
          if ((k-k/2*2)==0){
               cs.DrawOval (sx1,sy1,40,k*2.5,i*20);    
               cs.DrawOval (sx2,sy2,40,k*2.5,i*20);    
               cs.DrawOval (sx3,sy3,20,k,i*20);    
               cs.DrawOval (sx4,sy4,20,k,i*20);     }       } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (26) ****
     if (n<round) goto redraw26;
}//kaleid26 ()

kaleid25 (){
     n=0; 
redraw25:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<8;t++){    // ** Flowers change (25) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*10;   L=(int)Rn;  //rnd 40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (25) A presumptuous guest usurps the host's role ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,545);   
       for(i=0;i<7;i++){  // Cross stars hexagon Octagon
            a=2*pi/6*i ;
            sx1=(float)(L*sin(a))+px-80;
            sy1=(float)(L*cos(a))+py-80;
            sx2=(float)(L*sin(a))+px+80;
            sy2=(float)(L*cos(a))+py-80;
            sx3=(float)(L*sin(a))+px-80;
            sy3=(float)(L*cos(a))+py+80;
            sx4=(float)(L*sin(a))+px+80;
            sy4=(float)(L*cos(a))+py+80;
            x1=(float)(L*sin(a))+px-190;
            y1=(float)(L*cos(a))+py;
            x2=(float)(L*sin(a))+px+190;
            y2=(float)(L*cos(a))+py;
     for (k=10;k<50;k++){  
         cs.SetColor (255,r1+10,g1+k*5,250-b1);
          if ((k-k/2*2)==0){
               cs.DrawOval (sx1,sy1,k*2,100,135);    
               cs.DrawOval (sx2,sy2,k*2,100,45);    
               cs.DrawOval (sx3,sy3,k*2,100,45);    
               cs.DrawOval (sx4,sy4,k*2,100,135);    
               cs.DrawOval (x1,y1,k*1.5,80,90);    
               cs.DrawOval (x2,y2,k*1.5,80,90);    
       }       } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (25) ****
     if (n<round) goto redraw25;
}//kaleid25 ()

kaleid24 (){
     n=0; 
redraw24:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<6;t++){    // ** Flowers change (24) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*30-10;   L=(int)Rn;  //40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (24) sashays ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,545);   
                 L1=L+10;
       for(i=0;i<14;i++){  // Cross stars hexagon Octagon
            a=2*pi/6*i ;
            sx1=(float)(L*sin(a))+px-110;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+110;
            sy2=(float)(L*cos(a))+py;
            sx3=(float)(L*sin(a))+px;
            sy3=(float)(L*cos(a))+py-80;
            sx4=(float)(L*sin(a))+px;
            sy4=(float)(L*cos(a))+py+80;
            x1=(float)(L*sin(a))+px-110;
            y1=(float)(L*cos(a))+py;
            x2=(float)(L*sin(a))+px+110;
            y2=(float)(L*cos(a))+py;
     for (k=10;k<50;k++){  
         cs.SetColor (255,r1+10,g1+k*5,250-b1);
          if ((k-k/2*2)==0){
               cs.DrawOval (sx1,sy1,k*2,120,90);    
               cs.DrawOval (sx2,sy2,k*2,120,90);    
               cs.DrawOval (sx3,sy3,k*2-20,90,0);    
               cs.DrawOval (sx4,sy4,k*2-20,90,0);    
               cs.DrawOval (x1,y1,k*1.5,50,0);    
               cs.DrawOval (x2,y2,k*1.5,50,0);    
       }       } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (24) ****
     if (n<round) goto redraw24;
}//kakeid24 ()

kaleid23 (){
     n=0; 
redraw23:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (23) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*30-10;   L=(int)Rn;  //40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (23) colourful ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,550);   
                 L1=L+10;
       for(i=0;i<1;i++){  // Cross stars hexagon Octagon
            a=2*pi/1*i ;
            sx1=(float)(L*sin(a))+px;
            sy1=(float)(L*cos(a))+py-100;
            sx2=(float)(L*sin(a))+px;
            sy2=(float)(L*cos(a))+py+100;
            sx3=(float)(L*sin(a))+px-100;
            sy3=(float)(L*cos(a))+py;
            sx4=(float)(L*sin(a))+px+100;
            sy4=(float)(L*cos(a))+py;
            x1=(float)(L1*sin(a))+px-230;
            y1=(float)(L1*cos(a))+py-10;
            x2=(float)(L1*sin(a))+px+230;
            y2=(float)(L1*cos(a))+py-10;
     for (k=0;k<50;k++){  
         cs.SetColor (255,r1+10,g1+k*6,250-b1);
         if ((k-k/2*2)==0){
              cs.DrawOval (x1,y1,k+5,50,90);   
              cs.DrawOval (x2,y2,k+5,50,90);   
              cs.DrawOval (sx1,sy1,k*2+5,100,0);    
              cs.DrawOval (sx2,sy2,k*2+5,100,0);    
              cs.DrawOval (sx3,sy3,k*2+5,100,90);    
              cs.DrawOval (sx4,sy4,k*2+5,100,90);     }     } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (23) ****
     if (n<round) goto redraw23;
}//kaleid23 ()

kaleid22 (){
     n=0; 
redraw22:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (22) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*30+40;   L=(int)Rn;  //40-70;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (22) a hundred flowers contend in beauty ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,550);   
                 L1=L-20;
       for(i=0;i<15;i++){  // Cross stars hexagon Octagon
            a=2*pi/15*i ;
            sx1=(float)(L*sin(a))+px-100;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+100;
            sy2=(float)(L*cos(a))+py;
            sx3=(float)(L*sin(a))+px;
            sy3=(float)(L*cos(a))+py-100;
            sx4=(float)(L*sin(a))+px;
            sy4=(float)(L*cos(a))+py+100;
            x1=(float)(L1*sin(a))+px-220;
            y1=(float)(L1*cos(a))+py;
            x2=(float)(L1*sin(a))+px+220;
            y2=(float)(L1*cos(a))+py;
     for (k=10;k<30;k++){  
       cs.SetColor (255,r1+10,g1+k*6,250-b1);
           if ((k-k/2*2)==0){
              cs.DrawOval (x1,y1,k/4,k/2+5,-i*24);   
              cs.DrawOval (x2,y2,k/4,k/2+5,-i*24);   
              cs.DrawOval (sx1,sy1,k/2,k,-i*24);    
              cs.DrawOval (sx2,sy2,k/2,k,-i*24);    
              cs.DrawOval (sx3,sy3,k/2,k,-i*24);    
              cs.DrawOval (sx4,sy4,k/2,k,-i*24);    
              cs.DrawLine (px-100,py,sx1,sy1);
              cs.DrawLine (px+100,py,sx2,sy2);
              cs.DrawLine (px,py-100,sx3,sy3);
              cs.DrawLine (px,py+100,sx4,sy4);  }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (22) ****
     if (n<round) goto redraw22;
}//kaleid22 ()

kaleid21 (){
     n=0; 
redraw21:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (21) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*30+40;   L=(int)Rn;  //70-130;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (21) colorful ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(40,50,680,550);   
                 L1=L-20;
       for(i=0;i<31;i++){  // Cross stars hexagon Octagon
            a=2*pi/30*i ;
            sx1=(float)(L*sin(a))+px-100;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+100;
            sy2=(float)(L*cos(a))+py;
            sx3=(float)(L*sin(a))+px;
            sy3=(float)(L*cos(a))+py-100;
            sx4=(float)(L*sin(a))+px;
            sy4=(float)(L*cos(a))+py+100;
            x1=(float)(L1*sin(a))+px-220;
            y1=(float)(L1*cos(a))+py;
            x2=(float)(L1*sin(a))+px+220;
            y2=(float)(L1*cos(a))+py;
     for (k=10;k<30;k++){  
       cs.SetColor (255,r1+10,g1+k*6,250-b1);
           if ((k-k/2*2)==0){
              cs.DrawOval (x1,y1,k/4,k/2+5,-i*12);   
              cs.DrawOval (x2,y2,k/4,k/2+5,-i*12);   
              cs.DrawOval (sx1,sy1,k/3,k,-i*12);    
              cs.DrawOval (sx2,sy2,k/3,k,-i*12);    
              cs.DrawOval (sx3,sy3,k/3,k,-i*12);    
              cs.DrawOval (sx4,sy4,k/3,k,-i*12);    
              cs.DrawLine (px-100,py,sx1,sy1);
              cs.DrawLine (px+100,py,sx2,sy2);
              cs.DrawLine (px,py-100,sx3,sy3);
              cs.DrawLine (px,py+100,sx4,sy4);   }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (21) ****
     if (n<round) goto redraw21;
}//kaleid21 ()

 kaleid1 (){ 
    for(t=1;t<11;t++){      // ** Flowers change (1) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=210; g1=-80; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=25;b1=180; } //yellew
           s=intToString (r1);
           ss1="color  = "+s;
     Rn=random()*120+120;   L=(int)Rn;  //120-240;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor(255,r1+k*2,g1+80+k*8,250-b1);
           s=intToString (t);
           ss3="times = "+s;
       cs.DrawText (" Flowers change (1) At the beginning of one yuan ",80,40);
       cs.DrawText (ss3,90,580);
        cs.DrawText (ss1,240,580);
        cs.DrawText (ss2,420,580);
             cs.Update ();
    for(i=0;i<31;i++){
    cs.SetFillMode (0);//0 No coloring ,1 Colouring
         cs.SetStrokeWidth(1);
         cs.DrawRect (80,50,640,550);
         a=pi/30*i*2;   
     for(k=0;k<15;k++){
        cs.SetColor(255,r1+k*2,g1+80+k*8,250-b1);
         sx2=(float)(px+(L-k*2-L/4)*sin(a));
         sy2=(float)(py+(L-k*2-L/4)*cos(a));
    cs.DrawOval(sx2,sy2,32,60,-i*12);
         sx3=(float)(px+(L-k*2-L/2)*sin(a));
         sy3=(float)(py+(L-k*2-L/2)*cos(a));
     cs.DrawOval(sx3,sy3,20,45,-i*12);
     cs.DrawLine (px,py,sx3,sy3);   }
           cs.Update ();         } //**** Full-blown flowers (1) ****
            sleep (10);        }//next time t
}//kaleid1()

kaleid2(){
    n=0;
redraw2:
     cs.SetFillMode (1);//0 No coloring ,1 Colouring
          cs.SetColor (255,0,0,0);
          cs.DrawRect (0,4,720,600);
          n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (2) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
      Rn=random()*6;       //color change
    if (Rn<0.9){r1=235; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=25;b1=180; } //yellew
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*60+80;   L=(int)Rn;  //80-140;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+20,g1+t*20,250-b1);
       cs.DrawText (" Flowers change (2) Everything goes smoothly ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
           cs.Update ();
       cs.SetFillMode (0);//0 No coloring ,1 Colouring
             L1=L-25 ;  
      for (i=0;i<6;i++){
         cs.DrawRect (80,50,640,550);
           a=2*pi/180*i*30;   
             x1=(float)(L*cos (a))+dx ;
             y1=(float)(L*sin (a))+dy ;
             x2=(float)(L1*cos (a))+dx ;
             y2=(float)(L1*sin (a))+dy ;
             x3=(float)((L+50)*cos (a))+dx ;
             y3=(float)((L+50)*sin (a))+dy ;
             x4=(float)((L+100)*cos (a))+dx ;
             y4=(float)((L+100)*sin (a))+dy ;
     for (k=0;k<30;k++){  
            cs.SetColor (255,r1,g1+k*6,250-b1);
            cs.DrawCircle (x1,y1,k/3+1);
            cs.DrawCircle (x2,y2,k/2+5);
            cs.DrawCircle (x3,y3,k*1.2+5);
            cs.DrawCircle (x4,y4,k/3+3);
      cs.DrawOval (dx,dy,k*2+4,k*5+30,i*60+30);
            cs.DrawLine (dx,dy,x3,y3) ;   
                 cs.Update ();      }     }
     sleep (10);  }  //next times //** Flowers change (2) ****
      if (n<round)goto redraw2;
 }//kakeid2 ()

kaleid3(){
   n=0;
redraw3:
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(0,4,720,600); 
          n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (3) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120;} //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*70+110;   L=(int)Rn;  //100-180;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (3) Round and round ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(80,50,640,550);   
    for(i=0;i<9;i++){  // Cross stars Octagon
            a=2*pi/8*i ;
            sx1=(float)(L*sin(a))*1.1+px;
            sy1=(float)(L*cos(a))*1.1+py;
            sx3=(float)((L-40)*sin(a))+px;
            sy3=(float)((L-40)*cos(a))+py;
            cs.DrawLine (dx,dy,sx3,sy3);
       for (k=10;k<40;k++){  
        cs.SetColor (255,r1+10,g1+k*6,250-b1);
           if ((k-k/2*2)==0){
           cs.DrawOval (dx,dy,k*3,k*1,i*45);
            cs.DrawCircle (sx1,sy1,k/2);       
           cs.DrawOval (sx3,sy3,k+12,k*1.8,i*45); }   }       
               cs.Update ();      }   
      sleep (10); }  //next times //** Flowers change (3) ****
      if (n<round)goto redraw3;
 }//kakeid3 ()

kaleid4(){
   n=0;
redraw4:
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(0,4,720,600); 
          n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (4) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=235; g1=50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=25;b1=180; } //yellew
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*60+100;   L=(int)Rn;  //100-160;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+20,g1+t*20,250-b1);
      cs.DrawText (" Flowers change (4) Five blessings come to the door ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(80,50,640,550);   
    for(i=0;i<5;i++){  // pentacle
            a=2*pi/5*i ;
            sx1=(float)(px+L*sin(a));
            sy1=(float)(py+L*cos(a));
            sx2=(float)(px+(L-20)*sin(a));
            sy2=(float)(py+(L-20)*cos(a));
            sx3=(float)(px+(L-60)*sin(a));
            sy3=(float)(py+(L-60)*cos(a));
      for (k=15;k<30;k++){  
           cs.DrawLine (dx,dy,sx1,sy1);  
      if ((k-k/2*2)==0){
           cs.SetColor (255,r1,g1+k*6,250-b1);
           cs.DrawOval(dx,dy,k*6,k+5,-i*72);
           cs.DrawOval(sx1,sy1,k,k*3,-i*72);
           cs.DrawOval(sx2,sy2,k+10,k+15,-i*72);
           cs.DrawOval(sx3,sy3,k+12,k+6,-i*72);   }    }
                 cs.Update ();      }    
     sleep (10);    }  //next times //** Flowers change (4) ****
     if (n<round)goto redraw4;
}//kaleid4 ()

kaleid5(){
    n=0;
redraw5:
       cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(0,4,720,600); 
          n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (5) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=25;b1=180; } //yellew
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*60+100;   L=(int)Rn;  //100-160;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*20,250-b1);
      cs.DrawText (" Flowers change (5) resplendent with variegated coloration ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(80,50,640,550);   
    for(i=0;i<5;i++){  // pentacle
            a=2*pi/5*i ;
            sx1=(float)(px+L*sin(a));
            sy1=(float)(py-L*cos(a));
            sx2=(float)(px+L*sin(a));
            sy2=(float)(py+L*cos(a));
            sx3=(float)(px+(L-60)*sin(a));
            sy3=(float)(py+(L-60)*cos(a));
      for (k=10;k<30;k++){  
           cs.DrawLine (dx,dy,sx1,sy1);  
      if ((k-k/2*2)==0){
      cs.SetColor (255,r1,g1+k*6,250-b1);
           cs.DrawCircle(sx1,sy1,k/2);       
           cs.DrawCircle(sx1,sy1,k+5);       
           cs.DrawOval(dx,dy,k*6,k+5,-i*72);
           cs.DrawOval(sx2,sy2,k/2,k,-i*72);
           cs.DrawOval(sx3,sy3,k+15,k+5,-i*72);   }     }
               cs.Update ();      }   
     sleep(10);  }  //next times //** Flowers change (5) ****
     if (n<round)goto redraw5;
}//kaleid5 ()

kaleid6(){
   n=0;
redraw6:
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(0,4,720,600); 
          n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (6) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=0; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*60+100;   L=(int)Rn;  //100-160;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (6) LiuMang Xingyao ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(80,50,640,550);   
    for(i=0;i<6;i++){  // Six stars
            a=2*pi/6*i ;
            sx1=(float)(px+L*sin(a));
            sy1=(float)(py-L*cos(a));
            sx3=(float)(px+(L-60)*sin(a));
            sy3=(float)(py-(L-60)*cos(a));
      for (k=10;k<30;k++){  
           cs.DrawLine (dx,dy,sx1,sy1);  
      if ((k-k/2*2)==0){
      cs.SetColor (255,r1,g1+k*6,250-b1);
           cs.DrawCircle(sx1,sy1,k/2);       
           cs.DrawCircle(sx1,sy1,k+5);       
           cs.DrawOval(dx,dy,k*7,k+15,i*60);
           cs.DrawOval(sx3,sy3,k+15,k+5,i*60);   }     }
               cs.Update ();      }   
     sleep (10);  }  //next times //** Flowers change (6) ****
      if (n<round)goto redraw6;
}//kaleid6 ()

kaleid7(){
   n=0;
redraw7: 
       cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(0,4,720,600); 
          n=n+1;
   for (t=1;t<11;t++){    // ** Flowers change (7) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*70+60;   L=(int)Rn;  //100-180;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (7) Cut and put together ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(80,50,640,550);   
    for(i=0;i<9;i++){  // Cross stars Octagon
            a=2*pi/8*i ;
            sx1=(float)(L*sin(a))+px;
            sy1=(float)(L*cos(a))+py;
        for (k=10;k<40;k++){  
        cs.SetColor (255,r1+10,g1+k*6,250-b1);
           if ((k-k/2*2)==0){
              cs.DrawOval (sx1,sy1,k/2,k*2,-i*45);    
              cs.DrawCircle (sx1,sy1,k);
              cs.DrawCircle (dx,dy,k*2+5);      }  } 
               cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (7) ****
     if (n<round)goto redraw7;
 }//kaleid7()

kaleid8(){
   n=0;
redraw8:
       cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(0,4,720,600); 
          n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (8) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*70+110;   L=(int)Rn;  //100-180;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*6,250-b1);
      cs.DrawText (" Flowers change (8) be all things to all men ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(80,50,640,550);   
    for(i=0;i<9;i++){  // Cross stars Octagon
            a=2*pi/8*i ;
            sx1=(float)(px+L*sin(a));
            sy1=(float)(py-L*cos(a));
            sx2=(float)(L*sin(a))/2+px;
            sy2=(float)(L*cos(a))/2+py;
            sx3=(float)(px+(L-30)*sin(a));
            sy3=(float)(py-(L-30)*cos(a));
       for (k=10;k<30;k++){  
            cs.DrawLine (dx,dy,sx1,sy1);  
      if ((k-k/2*2)==0){
      cs.SetColor (255,r1+10,g1+k*6,250-b1);
           cs.DrawOval(dx,dy,k*6,k*3,i*45);
           cs.DrawCircle(sx1,sy1,k/2);       
           cs.DrawCircle(sx1,sy1,k);       
           cs.DrawCircle (sx2,sy2,k+20);
           cs.DrawOval(sx3,sy3,k+8,k*2,i*45);   }   }          
               cs.Update ();      }   
    sleep (10); }  //next times //** Flowers change (8) ***
     if (n<round)goto redraw8;
 }//kaleid8 ()

kaleid9(){
   n=0;
redraw9:
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(0,4,720,600); 
          n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (9) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*70+110;   L=(int)Rn;  //100-180;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (9) when all is said and done ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(80,50,640,550);   
    for(i=0;i<5;i++){  // Cross stars Octagon
            a=2*pi/4*i ;
            sx3=(float)((L-40)*sin(a))+px;
            sy3=(float)((L-40)*cos(a))+py;
        for (k=10;k<40;k++){  
        cs.SetColor (255,r1+10,g1+k*6,250-b1);
           cs.DrawCircle (dx-L/1.5,dy-L/1.5,k*2);
           cs.DrawCircle (dx+L/1.5,dy-L/1.5,k*2);
           cs.DrawCircle (dx-L/1.5,dy+L/1.5,k*2);
           cs.DrawCircle (dx+L/1.5,dy+L/1.5,k*2);
           cs.DrawCircle (dx,dy,k*2);       
           cs.DrawOval (sx3,sy3,k+12,k*1.5,i*90);    }   
               cs.Update ();      }   
   sleep (10);  }  //next times //** Flowers change (9) ****
     if (n<round)goto redraw9;
 }//kaleid9 ()

 kaleid10(){
   n=0;
redraw10:
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(0,4,720,600); 
          n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (10) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*70+110;   L=(int)Rn;  //100-180;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (10) Perfect ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(80,50,640,550);   
    for(i=0;i<5;i++){  // Cross stars Octagon
            a=2*pi/4*i ;
            sx1=(float)(L*sin(a))/3+px;
            sy1=(float)(L*cos(a))/3+py;
            sx2=(float)(L*sin(a))/2+px;
            sy2=(float)(L*cos(a))/2+py;
            sx3=(float)(px+(L-30)*sin(a));
            sy3=(float)(py-(L-30)*cos(a));
       for (k=10;k<30;k++){  
        cs.SetColor (255,r1+10,g1+k*6,250-b1);
           cs.DrawOval (dx,dy,k*6,k*3,i*45);
           cs.DrawCircle (sx1,sy1,k);       
           cs.DrawOval (sx2,sy2,k*2,k+10,i*90);
           cs.DrawOval (sx3,sy3,k-5,k*2.5,i*90);   }       
               cs.Update ();      }   
    sleep (10); }  //next times //** Flowers change (10) ****
     if (n<round)goto redraw10;
 }//kaleid10 ()

kaleid11(){
   n=0;
         cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(0,4,720,600); 
          n=n+1;
redraw11:
    for (t=1;t<11;t++){  // ** Flowers change (11) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);   //clear screen
          cs.DrawRect(0,4,720,600); 
          cs.Update ();
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=210; g1=-80; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=25;b1=180; } //yellew
           s=intToString (t);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;   
  Rn=random()*120+120;   L=(int)Rn;  //120-240;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
    cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (11) Go round and begin again ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(80,50,640,550);   
     for(i=0;i<31;i++){
          a=pi/30*i*2;   
     for(k=0;k<15;k++){
        cs.SetColor(255,r1+k*2,g1+80+k*8,250-b1);
         sx2=(float)(px+(L-k*2-L/4)/7*4*sin(a));
         sy2=(float)(py+(L-k*2-L/4)/7*4*cos(a));
             cs.DrawCircle(sx2,sy2,15);
         sx3=(float)(px+(L-k*2-L/2)/4*7*sin(a));
         sy3=(float)(py+(L-k*2-L/2)/4*7*cos(a));
              cs.DrawCircle(sx3,sy3,25);
              cs.DrawLine (px,py,sx3,sy3);
           cs.Update ();        }    } 
          sleep (10);    } //times  //**** (11) ******    
   //  if (n<10) goto redraw11;
}//kaleid11 ()

kaleid12 (){
     n=0; 
redraw12:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (12) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*50+60;   L=(int)Rn;  //60-110;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (12) scored twice ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(60,50,660,550);   
       for(i=0;i<9;i++){  // Cross stars Octagon
            a=2*pi/8*i ;
            sx1=(float)(L*sin(a))+px-95;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+95;
            sy2=(float)(L*cos(a))+py;
       for (k=10;k<40;k++){  
        cs.SetColor (205,r1+10,g1+k*6,250-b1);
          if ((k-k/2*2)==0){
              cs.DrawOval (sx1,sy1,k/2,k,-i*45);    
              cs.DrawOval (sx2,sy2,k/2,k,-i*45);    
              cs.DrawCircle (sx1,sy1,k+15);
              cs.DrawCircle (sx2,sy2,k+15);    }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (12) ****
     if (n<round) goto redraw12;
}//kaleid12 ()

kaleid13 (){
     n=0; 
redraw13:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (13) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*50+60;   L=(int)Rn;  //60-110;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (13) Be able to achieve success one way or another ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(60,50,660,550);   
       for(i=0;i<7;i++){  // Cross stars hexagon Octagon
            a=2*pi/6*i ;
            sx1=(float)(L*sin(a))+px-95;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+95;
            sy2=(float)(L*cos(a))+py;
       for (k=10;k<40;k++){  
        cs.SetColor (205,r1+10,g1+k*6,250-b1);
          if ((k-k/2*2)==0){
              cs.DrawOval (sx1,sy1,k/2,k*1.5,-i*60);    
              cs.DrawOval (sx2,sy2,k/2,k*1.5,-i*60);    
              cs.DrawCircle (sx1,sy1,k);
              cs.DrawCircle (sx2,sy2,k);    }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (13) ****
     if (n<round) goto redraw13;
}//kaleid13 ()

kaleid14 (){
     n=0; 
redraw14:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (14) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*50+60;   L=(int)Rn;  //60-110;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (14) overcautious ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(60,50,660,550);   
       for(i=0;i<9;i++){  // Cross stars hexagon Octagon
            a=2*pi/4*i ;
            sx1=(float)(L*sin(a))+px-95;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+95;
            sy2=(float)(L*cos(a))+py;
            a=2*pi/8*i ;
            sx3=(float)(L*sin(a))+px-95;
            sy3=(float)(L*cos(a))+py;
            sx4=(float)(L*sin(a))+px+95;
            sy4=(float)(L*cos(a))+py;
      for (k=10;k<40;k++){  
        cs.SetColor (205,r1+10,g1+k*6,250-b1);
          if ((k-k/2*2)==0){
              cs.DrawOval (sx1,sy1,k/2,k*1.5,-i*90);    
              cs.DrawOval (sx2,sy2,k/2,k*1.5,-i*90);    
              cs.DrawCircle (sx3,sy3,k*1.2);   
              cs.DrawCircle (sx4,sy4,k*1.2); 
              cs.DrawCircle (sx3,sy3,k/2);   
              cs.DrawCircle (sx4,sy4,k/2);   }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (14) ****
     if (n<round) goto redraw14;
}//kaleid14 ()

kaleid15 (){
     n=0; 
redraw15:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (15) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*50+60;   L=(int)Rn;  //60-110;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (15) multifarious ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(60,50,660,550);   
       for(i=0;i<11;i++){  // Cross stars hexagon Octagon
            a=2*pi/5*i ;
            sx1=(float)(L*sin(a))+px-95;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+95;
            sy2=(float)(L*cos(a))+py;
            a=2*pi/8*i ;
            sx3=(float)(L*sin(a))+px-95;
            sy3=(float)(L*cos(a))+py;
            sx4=(float)(L*sin(a))+px+95;
            sy4=(float)(L*cos(a))+py;
      for (k=10;k<40;k++){  
        cs.SetColor (255,r1+10,g1+k*6,250-b1);
          if ((k-k/2*2)==0){
              cs.DrawOval (sx1,sy1,k/2,k*1.5,-i*72);    
              cs.DrawOval (sx2,sy2,k/2,k*1.5,-i*72);    
              cs.DrawCircle (sx3,sy3,k*1.2);   
              cs.DrawCircle (sx4,sy4,k*1.2); 
              cs.DrawCircle (sx3,sy3,k/2);   
              cs.DrawCircle (sx4,sy4,k/2);   }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (15) ****
     if (n<round) goto redraw15;
}//kaleid15 ()

kaleid16 (){
     n=0; 
redraw16:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (16) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*50+60;   L=(int)Rn;  //60-110;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (16) be like a lion ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(60,50,660,550);   
                 L1=L+60;
       for(i=0;i<9;i++){  // Cross stars hexagon Octagon
            a=2*pi/8*i ;
            sx1=(float)(L*sin(a))+px-99;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+99;
            sy2=(float)(L*cos(a))+py;
            sx3=(float)(L1*sin(a))+px-99;
            sy3=(float)(L1*cos(a))+py;
            sx4=(float)(L1*sin(a))+px+99;
            sy4=(float)(L1*cos(a))+py;
      for (k=10;k<40;k++){  
        cs.SetColor (255,r1+10,g1+k*6,250-b1);
          if ((k-k/2*2)==0){
              cs.DrawOval (sx1,sy1,k/2,k*1.5,-i*45);    
              cs.DrawOval (sx2,sy2,k/2,k*1.5,-i*45);    
              cs.DrawCircle (sx1,sy1,k*1.2);   
              cs.DrawCircle (sx2,sy2,k*1.2); 
              cs.DrawCircle (sx3,sy3,k/3);   
              cs.DrawCircle (sx4,sy4,k/3);   
              cs.DrawCircle (sx1,sy1,k/2);   
              cs.DrawCircle (sx2,sy2,k/2);   }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (16) ****
     if (n<round) goto redraw16;
}//kaleid16 ()

kaleid17 (){
     n=0; 
redraw17:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (17) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*40+40;   L=(int)Rn;  //60-110;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (17) Good in pairs ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(60,50,660,550);   
                 L1=L+60;
       for(i=0;i<9;i++){  // Cross stars hexagon Octagon
            a=2*pi/4*i ;
            sx1=(float)(L*sin(a))+px-100;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+100;
            sy2=(float)(L*cos(a))+py;
            a=2*pi/8*i;
            sx3=(float)(L1*sin(a))+px-100;
            sy3=(float)(L1*cos(a))+py;
            sx4=(float)(L1*sin(a))+px+100;
            sy4=(float)(L1*cos(a))+py;
      for (k=10;k<40;k++){  
        cs.SetColor (255,r1+10,g1+k*6,250-b1);
          if ((k-k/2*2)==0){
              cs.DrawOval (sx1,sy1,k/2,k*1.2,-i*90);    
              cs.DrawOval (sx2,sy2,k/2,k*1.2,-i*90);    
              cs.DrawCircle (sx1,sy1,k*2);   
              cs.DrawCircle (sx2,sy2,k*2); 
              cs.DrawCircle (sx3,sy3,k/2);   
              cs.DrawCircle (sx4,sy4,k/2); 
              cs.DrawCircle (sx3,sy3,k);   
              cs.DrawCircle (sx4,sy4,k);   
              cs.DrawCircle (sx3,sy3,k*0.6);   
              cs.DrawCircle (sx4,sy4,k*0.6);    }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (17) ****
     if (n<round) goto redraw17;
}//kaleid17 ()

kaleid18 (){
     n=0; 
redraw18:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (18) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*30+40;   L=(int)Rn;  //70-130;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (18) good luck and happiness to you ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(50,50,670,550);   
                 L1=L-30;
       for(i=0;i<9;i++){  // Cross stars hexagon Octagon
            a=2*pi/8*i ;
            sx1=(float)(L*sin(a))+px-100;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+100;
            sy2=(float)(L*cos(a))+py;
            sx3=(float)(L*sin(a))+px;
            sy3=(float)(L*cos(a))+py-100;
            sx4=(float)(L*sin(a))+px;
            sy4=(float)(L*cos(a))+py+100;
            x1=(float)(L1*sin(a))+px-220;
            y1=(float)(L1*cos(a))+py;
            x2=(float)(L1*sin(a))+px+220;
            y2=(float)(L1*cos(a))+py;
     for (k=10;k<40;k++){  
       cs.SetColor (255,r1+10,g1+k*6,250-b1);
       // cs.SetColor (255,255,g1+k*6,250-b1);
          if ((k-k/2*2)==0){
               cs.DrawCircle (x1,y1,k/3);   
               cs.DrawCircle (x2,y2,k/3);   
               cs.DrawCircle (sx1,sy1,k);   
               cs.DrawCircle (sx2,sy2,k);   
               cs.DrawCircle (sx3,sy3,k);   
               cs.DrawCircle (sx4,sy4,k);   
              cs.DrawOval (sx1,sy1,k/4,k,-i*45);    
              cs.DrawOval (sx2,sy2,k/4,k,-i*45);    
              cs.DrawOval (sx3,sy3,k/4,k,-i*45);    
              cs.DrawOval (sx4,sy4,k/4,k,-i*45);    
         }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (18) ****
     if (n<round) goto redraw18;
}//kaleid18 ()

kaleid19 (){
     n=0; 
redraw19:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (19) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*30+40;   L=(int)Rn;  //70-130;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (19) Four generations ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(50,50,670,550);   
                 L1=L+60;
       for(i=0;i<9;i++){  // Cross stars hexagon Octagon
            a=2*pi/8*i ;
            sx1=(float)(L*sin(a))+px-160;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))+px+160;
            sy2=(float)(L*cos(a))+py;
            sx3=(float)(L*sin(a))+px;
            sy3=(float)(L*cos(a))+py-100;
            sx4=(float)(L*sin(a))+px;
            sy4=(float)(L*cos(a))+py+100;
     for (k=10;k<40;k++){  
        cs.SetColor (255,r1+10,g1+k*6,250-b1);
          if ((k-k/2*2)==0){
               cs.DrawCircle (sx1,sy1,k);   
               cs.DrawCircle (sx2,sy2,k);   
               cs.DrawCircle (sx3,sy3,k);   
               cs.DrawCircle (sx4,sy4,k);   
              cs.DrawOval (sx1,sy1,k/4,k,-i*45);    
              cs.DrawOval (sx2,sy2,k/4,k,-i*45);    
              cs.DrawOval (sx3,sy3,k/4,k,-i*45);    
              cs.DrawOval (sx4,sy4,k/4,k,-i*45);     }    } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (19) ****
     if (n<round) goto redraw19;
}//kaleid19 ()

kaleid20 (){
     n=0; 
redraw20:  
    cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect (0,4,720,600);
        n=n+1;
    for (t=1;t<11;t++){    // ** Flowers change (20) ******
        cs.SetFillMode (1);//0 No coloring ,1 Colouring
        cs.SetColor (255,0,0,0);
        cs.DrawRect(20,550,700,600); 
    Rn=random()*6;       //color change
    if (Rn<0.9){r1=245; g1=-50; b1=250;  }  //red
    if (Rn>0.9&&Rn<2){r1=220; g1=20; b1=0; } //pink
    if (Rn>1&&Rn<3){r1=60;  g1=0; b1=0;  } //blue
    if (Rn>2&&Rn<4){r1=120;  g1=0; b1=0;  } //purple
    if (Rn>3&&Rn<5){r1=30;   g1=50; b1=150; }//green
    if (Rn>4&&Rn<6){r1=225;g1=30;b1=120; } //orenge
           s=intToString (n);
           ss3="times = "+s;
           s=intToString (r1);
           ss1="color  = "+s;
  Rn=random()*60+70;   L=(int)Rn;  //70-130;
           s1=(int)(Rn);
           s=intToString (s1);
           ss2="random (L) = "+s;
      cs.SetColor (255,r1+10,g1+t*15,250-b1);
      cs.DrawText (" Flowers change (20) Booming Flowers and a Full Moon ",80,40);
           cs.DrawText (ss3,90,580);
           cs.DrawText (ss1,240,580);
           cs.DrawText (ss2,420,580);
                 cs.Update ();
        cs.SetFillMode (0);//0 No coloring ,1 Colouring
        cs.DrawRect(60,50,660,550);   
                 L1=L+60;
       for(i=0;i<9;i++){  // Cross stars hexagon Octagon
            a=2*pi/8*i ;
            sx1=(float)(L*sin(a))+px;
            sy1=(float)(L*cos(a))+py;
            sx2=(float)(L*sin(a))/3+px;
            sy2=(float)(L*cos(a))/3+py;
            sx3=(float)(L1*sin(a))+px;
            sy3=(float)(L1*cos(a))+py;
      for (k=10;k<40;k++){  
        cs.SetColor (255,r1+10,g1+k*6,250-b1);
          if ((k-k/2*2)==0){
               cs.DrawCircle (sx1,sy1,k*1.8);   
               cs.DrawCircle (sx2,sy2,k/2);   
               cs.DrawCircle (sx3,sy3,k/3);   
               cs.DrawOval (sx1,sy1,k/2,k*1.2,-i*45);  }  } 
                 cs.Update ();      }   
     sleep (10); }  //next times //** Flowers change (20) ****
     if (n<round) goto redraw20;
}//kaleid20 ()

loadpic (){
//use filebox open a file and load a picture
         filebox.SetTitle(" Loading pictures (*.bmp;*.jpg;*.png)");
         filebox.SetFilter(".bmp;.jpg;.png");
         filebox.Show();
         if(filebox.GetCount()==1){
             fname=filebox.GetFileName(0);
             if(getPicSize(fname,size)<0){
                 return;           }
            size [2]=getPicSize (fname,size);
      print "pic size =   ",size[2];
             cs.ClearDraw (0,src);
             cs.DrawBitmap(fname,0,2);
             cs.Update ();
            print "Load a picture";
            print fname;
         }
}//loadpic ()

savepic (){
        filebox.SetTitle(" Save the picture (*.bmp;*.jpg;*.png)");
        filebox.SetFilter(".bmp;.jpg;.png");
        filebox.SetMode(1);
        filebox.Show();
            if(filebox.GetCount()==1){
            fname=filebox.GetFileName(0);
            cs.SaveBitmap(fname);    }
}    //savepic ()

//End