Mariposa !

Pseint "MARIPOSA"

Dimension flor[14];

flor[1]<- "                    ";
flor[2]<- "                    ";
flor[3]<- "                    " ;
flor[4]<- "                    ";
flor[5]<- "                    ";
flor[6]<- "                    ";
flor[7]<- "                    ";
flor[8]<- "                    ";
flor[9]<- "  o o     ";
flor[10]<-" o 0 o    ";
flor[11]<-"  o o     " ;
flor[12]<-"   |      ";
flor[13]<-"   |      ";
flor[14]<-"          ";


Dimension mari1[16];

mari1[1]<- "               ¶¶_            ";
mari1[2]<- "    ¶¶¶¶¶¶      ¶¶    ¶¶      ";
mari1[3]<- "   ¶¶¶¶¶¶¶¶¶     ¶  ¶   ¶¶    ";
mari1[4]<- "  ¶¶¶¶¶¶¶¶¶¶¶¶   ¶_¶ ";
mari1[5]<- " ¶¶¶______¶¶¶¶   ¶    ¶¶¶¶¶";
mari1[6]<- " ¶¶¶_________¶¶_¶__¶¶¶¶¶¶¶¶¶¶ ";
mari1[7]<- " ¶¶¶_________¶¶__¶¶¶¶¶¶¶¶¶¶¶¶ ";
mari1[8]<- " ¶¶¶_________¶¶¶¶¶¶______¶¶¶¶ ";
mari1[9]<- "  ¶¶_________¶¶¶_________ ¶¶¶ ";
mari1[10]<-"  ¶¶________¶¶¶__________¶¶¶  ";
mari1[11]<-"   ¶¶______¶¶¶__________¶¶¶   ";
mari1[12]<-"    ¶¶¶___¶¶¶________ ¶¶¶¶    ";
mari1[13]<-"   ¶¶¶¶¶¶_¶_ ¶  ¶¶¶¶¶¶        ";
mari1[14]<-" ¶¶¶¶_ ¶¶¶    ¶¶¶  ¶¶¶¶      ";
mari1[15]<-" ¶¶¶¶¶¶¶¶      ¶¶¶¶¶¶¶¶¶     ";
mari1[16]<-"  ¶¶¶¶¶          ¶¶¶¶¶¶      ";



Dimension mari2[16];

mari2[1]<- "               ¶¶_";
mari2[2]<- "                ¶¶    ";
mari2[3]<- "                 ¶   ¶ ¶¶ ";
mari2[4]<- "                 ¶ ¶ ";
mari2[5]<- "                 ¶  ";
mari2[6]<- "                ¶ ";
mari2[7]<- "              ¶¶ ";
mari2[8]<- "             ¶¶¶¶";
mari2[9]<- "             ¶¶";
mari2[10]<-"            ¶¶";
mari2[11]<-"           ¶¶¶";
mari2[12]<-"          ¶¶¶";
mari2[13]<-"          ¶¶";
mari2[14]<-"          ¶"  ; 
mari2[15]<-"         ¶¶" ;
mari2[16]<-"      ¶";