C語言繪圖示例－繁花圖案

我空余時在安卓手機上用myspringc語言編寫的圖案繪圖示例，可供喜歡的朋友參考。我這所編制的這個示例程序最大的優點是圖案隨時變換，色彩隨機隨時變化，頗具觀賞性。另加一鍵全部示例自動演示功能。

MySpringC不僅可以編寫簡單的C語言程序，而且它能讀取手機中各種傳感器的數值，控制各種多媒體設備，從而實現讓普通用戶用C語言控制手機，編寫出意想不到的、適合自己使用的應用。

v.2.7是目前的完善版本。下面的游戲代碼就是用它在安卓手機上編寫的，可制作成安卓手機桌面app應用程序。此樣例可復制黏貼到編譯器直接使用，亦可用 VB6 ，C++ , ?java ?改寫。

部分圖例：

?

?

?

?

?

以下是源碼：
// ?最簡單的 C 語言編程
// ?myspringc ?v2.7 ?可編譯安卓本機 app 應用
// ?此樣例可復制黏貼到 myspringc ?編譯
// ?此文檔可用 VB，VC ?, ?java 改寫

//***********************************
// ? ?繁花百變 ? ?KALEIDOSCOPE
//***********************************
// ?制作人：張純叔（ micelu@126. com）
//*************************************
Canvas cs; ? ? ?//繪圖畫布
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 全色調色板
double Rn; ? ?//random number

main(){
setDisplay(1);
? ?cs.SetBackground(225,225,225);
? ?cs.Active();
? ?sBarDes[0]="選擇圖形";
? ?nBarId[0]=100;
? ?sBarDes[1]="自動演示";
? ?nBarId[1]=101;
? ?sBarDes[2]="繁花目錄";
? ?nBarId[2]=102;
? ?sBarDes[3]="顯示圖形";
? ?nBarId[3]=103;
? ?sBarDes[4]="退出程序";
? ?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]="選擇圖形";
? ?nMenu[0]=200;
? ?sMenu[1]="自動演示";
? ?nMenu[1]=201;
? ?sMenu[2]="繁花目錄";
? ?nMenu[2]=202;
? ?sMenu[3]="裝載圖片(*.bmp;*.jpg;*.png)";
? ?nMenu[3]=203;
? ?sMenu[4]="保存圖片";
? ?nMenu[4]=204;
? ?sMenu[5]="關閉圖板";
? ?nMenu[5]=205;
? ?sMenu[6]="顯示圖板";
? ?nMenu[6]=206;
? ?sMenu[7]="版本信息";
? ?nMenu[7]=207;
? ?sMenu[8]="退出";
? ?nMenu[8]=208;
? ?setMenu(100,myMenuProc,sMenu,nMenu,9);
? setTitle("繁花百變 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不填色，1填色
? ? ? ? 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 ("繁花百變",154,554);
? ? ? ? cs.SetColor (255,250,0,250); ? ? ? ?
? ? ? ? cs.DrawText ("繁花百變",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="編譯人：張純叔 ?(micelu@126.com) ";
? ? ? ? ?cs.DrawText (s,20,800);
? ? cs.DrawText ("@copyright ?Version 1.02",190,670);
? ? for (t=1;t<5;t++){ ? ?// ** 繁花百變 ******
? ? ?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不填色，1填色
? ? ? ? ? ?cs.SetTextSize (108);
? ? ? ? cs.SetColor (255,20,50,250); ? ? ? ?
? ? ? ? cs.DrawText ("繁花百變",150,550);
? ? ? ? cs.SetTextSize (58);
? ? ? ? ?cs.SetColor (255,250,220,0);
? ? ? ? ?cs.DrawText ("KALEIDOSCOPE",152,621);
? ? ? ? ?cs.Update ();
? ? ? for(i=0;i<13;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 "繁花百變圖形目錄 ";
? ? ? ?print " ? ? 1. ?一元伊始 ";
? ? ? ?print " ? ? 2. ?六六大順 ";
? ? ? ?print " ? ? 3. ?團團圓圓 ";
? ? ? ?print " ? ? 4. ?五福臨門 ";
? ? ? ?print " ? ? 5. ?五光十色 ";
? ? ? ?print " ? ? 6. ?六芒星曜 ";
? ? ? ?print " ? ? 7. ?切拼八湊 ";
? ? ? ?print " ? ? 8. ?八面玲瓏 ";
? ? ? ?print " ? ? 9. ?九九歸一 ";
? ? ? ?print " ? ?10. 十全十美 ";
? ? ? ?print " ? ?11. 周而復始 ";
? ? ? ?print " ? ?12. 梅開二度 ";
? ? ? ?print " ? ?13. 左右逢源 ";
? ? ? ?print " ? ?14. 四平八穩 ";
? ? ? ?print " ? ?15. 五花八門 ";
? ? ? ?print " ? ?16. 威風八面 ";
? ? ? ?print " ? ?17. 好事成雙 ";
? ? ? ?print " ? ?18. 吉祥如意 ";
? ? ? ?print " ? ?19. 四世同堂 ";
? ? ? ?print " ? ?20. 花好月圓 ";
? ? ? ?print " ? ?21. 多姿多彩 ";
? ? ? ?print " ? ?22. 百花爭艷 ";
? ? ? ?print " ? ?23. 五彩繽紛 ";
? ? ? ?print " ? ?24. 爭奇斗艷 ";
? ? ? ?print " ? ?25. 喧賓奪主 ";
? ? ? ?print " ? ?26. 奇花異草 ";
? ? ? ?print " ? ?27. 千奇百怪 ";
? ? ? ?print " ? ?28. 出奇制勝 ";
? ? ? ?print " ? ?29. 美中不足 ";
? ? ? ?print " ? ?30. 美輪美奐 ";
}//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("選擇演示圖形", ?"1. 一元伊始 ?2. 六六大順 ?3. 團團圓圓 ?4. 五福臨門 ?5. 五光十色 ?6. 六芒星曜 ?7. 切拼八湊 ?8. 八面玲瓏 ?9. 九九歸一 ?10. 十全十美 ?......> ?\n ? ? ?輸入 [ 空 ] 則取消 " ?);
? ? ? ? ? ? ?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){//關閉圖板 顯示繁花目錄
? ? ? ? ? ? setDisplay (0);
? ? ? ? ? ? content (); ? ? ? ? ? ? ? ?}
? ? ?if(nBtn==103){//顯示圖板
? ? ? ? ? ? setDisplay (1); ? ? ? ? ?}
? ? ?if(nBtn==104){//退出程序
? ? ? ? ? ?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,"選擇圖形");
? ? ? ? ? ?selectfigure (); ? ? ? ? ? } ??
? ? if(nMen==201){ ? //print "自動演示";
? ? ? ? ? ?setDisplay (1);
? ? ? ? ? ?autoplay (); ? ? } //auto show ****** ? ? ? ? ??
? ? if(nMen==202){ ? ? //print "繁花目錄";
? ? ? ? ? ? setDisplay (0);
? ? ? ? ? ? content (); ? ? ? }
? ? ? if (nMen==203){//裝載圖片
? ? ? ? ? ? loadpic (); ? ? ? ? ? ?} ?
? ? ? ?if (nMen==204){//disMsg(0,"保存圖片");
? ? ? ? ? ?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不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<8;t++){ ? ?// ** 繁花百變(31) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (28) 出奇制勝 ",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,545); ??
? ? ? ?for(i=0;i<13;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(31) ****
? ? ?if (n<round) goto redraw31;
}//testdraw ()

kaleid30 (){
? ? ?n=0;?
redraw30: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<8;t++){ ? ?// ** 繁花百變(30) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (30) 美輪美奐 ",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,545); ??
? ? ? ?for(i=0;i<13;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(30) ****
? ? ?if (n<round) goto redraw30;
}//kaleid30 ()

kaleid29 (){
? ? ?n=0;?
redraw29: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<8;t++){ ? ?// ** 繁花百變(29) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (29) 美中不足 ",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,545); ??
? ? ? ?for(i=0;i<13;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(29) ****
? ? ?if (n<round) goto redraw29;
}//kaleid29 ()

kaleid28 (){
? ? ?n=0;?
redraw28: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<8;t++){ ? ?// ** 繁花百變(28) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (28) 出奇制勝 ",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,545); ??
? ? ? ?for(i=0;i<13;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(28) ****
? ? ?if (n<round) goto redraw28;
}//kaleid28 ()

kaleid27 (){
? ? ?n=0;?
redraw27: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<8;t++){ ? ?// ** 繁花百變(27) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (27) 千奇百怪 ",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,545); ??
? ? ? ?for(i=0;i<19;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(27) ****
? ? ?if (n<round) goto redraw27;
}//kaleid27 ()

kaleid26 (){
? ? ?n=0;?
redraw26: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<8;t++){ ? ?// ** 繁花百變(26) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (26) 奇花異草 ",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,545); ??
? ? ? ?for(i=0;i<19;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(26) ****
? ? ?if (n<round) goto redraw26;
}//kaleid26 ()

kaleid25 (){
? ? ?n=0;?
redraw25: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<8;t++){ ? ?// ** 繁花百變(25) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (25) 喧賓奪主",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,545); ??
? ? ? ?for(i=0;i<7;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(25) ****
? ? ?if (n<round) goto redraw25;
}//kaleid25 ()

kaleid24 (){
? ? ?n=0;?
redraw24: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<6;t++){ ? ?// ** 繁花百變(24) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (24) 爭奇斗艷",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,545); ??
? ? ? ? ? ? ? ? ?L1=L+10;
? ? ? ?for(i=0;i<14;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(24) ****
? ? ?if (n<round) goto redraw24;
}//kakeid24 ()

kaleid23 (){
? ? ?n=0;?
redraw23: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(23) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (23) 五彩繽紛",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,550); ??
? ? ? ? ? ? ? ? ?L1=L+10;
? ? ? ?for(i=0;i<1;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(23) ****
? ? ?if (n<round) goto redraw23;
}//kaleid23 ()

kaleid22 (){
? ? ?n=0;?
redraw22: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(22) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (22) 百花爭艷",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,550); ??
? ? ? ? ? ? ? ? ?L1=L-20;
? ? ? ?for(i=0;i<15;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(22) ****
? ? ?if (n<round) goto redraw22;
}//kaleid22 ()

kaleid21 (){
? ? ?n=0;?
redraw21: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(21) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (21) 多姿多彩",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(40,50,680,550); ??
? ? ? ? ? ? ? ? ?L1=L-20;
? ? ? ?for(i=0;i<31;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(21) ****
? ? ?if (n<round) goto redraw21;
}//kaleid21 ()

?kaleid1 (){?
? ? for(t=1;t<11;t++){ ? ? ?// ** 繁花百變(1) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (1) 一元伊始",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不填色，1填色
? ? ? ? ?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 (); ? ? ? ? } //**** 繁花(1) ****
? ? ? ? ? ? sleep (10); ? ? ? ?}//next time t
}//kaleid1()

kaleid2(){
? ? n=0;
redraw2:
? ? ?cs.SetFillMode (1);//0不填色，1填色
? ? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(2) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (2) 六六大順",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ?cs.Update ();
? ? ? ?cs.SetFillMode (0);//0不填色，1填色
? ? ? ? ? ? ?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 //** 繁花百變(2) ****
? ? ? if (n<round)goto redraw2;
?}//kakeid2 ()

kaleid3(){
? ?n=0;
redraw3:
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect(0,4,720,600);?
? ? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(3) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (3) 團團圓圓",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(80,50,640,550); ??
? ? for(i=0;i<9;i++){ ?//十字星 八角形
? ? ? ? ? ? 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 //** 繁花百變(3) ****
? ? ? if (n<round)goto redraw3;
?}//kakeid3 ()

kaleid4(){
? ?n=0;
redraw4:
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect(0,4,720,600);?
? ? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(4) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (4) 五福臨門",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(80,50,640,550); ??
? ? for(i=0;i<5;i++){ ?//五芒星
? ? ? ? ? ? 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 //** 繁花百變(4) ****
? ? ?if (n<round)goto redraw4;
}//kaleid4 ()

kaleid5(){
? ? n=0;
redraw5:
? ? ? ?cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect(0,4,720,600);?
? ? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(5) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (5) 五光十色",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(80,50,640,550); ??
? ? for(i=0;i<5;i++){ ?//五芒星
? ? ? ? ? ? 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 //** 繁花百變(5) ****
? ? ?if (n<round)goto redraw5;
}//kaleid5 ()

kaleid6(){
? ?n=0;
redraw6:
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect(0,4,720,600);?
? ? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(6) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (6) 六芒星曜",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(80,50,640,550); ??
? ? for(i=0;i<6;i++){ ?//六芒星
? ? ? ? ? ? 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 //** 繁花百變(6) ****
? ? ? if (n<round)goto redraw6;
}//kaleid6 ()

kaleid7(){
? ?n=0;
redraw7:?
? ? ? ?cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect(0,4,720,600);?
? ? ? ? ? n=n+1;
? ?for (t=1;t<11;t++){ ? ?// ** 繁花百變(7) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (7) 切拼八湊",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(80,50,640,550); ??
? ? for(i=0;i<9;i++){ ?//十字星 八角形
? ? ? ? ? ? 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 //** 繁花百變(7) ****
? ? ?if (n<round)goto redraw7;
?}//kaleid7()

kaleid8(){
? ?n=0;
redraw8:
? ? ? ?cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect(0,4,720,600);?
? ? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(8) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (8) 八面玲瓏",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(80,50,640,550); ??
? ? for(i=0;i<9;i++){ ?//十字星 八角形
? ? ? ? ? ? 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 //** 繁花百變(8) ***
? ? ?if (n<round)goto redraw8;
?}//kaleid8 ()

kaleid9(){
? ?n=0;
redraw9:
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect(0,4,720,600);?
? ? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(9) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (9) 九九歸一",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(80,50,640,550); ??
? ? for(i=0;i<5;i++){ ?//十字星 八角形
? ? ? ? ? ? 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 //** 繁花百變(9) ****
? ? ?if (n<round)goto redraw9;
?}//kaleid9 ()

?kaleid10(){
? ?n=0;
redraw10:
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect(0,4,720,600);?
? ? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(10) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (10) 十全十美",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(80,50,640,550); ??
? ? for(i=0;i<5;i++){ ?//十字星 八角形
? ? ? ? ? ? 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 //** 繁花百變(10) ****
? ? ?if (n<round)goto redraw10;
?}//kaleid10 ()

kaleid11(){
? ?n=0;
? ? ? ? ?cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect(0,4,720,600);?
? ? ? ? ? n=n+1;
redraw11:
? ? for (t=1;t<11;t++){ ?// ** 繁花百變(11) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (11) 周而復始",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? 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不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(12) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (12) 梅開二度",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(60,50,660,550); ??
? ? ? ?for(i=0;i<9;i++){ ?//十字星 八角形
? ? ? ? ? ? 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 //** 繁花百變(12) ****
? ? ?if (n<round) goto redraw12;
}//kaleid12 ()

kaleid13 (){
? ? ?n=0;?
redraw13: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(13) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (13) 左右逢源",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(60,50,660,550); ??
? ? ? ?for(i=0;i<7;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(13) ****
? ? ?if (n<round) goto redraw13;
}//kaleid13 ()

kaleid14 (){
? ? ?n=0;?
redraw14: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(14) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (14) 四平八穩",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(60,50,660,550); ??
? ? ? ?for(i=0;i<9;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(14) ****
? ? ?if (n<round) goto redraw14;
}//kaleid14 ()

kaleid15 (){
? ? ?n=0;?
redraw15: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(15) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (15) 五花八門",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(60,50,660,550); ??
? ? ? ?for(i=0;i<11;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(15) ****
? ? ?if (n<round) goto redraw15;
}//kaleid15 ()

kaleid16 (){
? ? ?n=0;?
redraw16: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(16) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (16) 威風八面",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(60,50,660,550); ??
? ? ? ? ? ? ? ? ?L1=L+60;
? ? ? ?for(i=0;i<9;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(16) ****
? ? ?if (n<round) goto redraw16;
}//kaleid16 ()

kaleid17 (){
? ? ?n=0;?
redraw17: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(17) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (17) 好事成雙",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(60,50,660,550); ??
? ? ? ? ? ? ? ? ?L1=L+60;
? ? ? ?for(i=0;i<9;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(17) ****
? ? ?if (n<round) goto redraw17;
}//kaleid17 ()

kaleid18 (){
? ? ?n=0;?
redraw18: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(18) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (18) 吉祥如意",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(50,50,670,550); ??
? ? ? ? ? ? ? ? ?L1=L-30;
? ? ? ?for(i=0;i<9;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(18) ****
? ? ?if (n<round) goto redraw18;
}//kaleid18 ()

kaleid19 (){
? ? ?n=0;?
redraw19: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(19) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (19) 四世同堂",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(50,50,670,550); ??
? ? ? ? ? ? ? ? ?L1=L+60;
? ? ? ?for(i=0;i<9;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(19) ****
? ? ?if (n<round) goto redraw19;
}//kaleid19 ()

kaleid20 (){
? ? ?n=0;?
redraw20: ?
? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? cs.SetColor (255,0,0,0);
? ? ? ? cs.DrawRect (0,4,720,600);
? ? ? ? n=n+1;
? ? for (t=1;t<11;t++){ ? ?// ** 繁花百變(20) ******
? ? ? ? cs.SetFillMode (1);//0不填色，1填色
? ? ? ? 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 (" 繁花百變 (20) 花好月圓",80,40);
? ? ? ? ? ?cs.DrawText (ss3,90,580);
? ? ? ? ? ?cs.DrawText (ss1,240,580);
? ? ? ? ? ?cs.DrawText (ss2,420,580);
? ? ? ? ? ? ? ? ?cs.Update ();
? ? ? ? cs.SetFillMode (0);//0不填色，1填色
? ? ? ? cs.DrawRect(60,50,660,550); ??
? ? ? ? ? ? ? ? ?L1=L+60;
? ? ? ?for(i=0;i<9;i++){ ?//十字星 六角形 八角形
? ? ? ? ? ? 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 //** 繁花百變(20) ****
? ? ?if (n<round) goto redraw20;
}//kaleid20 ()

loadpic (){
//use filebox open a file and load a picture
? ? ? ? ?filebox.SetTitle("裝載圖片(*.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("保存圖片(*.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

?

總結

以上是生活随笔為你收集整理的C语言绘图示例-繁花图案的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。