La Cigale et la Fourmi

Code:: rem ============================================================================
rem La Cigale et la Fourmi
rem Par Papydall
rem ============================================================================
La_Fontaine()
end
rem ============================================================================
SUB La_Fontaine()
   Init() : Fable_F() : Fable_A()
   Maison() : Fourmi() : Cigale()
END_SUB
rem ============================================================================
SUB Init()
   dim t$
   full_space 0
   alpha 10 : left 10,200 : top 10,010 : font_bold 10 : font_underline 10 : font_size 10,24 : font_color 10,255,0,0
   alpha 20 : left 20,300 : top 20,060 : font_bold 20 : font_size 20,12 : font_color 20,0,0,255
   alpha 30 : left 30,200 : top 30,520 : font_bold 30 : font_underline 30 : font_size 30,24 : font_color 30,255,0,0
   alpha 40 : left 40,900 : top 40,010 : font_bold 40 : font_underline 40 : font_size 40,24 : font_color 40,255,0,0
   alpha 50 : left 50,950 : top 50,060 : font_bold 50 : font_size 50,12 : font_color 50,0,0,255
END_SUB
rem ============================================================================
SUB Fable_F()
   dim_local nl$ : nl$ = chr$(13)
   t$ = "La Cigale et la Fourmi" : caption 10,t$
   t$ = "La Cigale, ayant chanté" + nl$
   t$ = t$ + "Tout l'été," + nl$
   t$ = t$ + "Se trouva fort dépourvue" + nl$
   t$ = t$ + "Quand la bise fut venue:" + nl$
   t$ = t$ + "Pas un seul petit morceau" + nl$
   t$ = t$ + "De mouche ou de vermisseau." + nl$
   t$ = t$ + "Elle alla crier famine" + nl$
   t$ = t$ + "Chez la Fourmi sa voisine,"+ nl$
   t$ = t$ + "La priant de lui prêter"+ nl$
   t$ = t$ + "Quelque grain pour subsister" + nl$
   t$ = t$ + "Jusqu'à la saison nouvelle." + nl$
   t$ = t$ + "«Je vous paierai, lui dit-elle," + nl$
   t$ = t$ + "Avant l'Oût, foi d'animal," + nl$
   t$ = t$ + "Intérêt et principal. »" + nl$
   t$ = t$ + "La Fourmi n'est pas prêteuse :" + nl$
   t$ = t$ + "C'est là son moindre défaut." + nl$
   t$ = t$ + "Que faisiez-vous au temps chaud ?"+ nl$
   t$ = t$ + "Dit-elle à cette emprunteuse." + nl$
   t$ = t$ + "- Nuit et jour à tout venant" + nl$
   t$ = t$ + "Je chantais, ne vous déplaise." + nl$
   t$ = t$ + "- Vous chantiez ? j'en suis fort aise." + nl$
   t$ = t$ + "Eh bien! dansez maintenant."+ nl$ +nl$
   caption 20,t$ : t$ = "Jean de La Fontaine" : caption 30,t$
END_SUB
rem ============================================================================
SUB Fable_A()
   dim_local nl$ : nl$ = chr$(13)
   t$ = "The Cicada and the Ant" : caption 40,t$
   t$ = "The Cicada, having sung" + nl$
   t$ = t$ + "All summer long," + nl$
   t$ = t$ + "Found herself wanting" + nl$
   t$ = t$ + "When the north wind came." + nl$
   t$ = t$ + "Not a single morsel" + nl$
   t$ = t$ + "Of fly or tiny worm." + nl$
   t$ = t$ + "She went begging for food " + nl$
   t$ = t$ + "To her neighbour the Ant," + nl$
   t$ = t$ + "Asking her to lend her" + nl$
   t$ = t$ + "Just a few grains to get by" + nl$
   t$ = t$ + "Until the next season." + nl$
   t$ = t$ + "«I will pay you back, she said," + nl$
   t$ = t$ + "Before August, animal's honor," + nl$
   t$ = t$ + "Interest and principal.»" + nl$
   t$ = t$ + "The Ant is no lender:" + nl$
   t$ = t$ + "This is the least of her faults." + nl$
   t$ = t$ + "«What were you doing during the warm days?" + nl$
   t$ = t$ + "She said to this borrower." + nl$
   t$ = t$ + "--Night and day no matter what" + nl$
   t$ = t$ + "I was singing, like it or not." + nl$
   t$ = t$ + "--You were singing? I'm very glad:" + nl$
   t$ = t$ + "Very well, start dancing now.»" + nl$ +nl$
   caption 50,t$
END_SUB
rem ============================================================================
SUB Maison()
   2d_pen_color 255,255,0 : 2d_poly_from 763,239
   2d_poly_to 879,355 : 2d_poly_to 877,546 : 2d_poly_to 641,545 : 2d_poly_to 643,353 : 2d_poly_to 763,239
   2d_flood 763,250,255,255,0
   2d_pen_color 0,0,255 : 2d_poly_from 899 , 225
   2d_poly_to 751 , 225 : 2d_poly_to 880 , 353 : 2d_poly_to 898 , 352 : 2d_poly_to 899 , 225
   2d_flood 895,230,0,0,255
   2d_fill_color 000,000,255 : 2d_rectangle 706,352,806,552
   2d_fill_color 255,000,255 : 2d_rectangle 878,351,898,551
   2d_fill_color 000,000,000 : 2d_rectangle 620,547,900,567
   2d_pen_color 0,255,0 : 2d_poly_from 622 , 351
   2d_poly_to 749 , 224 : 2d_poly_to 764 , 238 : 2d_poly_to 644 , 350 : 2d_poly_to 622 , 351
   2d_flood 624,350, 000,255,000
END_SUB
rem ============================================================================
SUB Fourmi()
   2d_pen_color 0,0,0 : 2d_poly_from 648,282
   2d_poly_to 655 , 294 : 2d_poly_to 654 , 318 : 2d_poly_to 663 , 331 : 2d_poly_to 667 , 331
   2d_poly_to 666 , 320 : 2d_poly_to 669 , 306 : 2d_poly_to 673 , 298 : 2d_poly_to 674 , 283
   2d_poly_to 680 , 296 : 2d_poly_to 673 , 314 : 2d_poly_to 670 , 327 : 2d_poly_to 672 , 332
   2d_poly_to 685 , 342 : 2d_poly_to 690 , 357 : 2d_poly_to 692 , 360 : 2d_poly_to 707 , 368
   2d_poly_to 720 , 377 : 2d_poly_to 726 , 390 : 2d_poly_to 730 , 395 : 2d_poly_to 737 , 403
   2d_poly_to 749 , 413 : 2d_poly_to 753 , 415 : 2d_poly_to 758 , 419 : 2d_poly_to 762 , 425
   2d_poly_to 753 , 438 : 2d_poly_to 745 , 431 : 2d_poly_to 737 , 423 : 2d_poly_to 728 , 417
   2d_poly_to 728 , 413 : 2d_poly_to 718 , 411 : 2d_poly_to 714 , 406 : 2d_poly_to 707 , 412
   2d_poly_to 700 , 414 : 2d_poly_to 688 , 407 : 2d_poly_to 677 , 393 : 2d_poly_to 685 , 373
   2d_poly_to 683 , 370 : 2d_poly_to 671 , 371 : 2d_poly_to 644 , 361 : 2d_poly_to 643 , 353
   2d_poly_to 650 , 341 : 2d_poly_to 660 , 336 : 2d_poly_to 659 , 332 : 2d_poly_to 650 , 321
   2d_poly_to 649 , 308 : 2d_poly_to 651 , 297 : 2d_poly_to 647 , 288 : 2d_poly_to 648 , 282
   2d_flood 648,286,0,0,0 : 2d_flood 674,286,0,0,0 : 2d_flood 670,332,0,0,0
   2d_flood 668,328,0,0,0 : 2d_flood 673,333,0,0,0 : 2d_flood 675,293,0,0,0 : 2d_flood 656,325,0,0,0
   2d_pen_color 255,0,0 : 2d_poly_from 644 , 361
   2d_poly_to 644 , 351 : 2d_poly_to 651 , 343 : 2d_poly_to 666 , 333 : 2d_poly_to 675 , 334
   2d_poly_to 685 , 345 : 2d_poly_to 690 , 356 : 2d_poly_to 686 , 365 : 2d_poly_to 682 , 368
   2d_poly_to 670 , 369 : 2d_poly_to 654 , 361 : 2d_poly_to 647 , 359 : 2d_poly_to 644 , 361
   2d_flood 670,334,255,0,0
   2d_poly_from 648,282
   2d_poly_to 648 , 282 : 2d_poly_to 655 , 294 : 2d_poly_to 654 , 318 : 2d_poly_to 663 , 331
   2d_poly_to 667 , 331 : 2d_poly_to 666 , 320 : 2d_poly_to 669 , 306 : 2d_poly_to 673 , 298
   2d_poly_to 674 , 283 : 2d_poly_to 680 , 296 : 2d_poly_to 673 , 314 : 2d_poly_to 670 , 327
   2d_poly_to 672 , 332 : 2d_poly_to 685 , 342 : 2d_poly_to 690 , 357 : 2d_poly_to 692 , 360
   2d_poly_to 707 , 368 : 2d_poly_to 720 , 377 : 2d_poly_to 726 , 390 : 2d_poly_to 730 , 395
   2d_poly_to 737 , 403 : 2d_poly_to 749 , 413 : 2d_poly_to 753 , 415 : 2d_poly_to 758 , 419
   2d_poly_to 762 , 425 : 2d_poly_to 753 , 438 : 2d_poly_to 745 , 431 : 2d_poly_to 737 , 423
   2d_poly_to 728 , 417 : 2d_poly_to 728 , 413 : 2d_poly_to 718 , 411 : 2d_poly_to 714 , 406
   2d_poly_to 707 , 412 : 2d_poly_to 700 , 414 : 2d_poly_to 688 , 407 : 2d_poly_to 677 , 393
   2d_poly_to 685 , 373 : 2d_poly_to 683 , 370 : 2d_poly_to 671 , 371 : 2d_poly_to 644 , 361
   2d_poly_to 643 , 353 : 2d_poly_to 650 , 341 : 2d_poly_to 660 , 336 : 2d_poly_to 659 , 332
   2d_poly_to 650 , 321 : 2d_poly_to 649 , 308 : 2d_poly_to 651 , 297 : 2d_poly_to 647 , 288
   2d_poly_to 648 , 282
   2d_poly_from 644 , 361
   2d_poly_to 644 , 351 : 2d_poly_to 651 , 343 : 2d_poly_to 666 , 333 : 2d_poly_to 675 , 334
   2d_poly_to 685 , 345 : 2d_poly_to 690 , 356 : 2d_poly_to 686 , 365 : 2d_poly_to 682 , 368
   2d_poly_to 670 , 369 : 2d_poly_to 654 , 361 : 2d_poly_to 647 , 359 : 2d_poly_to 644 , 361
   2d_poly_from 694,359
   2d_poly_to 694 , 359 : 2d_poly_to 714 , 374 : 2d_poly_to 723 , 388 : 2d_poly_to 717 , 397
   2d_poly_to 710 , 405 : 2d_poly_to 697 , 411 : 2d_poly_to 686 , 401 : 2d_poly_to 682 , 393
   2d_poly_to 685 , 375 : 2d_poly_to 685 , 369 : 2d_poly_to 694 , 359
   2d_flood 694,362,255,0,0 : 2d_flood 715,397,255,0,0 : 2d_flood 720,397,255,0,0
   2d_poly_from 726 , 393
   2d_poly_to 734 , 401 : 2d_poly_to 729 , 412 : 2d_poly_to 722 , 412 : 2d_poly_to 716 , 405
   2d_poly_to 726 , 393
   2d_poly_from 738,402
   2d_poly_to 746 , 412 : 2d_poly_to 740 , 418 : 2d_poly_to 734 , 420 : 2d_poly_to 731 , 414
   2d_poly_to 733 , 411 : 2d_poly_to 738 , 402
   2d_poly_from 753,416
   2d_poly_to 759 , 422 : 2d_poly_to 750 , 432 : 2d_poly_to 740 , 426 : 2d_poly_to 753 , 416
   2d_poly_from 763 , 425
   2d_poly_to 766 , 427 : 2d_poly_to 760 , 435 : 2d_poly_to 753 , 436 : 2d_poly_to 763 , 425
   2d_poly_from 769,423 : 2d_pen_color 0,255,0
   2d_poly_to 784 , 416 : 2d_poly_to 798 , 416 : 2d_poly_to 818 , 428 : 2d_poly_to 835 , 445
   2d_poly_to 856 , 469 : 2d_poly_to 870 , 493 : 2d_poly_to 863 , 499 : 2d_poly_to 844 , 507
   2d_poly_to 815 , 505 : 2d_poly_to 784 , 494 : 2d_poly_to 766 , 485 : 2d_poly_to 755 , 459
   2d_poly_to 752 , 449 : 2d_poly_to 752 , 441 : 2d_poly_to 758 , 439 : 2d_poly_to 765 , 432
   2d_poly_to 769 , 423
   2d_flood 784,418,255,0,0 : 2d_flood 835,446,255,0,0
   2d_circle 671 , 349 ,6 : 2d_flood 671,349,0,0,0
   2d_pen_color 0,128,0 : 2d_poly_from 703,392
   2d_poly_to 705 , 399 : 2d_poly_to 697 , 411 : 2d_poly_to 685 , 415 : 2d_poly_to 673 , 415
   2d_poly_to 660 , 410 : 2d_poly_to 652 , 408 : 2d_poly_to 639 , 414 : 2d_poly_to 636 , 410
   2d_poly_to 631 , 412 : 2d_poly_to 626 , 410 : 2d_poly_to 618 , 414 : 2d_poly_to 617 , 413
   2d_poly_to 611 , 411 : 2d_poly_to 630 , 403 : 2d_poly_to 648 , 398 : 2d_poly_to 660 , 400
   2d_poly_to 675 , 407 : 2d_poly_to 688 , 409 : 2d_poly_to 693 , 404 : 2d_poly_to 700 , 399
   2d_poly_to 703 , 392
   2d_flood 673,413,0,128,0 :2d_flood 703,395,0,128,0 : 2d_flood 635,408,0,128,0
   2d_poly_from 696,414
   2d_poly_to 704 , 413 : 2d_poly_to 696 , 423 : 2d_poly_to 685 , 432 : 2d_poly_to 686 , 425
   2d_poly_to 678 , 430 : 2d_poly_to 673 , 427 : 2d_poly_to 666 , 430 : 2d_poly_to 666 , 427
   2d_poly_to 648 , 421 : 2d_poly_to 662 , 421 : 2d_poly_to 680 , 421 : 2d_poly_to 693 , 418
   2d_poly_to 696 , 414
   2d_flood 688,425, 0,128,0
   2d_poly_from 722,406
   2d_poly_to 728 , 397 : 2d_poly_to 744 , 397 : 2d_poly_to 751 , 410 : 2d_poly_to 754 , 428
   2d_poly_to 748 , 451 : 2d_poly_to 745 , 477 : 2d_poly_to 744 , 485 : 2d_poly_to 747 , 490
   2d_poly_to 743 , 488 : 2d_poly_to 746 , 499 : 2d_poly_to 742 , 500 : 2d_poly_to 742 , 513
   2d_poly_to 744 , 537 : 2d_poly_to 736 , 521 : 2d_poly_to 738 , 498 : 2d_poly_to 740 , 475
   2d_poly_to 744 , 456 : 2d_poly_to 749 , 430 : 2d_poly_to 746 , 409 : 2d_poly_to 739 , 402
   2d_poly_to 730 , 404 : 2d_poly_to 726 , 408 : 2d_poly_to 724 , 408 : 2d_poly_to 722 , 406
   2d_flood 753,428,0,128,0 : 2d_flood 743,398,0,128,0 : 2d_flood 740,510,0,128,0
   2d_poly_from 759,431
   2d_poly_to 767 , 435 : 2d_poly_to 769 , 441 : 2d_poly_to 771 , 466 : 2d_poly_to 774 , 480
   2d_poly_to 781 , 495 : 2d_poly_to 792 , 503 : 2d_poly_to 799 , 520 : 2d_poly_to 800 , 524
   2d_poly_to 807 , 526 : 2d_poly_to 804 , 532 : 2d_poly_to 819 , 545 : 2d_poly_to 804 , 538
   2d_poly_to 794 , 527 : 2d_poly_to 788 , 518 : 2d_poly_to 787 , 506 : 2d_poly_to 777 , 500
   2d_poly_to 768 , 486 : 2d_poly_to 764 , 460 : 2d_poly_to 762 , 444 : 2d_poly_to 761 , 438
   2d_poly_to 757 , 436 : 2d_poly_to 759 , 431
   2d_flood 772,480,0,128,0 : 2d_flood 778,500,0,128,0 : 2d_flood 810,540,0,128,0
   2d_flood 727,401,0,128,0
END_SUB
rem ============================================================================
SUB Cigale()
   2d_pen_color 0,0,0 : 2d_poly_from 226,191
   2d_poly_to 218 , 197 : 2d_poly_to 207 , 213 : 2d_poly_to 198 , 231 : 2d_poly_to 200 , 233
   2d_poly_to 209 , 233 : 2d_poly_to 218 , 231 : 2d_poly_to 238 , 225 : 2d_poly_to 259 , 226
   2d_poly_to 279 , 239 : 2d_poly_to 262 , 234 : 2d_poly_to 245 , 228 : 2d_poly_to 232 , 229
   2d_poly_to 220 , 233 : 2d_poly_to 225 , 249 : 2d_poly_to 224 , 261 : 2d_poly_to 223 , 274
   2d_poly_to 225 , 285 : 2d_poly_to 215 , 288 : 2d_poly_to 203 , 284 : 2d_poly_to 196 , 277
   2d_poly_to 187 , 267 : 2d_poly_to 183 , 253 : 2d_poly_to 181 , 246 : 2d_poly_to 188 , 239
   2d_poly_to 195 , 238 : 2d_poly_to 196 , 233 : 2d_poly_to 197 , 221 : 2d_poly_to 204 , 208
   2d_poly_to 212 , 196 : 2d_poly_to 226 , 191 : 2d_flood 199,235,0,0,0
   2d_pen_color 0,128,0 : 2d_poly_from 181,246
   2d_poly_to 188 , 240 : 2d_poly_to 196 , 237 : 2d_poly_to 203 , 236 : 2d_poly_to 208 , 235
   2d_poly_to 216 , 237 : 2d_poly_to 223 , 259 : 2d_poly_to 220 , 272 : 2d_poly_to 227 , 283
   2d_poly_to 222 , 288 : 2d_poly_to 215 , 292 : 2d_poly_to 199 , 284 : 2d_poly_to 194 , 276
   2d_poly_to 188 , 270 : 2d_poly_to 184 , 262 : 2d_poly_to 181 , 255 : 2d_poly_to 181 , 250
   2d_poly_to 181 , 246 : 2d_flood 200,240,0,128,0
   2d_pen_color 0,0,0 : 2d_poly_from 210,237
   2d_poly_to 212 , 249 : 2d_poly_to 216 , 256 : 2d_poly_to 220 , 257 : 2d_poly_to 223 , 246
   2d_poly_to 219 , 239 : 2d_poly_to 210 , 237 : 2d_flood 215,245,0,0,0
   2d_poly_from 191,236
   2d_poly_to 198 , 242 : 2d_poly_to 200 , 247 : 2d_poly_to 199 , 255 : 2d_poly_to 191 , 260
   2d_poly_to 186 , 256 : 2d_poly_to 186 , 250 : 2d_poly_to 184 , 243 : 2d_poly_to 191 , 236
   2d_flood 190,245,0,0,0
   2d_pen_color 0,0,255 : 2d_poly_from 180,245
   2d_poly_to 184 , 268 : 2d_poly_to 195 , 281 : 2d_poly_to 192 , 290 : 2d_poly_to 168 , 303
   2d_poly_to 154 , 316 : 2d_poly_to 140 , 353 : 2d_poly_to 113 , 421 : 2d_poly_to 097 , 445
   2d_poly_to 081 , 475 : 2d_poly_to 071 , 490 : 2d_poly_to 038 , 504 : 2d_poly_to 024 , 499
   2d_poly_to 041 , 472 : 2d_poly_to 084 , 393 : 2d_poly_to 101 , 349 : 2d_poly_to 121 , 309
   2d_poly_to 162 , 257 : 2d_poly_to 172 , 253 : 2d_poly_to 180 , 245
   2d_flood 100,397,0,0,255
   2d_pen_color 255,255,0 : 2d_poly_from 162,304
   2d_poly_to 176 , 310 : 2d_poly_to 180 , 321 : 2d_poly_to 176 , 334 : 2d_poly_to 172 , 351
   2d_poly_to 161 , 378 : 2d_poly_to 148 , 412 : 2d_poly_to 130 , 432 : 2d_poly_to 122 , 444
   2d_poly_to 095 , 468 : 2d_poly_to 081 , 474 : 2d_poly_to 109 , 433 : 2d_poly_to 134 , 373
   2d_poly_to 145 , 346 : 2d_poly_to 151 , 324 : 2d_poly_to 155 , 310 : 2d_poly_to 162 , 304
   2d_flood 130,398,255,255,0
   2d_pen_color 255,0,0 : 2d_poly_from 162,257
   2d_poly_to 172 , 274 : 2d_poly_to 188 , 289 : 2d_poly_to 197 , 292 : 2d_poly_to 207 , 300
   2d_poly_to 204 , 309 : 2d_poly_to 199 , 312 : 2d_poly_to 207 , 334 : 2d_poly_to 201 , 344
   2d_poly_to 188 , 346 : 2d_poly_to 174 , 342 : 2d_poly_to 176 , 329 : 2d_poly_to 178 , 320
   2d_poly_to 172 , 311 : 2d_poly_to 148 , 308 : 2d_poly_to 130 , 309 : 2d_poly_to 125 , 309
   2d_poly_to 119 , 304 : 2d_poly_to 113 , 307 : 2d_poly_to 107 , 307 : 2d_poly_to 109 , 292
   2d_poly_to 123 , 278 : 2d_poly_to 131 , 272 : 2d_poly_to 138 , 274 : 2d_poly_to 144 , 267
   2d_poly_to 155 , 261 : 2d_poly_to 162 , 257
   2d_flood 124,283,255,0,0 : 2d_flood 156,288,255,0,0 : 2d_flood 185,308,255,0,0
   2d_flood 168,308,255,0,0 : 2d_flood 160,307,255,0,0
   2d_pen_color 128,0,128 : 2d_poly_from 262,296
   2d_poly_to 263 , 308 : 2d_poly_to 258 , 317 : 2d_poly_to 243 , 328 : 2d_poly_to 235 , 333
   2d_poly_to 213 , 365 : 2d_poly_to 217 , 373 : 2d_poly_to 214 , 386 : 2d_poly_to 207 , 394
   2d_poly_to 201 , 396 : 2d_poly_to 192 , 394 : 2d_poly_to 187 , 401 : 2d_poly_to 186 , 414
   2d_poly_to 181 , 425 : 2d_poly_to 171 , 432 : 2d_poly_to 150 , 424 : 2d_poly_to 147 , 421
   2d_poly_to 147 , 414 : 2d_poly_to 149 , 400 : 2d_poly_to 157 , 383 : 2d_poly_to 160 , 378
   2d_poly_to 168 , 380 : 2d_poly_to 171 , 374 : 2d_poly_to 183 , 358 : 2d_poly_to 199 , 354
   2d_poly_to 214 , 344 : 2d_poly_to 227 , 325 : 2d_poly_to 235 , 318 : 2d_poly_to 244 , 307
   2d_poly_to 251 , 300 : 2d_poly_to 262 , 296
   2d_flood 198,373,128,0,128 : 2d_flood 151,400,128,0,128
   2d_pen_color 255,0,255 : 2d_poly_from 176,378
   2d_poly_to 185 , 375 : 2d_poly_to 188 , 384 : 2d_poly_to 188 , 391 : 2d_poly_to 182 , 396
   2d_poly_to 174 , 397 : 2d_poly_to 169 , 391 : 2d_poly_to 169 , 384 : 2d_poly_to 176 , 378
   2d_flood 174,386,255,0,255
   2d_pen_color 0,128,0 : 2d_poly_from 050,402
   2d_poly_to 055 , 393 : 2d_poly_to 069 , 380 : 2d_poly_to 085 , 369 : 2d_poly_to 104 , 354
   2d_poly_to 120 , 336 : 2d_poly_to 132 , 330 : 2d_poly_to 146 , 327 : 2d_poly_to 153 , 331
   2d_poly_to 155 , 336 : 2d_poly_to 150 , 343 : 2d_poly_to 142 , 351 : 2d_poly_to 132 , 357
   2d_poly_to 119 , 365 : 2d_poly_to 092 , 382 : 2d_poly_to 082 , 384 : 2d_poly_to 066 , 403
   2d_poly_to 067 , 413 : 2d_poly_to 075 , 437 : 2d_poly_to 090 , 473 : 2d_poly_to 101 , 503
   2d_poly_to 104 , 511 : 2d_poly_to 110 , 517 : 2d_poly_to 103 , 520 : 2d_poly_to 093 , 522
   2d_poly_to 097 , 514 : 2d_poly_to 082 , 465 : 2d_poly_to 066 , 429 : 2d_poly_to 060 , 414
   2d_poly_to 055 , 407 : 2d_poly_to 050 , 402
   2d_flood 150,336,0,128,0 : 2d_flood 125,346,0,128,0 : 2d_flood 060,391,0,128,0
   2d_flood 072,435,0,128,0 : 2d_flood 099,512,0,128,0 : 2d_flood 086,470,0,128,0
   2d_poly_from 135,428
   2d_poly_to 147 , 446 : 2d_poly_to 154 , 460 : 2d_poly_to 163 , 477 : 2d_poly_to 171 , 493
   2d_poly_to 177 , 503 : 2d_poly_to 161 , 504 : 2d_poly_to 155 , 488 : 2d_poly_to 150 , 470
   2d_poly_to 143 , 454 : 2d_poly_to 136 , 442 : 2d_poly_to 132 , 436 : 2d_poly_to 131 , 433
   2d_poly_to 135 , 428 : 2d_flood 162,485,0,128,0 : 2d_poly_from 171,318
   2d_poly_to 167 , 338 : 2d_poly_to 166 , 346 : 2d_poly_to 178 , 361 : 2d_poly_to 185 , 376
   2d_poly_to 196 , 386 : 2d_poly_to 193 , 390 : 2d_poly_to 181 , 383 : 2d_poly_to 173 , 371
   2d_poly_to 165 , 357 : 2d_poly_to 159 , 346 : 2d_poly_to 162 , 332 : 2d_poly_to 165 , 322
   2d_poly_to 171 , 318 : 2d_flood 163,346,0,128,0 : 2d_flood 179,369,0,128,0
   2d_flood 182,380,0,128,0 : 2d_flood 174,361,0,128,0 : 2d_flood 144,345,0,128,0
   2d_flood 190,383,0,128,0 : 2d_flood 214,289,0,128,0
END_SUB
rem ============================================================================

Bonjour papydall !

Je n'ai qu'un mot a dire : BRAVO !!!
Je suis bluffé par la qualité de tes images, vraiment superbe ! cheers

Je crois que l'on a découvert un nouveau talent !

Bravo Papydall !

Quelle patiente ! faire un dessin uniquement par programmation, ça doit être long et fastidieux.
Mais le résultat est là.

A+

Nombre de messages : 185 Date d'inscription : 26/11/2012

Bonjour Papydall,
Tu m’épateras toujours. cyclops

Bravo

Très joli ! Et éducatif de surcroit !

Si j'arrive à être aussi patient que Papydall j'essaierai d'adapter le programme pour mon compilateur.

On pourrait aussi utiliser les dessins sous forme de sprites.

Bravo Mr Papydall, j' aimerai avoir autant de patience pour faire de tel choses.
cheers

Bon visiblement, ça vaudra le coup que je teste ça chez moi ce soir.

Bon, en tout cas, continues d'avoir pleins de bonne idées Wink

Salut tout le monde et merci pour vos mots gentils.
Ça me touche profondément.
En toute sincérité, je suis le plus mauvais dessinateur de toute l’humanité (passée, présente et future).
Les dessins de la cigale, de la fourmi et de sa maison ne sont que des adaptations (faites par mes soins) d’un programme du même nom écrit dans un autre langage.
Tout le mérite est donc pour l’auteur du programme d’origine.

Je te décerne un bon point de plus pour ton honnêteté, Papydall.

Il n'en reste pas moins que ça démontre que l'on peut faire un dessin par programmation.

Connais-tu le nom de l'auteur initial de ces dessins ?

A+

Même si ces dessins ne sont pas de toi, toutes mes félicitations pour l'adaptation car c'est quand même un beau boulot !

Voici le code d’origine à partir duquel j’ai fait mon programme.
Ce code est écrit en Basic 256, mais le nom de l’auteur n’y est pas indiqué.
De toutes les façons, j’envoie un grand bravo à cet auteur si jamais il passerait par là.

code:

Code:: graphsize 1000,1000
# la maison
color yellow
poly {763 , 239 ,879 , 355 ,877 , 546 ,641 , 545 ,643 , 353 ,763 , 239}
color blue
poly {899 , 225 ,751 , 225 ,880 , 353 ,898 , 352 ,899 , 225}
rect 706,352,100,200
color purple
rect 878 , 351 ,20,200
color black
rect 620 , 547 ,280,20
color green
poly {622 , 351 ,749 , 224 ,764 , 238 ,644 , 350 ,622 , 351}
# la fourmi
color black
poly {648 , 282 ,655 , 294 ,654 , 318 ,663 , 331 ,667 , 331 ,666 , 320 ,669 , 306 ,673 , 298 ,674 , 283 ,680 , 296 ,673 , 314 ,670 , 327 ,672 , 332 ,685 , 342 ,690 , 357 ,692 , 360 ,707 , 368 ,720 , 377 ,726 , 390 ,730 , 395 ,737 , 403 ,749 , 413 ,753 , 415 ,758 , 419 ,762 , 425 ,753 , 438 ,745 , 431 ,737 , 423 ,728 , 417 ,728 , 413 ,718 , 411 ,714 , 406 ,707 , 412 ,700 , 414 ,688 , 407 ,677 , 393 ,685 , 373 ,683 , 370 ,671 , 371 ,644 , 361 ,643 , 353 ,650 , 341 ,660 , 336 ,659 , 332 ,650 , 321 ,649 , 308 ,651 , 297 ,647 , 288 ,648 , 282}
color red
poly {644 , 361 ,644 , 351 ,651 , 343 ,666 , 333 ,675 , 334 ,685 , 345 ,690 , 356 ,686 , 365 ,682 , 368 ,670 , 369 ,654 , 361 ,647 , 359 ,644 , 361}
poly {694 , 359 ,714 , 374 ,723 , 388 ,717 , 397 ,710 , 405 ,697 , 411 ,686 , 401 ,682 , 393 ,685 , 375 ,685 , 369 ,694 , 359}
poly {726 , 393 ,734 , 401 ,729 , 412 ,722 , 412 ,716 , 405 ,726 , 393 }
poly {738 , 402 ,746 , 412 ,740 , 418 ,734 , 420 ,731 , 414 ,733 , 411 ,738 , 402 }
poly {753 , 416 ,759 , 422 ,750 , 432 ,740 , 426 ,753 , 416 }
poly {763 , 425 ,766 , 427 ,760 , 435 ,753 , 436 ,763 , 425}
poly {769 , 423 ,784 , 416 ,798 , 416 ,818 , 428 ,835 , 445 ,856 , 469 ,870 , 493 ,863 , 499 ,844 , 507 ,815 , 505 ,784 , 494 ,766 , 485 ,755 , 459 ,752 , 449 ,752 , 441 ,758 , 439 ,765 , 432 ,769 , 423 }
color black
circle 671 , 349 ,6
color darkgreen
poly {703 , 392 ,705 , 399 ,697 , 411 ,685 , 415 ,673 , 415 ,660 , 410 ,652 , 408 ,639 , 414 ,636 , 410 ,631 , 412 ,626 , 410 ,618 , 414 ,617 , 413 ,611 , 411 ,630 , 403 ,648 , 398 ,660 , 400 ,675 , 407 ,688 , 409 ,693 , 404 ,700 , 399 ,703 , 392}
poly {696 , 414 ,704 , 413 ,696 , 423 ,685 , 432 ,686 , 425 ,678 , 430 ,673 , 427 ,666 , 430 ,666 , 427 ,648 , 421 ,662 , 421 ,680 , 421 ,693 , 418 ,696 , 414}
poly {722 , 406 ,728 , 397 ,744 , 397 ,751 , 410 ,754 , 428 ,748 , 451 ,745 , 477 ,744 , 485 ,747 , 490 ,743 , 488 ,746 , 499 ,742 , 500 ,742 , 513 ,744 , 537 ,736 , 521 ,738 , 498 ,740 , 475 ,744 , 456 ,749 , 430 ,746 , 409 ,739 , 402 ,730 , 404 ,726 , 408 ,724 , 408 ,722 , 406 }
poly {759 , 431 ,767 , 435 ,769 , 441 ,771 , 466 ,774 , 480 ,781 , 495 ,792 , 503 ,799 , 520 ,800 , 524 ,807 , 526 ,804 , 532 ,819 , 545 ,804 , 538 ,794 , 527 ,788 , 518 ,787 , 506 ,777 , 500 ,768 , 486 ,764 , 460 ,762 , 444 ,761 , 438 ,757 , 436 ,759 , 431}
# la cigale
color black
poly{226 , 191 ,218 , 197 ,207 , 213 ,198 , 231 ,200 , 233 ,209 , 233 ,218 , 231 ,238 , 225 ,259 , 226 ,279 , 239 ,262 , 234 ,245 , 228 ,232 , 229 ,220 , 233 ,225 , 249 ,224 , 261 ,223 , 274 ,225 , 285 ,215 , 288 ,203 , 284 ,196 , 277 ,187 , 267 ,183 , 253 ,181 , 246 ,188 , 239 ,195 , 238 ,196 , 233 ,197 , 221 ,204 , 208 ,212 , 196 ,226 , 191}
color darkgreen
poly {181 , 246 ,188 , 240 ,196 , 237 ,203 , 236 ,208 , 235 ,216 , 237 ,223 , 259 ,220 , 272 ,227 , 283 ,222 , 288 ,215 , 292 ,199 , 284 ,194 , 276 ,188 , 270 ,184 , 262 ,181 , 255 ,181 , 250 ,181 , 246 }
color black
poly {210 , 237 ,212 , 249 ,216 , 256 ,220 , 257 ,223 , 246 ,219 , 239 ,210 , 237}
poly {191 , 236 ,198 , 242 ,200 , 247 ,199 , 255 ,191 , 260 ,186 , 256 ,186 , 250 ,184 , 243 ,191 , 236}
color blue
poly {180 , 245 ,184 , 268 ,195 , 281 ,192 , 290 ,168 , 303 ,154 , 316 ,140 , 353 ,113 , 421 ,97 , 445 ,81 , 475 ,71 , 490 ,38 , 504 ,24 , 499 ,41 , 472 ,84 , 393 ,101 , 349 ,121 , 309 ,162 , 257 ,172 , 253 ,180 , 245}
color yellow
poly {162 , 304 ,176 , 310 ,180 , 321 ,176 , 334 ,172 , 351 ,161 , 378 ,148 , 412 ,130 , 432 ,122 , 444 ,95 , 468 ,81 , 474 ,109 , 433 ,134 , 373 ,145 , 346 ,151 , 324 ,155 , 310 ,162 , 304}
color red
poly {162 , 257 ,172 , 274 ,188 , 289 ,197 , 292 ,207 , 300 ,204 , 309 ,199 , 312 ,207 , 334 ,201 , 344 ,188 , 346 ,174 , 342 ,176 , 329 ,178 , 320 ,172 , 311 ,148 , 308 ,130 , 309 ,125 , 309 ,119 , 304 ,113 , 307 ,107 , 307 ,109 , 292 ,123 , 278 ,131 , 272 ,138 , 274 ,144 , 267 ,155 , 261 ,162 , 257}
color darkpurple
poly {262 , 296 ,263 , 308 ,258 , 317 ,243 , 328 ,235 , 333 ,213 , 365 ,217 , 373 ,214 , 386 ,207 , 394 ,201 , 396 ,192 , 394 ,187 , 401 ,186 , 414 ,181 , 425 ,171 , 432 ,150 , 424 ,147 , 421 ,147 , 414 ,149 , 400 ,157 , 383 ,160 , 378 ,168 , 380 ,171 , 374 ,183 , 358 ,199 , 354 ,214 , 344 ,227 , 325 ,235 , 318 ,244 , 307 ,251 , 300 ,262 , 296}
color purple
poly{176 , 378 ,185 , 375 ,188 , 384 ,188 , 391 ,182 , 396 ,174 , 397 ,169 , 391 ,169 , 384 ,176 , 378}
color darkgreen
poly {50 , 402 ,55 , 393 ,69 , 380 ,85 , 369 ,104 , 354 ,120 , 336 ,132 , 330 ,146 , 327 ,153 , 331 ,155 , 336 ,150 , 343 ,142 , 351 ,132 , 357 ,119 , 365 ,92 , 382 ,82 , 384 ,66 , 403 ,67 , 413 ,75 , 437 ,90 , 473 ,101 , 503 ,104 , 511 ,110 , 517 ,103 , 520 ,93 , 522 ,97 , 514 ,82 , 465 ,66 , 429 ,60 , 414 ,55 , 407 ,50 , 402}
poly {135 , 428 ,147 , 446 ,154 , 460 ,163 , 477 ,171 , 493 ,177 , 503 ,161 , 504 ,155 , 488 ,150 , 470 ,143 , 454 ,136 , 442 ,132 , 436 ,131 , 433 ,135 , 428}
poly {171 , 318 ,167 , 338 ,166 , 346 ,178 , 361 ,185 , 376 ,196 , 386 ,193 , 390 ,181 , 383 ,173 , 371 ,165 , 357 ,159 , 346 ,162 , 332 ,165 , 322 ,171 , 318}

color black
font "arial", 30,80
text 200,0, "La Cigale et la Fourmi"
font "arial", 14,50
   text 300,90, "La Cigale, ayant chanté"
   text 300,120, "Tout l'été,"
   text 300,150, "Se trouva fort dépourvue"
   text 300,180, "Quand la bise fut venue:"
   text 300,210, "Pas un seul petit morceau,"
   text 300,240, "De mouche ou de vermisseau."
   text 300,270, "Elle alla crier famine"
   text 300,300, "Chez la Fourmi sa voisine,"
   text 300,330, "La priant de lui prêter"
   text 300,360, "Quelque grain pour subsister"
   text 300,390, "Jusqu'à la saison nouvelle."
   text 300,420, "«Je vous paierai, lui dit-elle"
   text 300,450, "Avant l'Oût, foi d'animal,"
   text 300,480, "Intérêt et principal. »"
   text 300,510, "La Fourmi n'est pas prêteuse :"
   text 300,540, "C'est là son moindre défaut."
   text 300,570, "Que faisiez-vous au temps chaud ?"
   text 300,600, "Dit-elle à cette emprunteuse."
   text 300,630, "- Nuit et jour à tout venant"
   text 300,660, "Je chantais, ne vous déplaise."
   text 300,690, "- Vous chantiez ? j'en suis fort aise."
   text 300,720, "Eh bien! dansez maintenant."
font "arial", 20,70
text 630,690,"Jean de La Fontaine"
rect 200,60, 420,3
rect 625,720, 280,3

Voici ce que ça donne:

La prise de coordonnées pour faire ce type de dessin est assez simple à faire (mémorisation et tracé des points d'un polygone qui a déjà était faite entre autre par JL35). Après, il faut quand même l'idée et le talent pour faire le dessin Wink

Merci d'avoir donné les sources originales et j'espère que tu auras encore plein de choses sympas à adapter.

Invité

Bon résultat, j'en rajoute pas sinon Papydall va se cacher.

Pour recopier des images j'avais 2/3 programmes. J'ai retrouvé celui-ci, mais les prises d'écrans ont étés remplacées par de la pub depuis.

Comme je n'ai qu'une partie des outils pour publier (je ne sais pas pourquoi?), je mets le lien directe sans:
https://panoramic.1fr1.net/t1395-pentographe-icone?highlight=icone

Apparemment c'est cliquable.

Cosmos70 a écrit:: Bon résultat, j'en rajoute pas sinon Papydall va se cacher.

Me cacher

Invité

Je me demande si j'ai bien fait de publier ce lien. Ce que je voulais c'était seulement montrer une méthode, car je crois que pour ce programme il s'agit di'icone.

Le principe est de charger une image pour suivre les contours. et de copier les coordonnées ou les commandes dans un memo. Je suis bref car je n'ai pas mes lunettes, et le forum écris une lettre à la secnde, et je ne vois pas trop ce que j'écris. Le programme est juste une idée pour le refaire.

J'ai récupéré le programme original. Je pense pouvoir l'adapter à mon compilateur en utilisant l'instruction DRAW de FreeBasic.

Avantages :

- toutes les commandes graphiques sont codées dans une chaîne de caractères
- on peut appliquer des rotations ou des changements d'échelle
- les couleurs sont en 32 bits
- on peut gérer la transparence

Cette instruction sera présentée dans mon prochain article. Le programme devra attendre un peu car j'ai encore des choses à rédiger pour cet article.

Ce n'est pas très grave, ça avance déjà pas mal. On peut attendre un peu Wink

Le programme original est tiré de ce site.
Il y en d'autres programmes tout aussi bons les uns que les autres.

Nouvelle version

Code:: rem ============================================================================
rem La Cigale et la Fourmi : Nouvelle version
rem ============================================================================
Init()
La_Cigale_Et_La_Fourmi_Nouvelle_Version()
Maison() : Fourmi() : Cigale()
END
rem ============================================================================
SUB Init()
   dim t$
   width 0,1000 : height 0,800
   alpha 10 : left 10,200 : top 10,010 : font_bold 10 : font_underline 10 : font_size 10,24 : font_color 10,255,0,0
   alpha 20 : left 20,300 : top 20,060 : font_bold 20 : font_size 20,12 : font_color 20,0,0,255
   alpha 30 : left 30,200 : top 30,620 : font_bold 30 : font_underline 30 : font_size 30,24 : font_color 30,255,0,0

END_SUB
rem ============================================================================
SUB La_Cigale_Et_La_Fourmi_Nouvelle_Version()
   dim_local t$ , nl$
   nl$ = chr$(13)
   t$ = "La Cigale et la Foumi (Nouvelle version)" +nl$+nl$
   caption 10,t$
   t$ = ""
   t$ = t$ + "La Cigale reine du hit parade" + nl$
   t$ = t$ + "Gazouilla durant tout l'été" + nl$
   t$ = t$ + "Mais un jour ce fut la panade" + nl$
   t$ = t$ + "Et elle n'eut plus rien à becqueter." + nl$
   t$ = t$ + "Quand se pointa l'horrible hiver" + nl$
   t$ = t$ + "Elle n'avait même pas un sandwich" + nl$
   t$ = t$ + "A faire la manche dans l'courant d'air" + nl$
   t$ = t$ + "La pauvre se caillait les miches." + nl$ + nl$

   t$ = t$ + "La fourmi qui était sa voisine" + nl$
   t$ = t$ + "Avait de tout, même du caviar." + nl$
   t$ = t$ + "Malheureusement cette radine" + nl$
   t$ = t$ + "Lui offrit même pas un carambar." + nl$
   t$ = t$ + "- je vous paierai, dit la cigale," + nl$
   t$ = t$ + "J'ai du blé sur un compte en Suisse." + nl$
   t$ = t$ + "L'autre lui dit : Z'aurez peau de balle." + nl$
   t$ = t$ + "Tout en grignotant une saucisse." + nl$

   t$ = t$ + "-Que faisiez vous l'été dernier? " + nl$
   t$ = t$ + "- Je chantais sans penser au pèze." + nl$
   t$ = t$ + "- Vous chantiez gratos, pauvre niaise" + nl$
   t$ = t$ + "Eh bien guinchez maintenant!" + nl$ + nl$
   caption 20,t$
   t$ = "Pierre PERRET (Le petit Perret des Fables)"
   caption 30,t$
END_SUB
rem ============================================================================
SUB Maison()
   2d_pen_color 255,255,0 : 2d_poly_from 763,239
   2d_poly_to 879,355 : 2d_poly_to 877,546 : 2d_poly_to 641,545 : 2d_poly_to 643,353 : 2d_poly_to 763,239
   2d_flood 763,250,255,255,0
   2d_pen_color 0,0,255 : 2d_poly_from 899 , 225
   2d_poly_to 751 , 225 : 2d_poly_to 880 , 353 : 2d_poly_to 898 , 352 : 2d_poly_to 899 , 225
   2d_flood 895,230,0,0,255
   2d_fill_color 000,000,255 : 2d_rectangle 706,352,806,552
   2d_fill_color 255,000,255 : 2d_rectangle 878,351,898,551
   2d_fill_color 000,000,000 : 2d_rectangle 620,547,900,567
   2d_pen_color 0,255,0 : 2d_poly_from 622 , 351
   2d_poly_to 749 , 224 : 2d_poly_to 764 , 238 : 2d_poly_to 644 , 350 : 2d_poly_to 622 , 351
   2d_flood 624,350, 000,255,000
END_SUB
rem ============================================================================
SUB Fourmi()
   2d_pen_color 0,0,0 : 2d_poly_from 648,282
   2d_poly_to 655 , 294 : 2d_poly_to 654 , 318 : 2d_poly_to 663 , 331 : 2d_poly_to 667 , 331
   2d_poly_to 666 , 320 : 2d_poly_to 669 , 306 : 2d_poly_to 673 , 298 : 2d_poly_to 674 , 283
   2d_poly_to 680 , 296 : 2d_poly_to 673 , 314 : 2d_poly_to 670 , 327 : 2d_poly_to 672 , 332
   2d_poly_to 685 , 342 : 2d_poly_to 690 , 357 : 2d_poly_to 692 , 360 : 2d_poly_to 707 , 368
   2d_poly_to 720 , 377 : 2d_poly_to 726 , 390 : 2d_poly_to 730 , 395 : 2d_poly_to 737 , 403
   2d_poly_to 749 , 413 : 2d_poly_to 753 , 415 : 2d_poly_to 758 , 419 : 2d_poly_to 762 , 425
   2d_poly_to 753 , 438 : 2d_poly_to 745 , 431 : 2d_poly_to 737 , 423 : 2d_poly_to 728 , 417
   2d_poly_to 728 , 413 : 2d_poly_to 718 , 411 : 2d_poly_to 714 , 406 : 2d_poly_to 707 , 412
   2d_poly_to 700 , 414 : 2d_poly_to 688 , 407 : 2d_poly_to 677 , 393 : 2d_poly_to 685 , 373
   2d_poly_to 683 , 370 : 2d_poly_to 671 , 371 : 2d_poly_to 644 , 361 : 2d_poly_to 643 , 353
   2d_poly_to 650 , 341 : 2d_poly_to 660 , 336 : 2d_poly_to 659 , 332 : 2d_poly_to 650 , 321
   2d_poly_to 649 , 308 : 2d_poly_to 651 , 297 : 2d_poly_to 647 , 288 : 2d_poly_to 648 , 282
   2d_flood 648,286,0,0,0 : 2d_flood 674,286,0,0,0 : 2d_flood 670,332,0,0,0
   2d_flood 668,328,0,0,0 : 2d_flood 673,333,0,0,0 : 2d_flood 675,293,0,0,0 : 2d_flood 656,325,0,0,0
   2d_pen_color 255,0,0 : 2d_poly_from 644 , 361
   2d_poly_to 644 , 351 : 2d_poly_to 651 , 343 : 2d_poly_to 666 , 333 : 2d_poly_to 675 , 334
   2d_poly_to 685 , 345 : 2d_poly_to 690 , 356 : 2d_poly_to 686 , 365 : 2d_poly_to 682 , 368
   2d_poly_to 670 , 369 : 2d_poly_to 654 , 361 : 2d_poly_to 647 , 359 : 2d_poly_to 644 , 361
   2d_flood 670,334,255,0,0
   2d_poly_from 648,282
   2d_poly_to 648 , 282 : 2d_poly_to 655 , 294 : 2d_poly_to 654 , 318 : 2d_poly_to 663 , 331
   2d_poly_to 667 , 331 : 2d_poly_to 666 , 320 : 2d_poly_to 669 , 306 : 2d_poly_to 673 , 298
   2d_poly_to 674 , 283 : 2d_poly_to 680 , 296 : 2d_poly_to 673 , 314 : 2d_poly_to 670 , 327
   2d_poly_to 672 , 332 : 2d_poly_to 685 , 342 : 2d_poly_to 690 , 357 : 2d_poly_to 692 , 360
   2d_poly_to 707 , 368 : 2d_poly_to 720 , 377 : 2d_poly_to 726 , 390 : 2d_poly_to 730 , 395
   2d_poly_to 737 , 403 : 2d_poly_to 749 , 413 : 2d_poly_to 753 , 415 : 2d_poly_to 758 , 419
   2d_poly_to 762 , 425 : 2d_poly_to 753 , 438 : 2d_poly_to 745 , 431 : 2d_poly_to 737 , 423
   2d_poly_to 728 , 417 : 2d_poly_to 728 , 413 : 2d_poly_to 718 , 411 : 2d_poly_to 714 , 406
   2d_poly_to 707 , 412 : 2d_poly_to 700 , 414 : 2d_poly_to 688 , 407 : 2d_poly_to 677 , 393
   2d_poly_to 685 , 373 : 2d_poly_to 683 , 370 : 2d_poly_to 671 , 371 : 2d_poly_to 644 , 361
   2d_poly_to 643 , 353 : 2d_poly_to 650 , 341 : 2d_poly_to 660 , 336 : 2d_poly_to 659 , 332
   2d_poly_to 650 , 321 : 2d_poly_to 649 , 308 : 2d_poly_to 651 , 297 : 2d_poly_to 647 , 288
   2d_poly_to 648 , 282
   2d_poly_from 644 , 361
   2d_poly_to 644 , 351 : 2d_poly_to 651 , 343 : 2d_poly_to 666 , 333 : 2d_poly_to 675 , 334
   2d_poly_to 685 , 345 : 2d_poly_to 690 , 356 : 2d_poly_to 686 , 365 : 2d_poly_to 682 , 368
   2d_poly_to 670 , 369 : 2d_poly_to 654 , 361 : 2d_poly_to 647 , 359 : 2d_poly_to 644 , 361
   2d_poly_from 694,359
   2d_poly_to 694 , 359 : 2d_poly_to 714 , 374 : 2d_poly_to 723 , 388 : 2d_poly_to 717 , 397
   2d_poly_to 710 , 405 : 2d_poly_to 697 , 411 : 2d_poly_to 686 , 401 : 2d_poly_to 682 , 393
   2d_poly_to 685 , 375 : 2d_poly_to 685 , 369 : 2d_poly_to 694 , 359
   2d_flood 694,362,255,0,0 : 2d_flood 715,397,255,0,0 : 2d_flood 720,397,255,0,0
   2d_poly_from 726 , 393
   2d_poly_to 734 , 401 : 2d_poly_to 729 , 412 : 2d_poly_to 722 , 412 : 2d_poly_to 716 , 405
   2d_poly_to 726 , 393
   2d_poly_from 738,402
   2d_poly_to 746 , 412 : 2d_poly_to 740 , 418 : 2d_poly_to 734 , 420 : 2d_poly_to 731 , 414
   2d_poly_to 733 , 411 : 2d_poly_to 738 , 402
   2d_poly_from 753,416
   2d_poly_to 759 , 422 : 2d_poly_to 750 , 432 : 2d_poly_to 740 , 426 : 2d_poly_to 753 , 416
   2d_poly_from 763 , 425
   2d_poly_to 766 , 427 : 2d_poly_to 760 , 435 : 2d_poly_to 753 , 436 : 2d_poly_to 763 , 425
   2d_poly_from 769,423 : 2d_pen_color 0,255,0
   2d_poly_to 784 , 416 : 2d_poly_to 798 , 416 : 2d_poly_to 818 , 428 : 2d_poly_to 835 , 445
   2d_poly_to 856 , 469 : 2d_poly_to 870 , 493 : 2d_poly_to 863 , 499 : 2d_poly_to 844 , 507
   2d_poly_to 815 , 505 : 2d_poly_to 784 , 494 : 2d_poly_to 766 , 485 : 2d_poly_to 755 , 459
   2d_poly_to 752 , 449 : 2d_poly_to 752 , 441 : 2d_poly_to 758 , 439 : 2d_poly_to 765 , 432
   2d_poly_to 769 , 423
   2d_flood 784,418,255,0,0 : 2d_flood 835,446,255,0,0
   2d_circle 671 , 349 ,6 : 2d_flood 671,349,0,0,0
   2d_pen_color 0,128,0 : 2d_poly_from 703,392
   2d_poly_to 705 , 399 : 2d_poly_to 697 , 411 : 2d_poly_to 685 , 415 : 2d_poly_to 673 , 415
   2d_poly_to 660 , 410 : 2d_poly_to 652 , 408 : 2d_poly_to 639 , 414 : 2d_poly_to 636 , 410
   2d_poly_to 631 , 412 : 2d_poly_to 626 , 410 : 2d_poly_to 618 , 414 : 2d_poly_to 617 , 413
   2d_poly_to 611 , 411 : 2d_poly_to 630 , 403 : 2d_poly_to 648 , 398 : 2d_poly_to 660 , 400
   2d_poly_to 675 , 407 : 2d_poly_to 688 , 409 : 2d_poly_to 693 , 404 : 2d_poly_to 700 , 399
   2d_poly_to 703 , 392
   2d_flood 673,413,0,128,0 :2d_flood 703,395,0,128,0 : 2d_flood 635,408,0,128,0
   2d_poly_from 696,414
   2d_poly_to 704 , 413 : 2d_poly_to 696 , 423 : 2d_poly_to 685 , 432 : 2d_poly_to 686 , 425
   2d_poly_to 678 , 430 : 2d_poly_to 673 , 427 : 2d_poly_to 666 , 430 : 2d_poly_to 666 , 427
   2d_poly_to 648 , 421 : 2d_poly_to 662 , 421 : 2d_poly_to 680 , 421 : 2d_poly_to 693 , 418
   2d_poly_to 696 , 414
   2d_flood 688,425, 0,128,0
   2d_poly_from 722,406
   2d_poly_to 728 , 397 : 2d_poly_to 744 , 397 : 2d_poly_to 751 , 410 : 2d_poly_to 754 , 428
   2d_poly_to 748 , 451 : 2d_poly_to 745 , 477 : 2d_poly_to 744 , 485 : 2d_poly_to 747 , 490
   2d_poly_to 743 , 488 : 2d_poly_to 746 , 499 : 2d_poly_to 742 , 500 : 2d_poly_to 742 , 513
   2d_poly_to 744 , 537 : 2d_poly_to 736 , 521 : 2d_poly_to 738 , 498 : 2d_poly_to 740 , 475
   2d_poly_to 744 , 456 : 2d_poly_to 749 , 430 : 2d_poly_to 746 , 409 : 2d_poly_to 739 , 402
   2d_poly_to 730 , 404 : 2d_poly_to 726 , 408 : 2d_poly_to 724 , 408 : 2d_poly_to 722 , 406
   2d_flood 753,428,0,128,0 : 2d_flood 743,398,0,128,0 : 2d_flood 740,510,0,128,0
   2d_poly_from 759,431
   2d_poly_to 767 , 435 : 2d_poly_to 769 , 441 : 2d_poly_to 771 , 466 : 2d_poly_to 774 , 480
   2d_poly_to 781 , 495 : 2d_poly_to 792 , 503 : 2d_poly_to 799 , 520 : 2d_poly_to 800 , 524
   2d_poly_to 807 , 526 : 2d_poly_to 804 , 532 : 2d_poly_to 819 , 545 : 2d_poly_to 804 , 538
   2d_poly_to 794 , 527 : 2d_poly_to 788 , 518 : 2d_poly_to 787 , 506 : 2d_poly_to 777 , 500
   2d_poly_to 768 , 486 : 2d_poly_to 764 , 460 : 2d_poly_to 762 , 444 : 2d_poly_to 761 , 438
   2d_poly_to 757 , 436 : 2d_poly_to 759 , 431
   2d_flood 772,480,0,128,0 : 2d_flood 778,500,0,128,0 : 2d_flood 810,540,0,128,0
   2d_flood 727,401,0,128,0
END_SUB
rem ============================================================================
SUB Cigale()
   2d_pen_color 0,0,0 : 2d_poly_from 226,191
   2d_poly_to 218 , 197 : 2d_poly_to 207 , 213 : 2d_poly_to 198 , 231 : 2d_poly_to 200 , 233
   2d_poly_to 209 , 233 : 2d_poly_to 218 , 231 : 2d_poly_to 238 , 225 : 2d_poly_to 259 , 226
   2d_poly_to 279 , 239 : 2d_poly_to 262 , 234 : 2d_poly_to 245 , 228 : 2d_poly_to 232 , 229
   2d_poly_to 220 , 233 : 2d_poly_to 225 , 249 : 2d_poly_to 224 , 261 : 2d_poly_to 223 , 274
   2d_poly_to 225 , 285 : 2d_poly_to 215 , 288 : 2d_poly_to 203 , 284 : 2d_poly_to 196 , 277
   2d_poly_to 187 , 267 : 2d_poly_to 183 , 253 : 2d_poly_to 181 , 246 : 2d_poly_to 188 , 239
   2d_poly_to 195 , 238 : 2d_poly_to 196 , 233 : 2d_poly_to 197 , 221 : 2d_poly_to 204 , 208
   2d_poly_to 212 , 196 : 2d_poly_to 226 , 191 : 2d_flood 199,235,0,0,0
   2d_pen_color 0,128,0 : 2d_poly_from 181,246
   2d_poly_to 188 , 240 : 2d_poly_to 196 , 237 : 2d_poly_to 203 , 236 : 2d_poly_to 208 , 235
   2d_poly_to 216 , 237 : 2d_poly_to 223 , 259 : 2d_poly_to 220 , 272 : 2d_poly_to 227 , 283
   2d_poly_to 222 , 288 : 2d_poly_to 215 , 292 : 2d_poly_to 199 , 284 : 2d_poly_to 194 , 276
   2d_poly_to 188 , 270 : 2d_poly_to 184 , 262 : 2d_poly_to 181 , 255 : 2d_poly_to 181 , 250
   2d_poly_to 181 , 246 : 2d_flood 200,240,0,128,0
   2d_pen_color 0,0,0 : 2d_poly_from 210,237
   2d_poly_to 212 , 249 : 2d_poly_to 216 , 256 : 2d_poly_to 220 , 257 : 2d_poly_to 223 , 246
   2d_poly_to 219 , 239 : 2d_poly_to 210 , 237 : 2d_flood 215,245,0,0,0
   2d_poly_from 191,236
   2d_poly_to 198 , 242 : 2d_poly_to 200 , 247 : 2d_poly_to 199 , 255 : 2d_poly_to 191 , 260
   2d_poly_to 186 , 256 : 2d_poly_to 186 , 250 : 2d_poly_to 184 , 243 : 2d_poly_to 191 , 236
   2d_flood 190,245,0,0,0
   2d_pen_color 0,0,255 : 2d_poly_from 180,245
   2d_poly_to 184 , 268 : 2d_poly_to 195 , 281 : 2d_poly_to 192 , 290 : 2d_poly_to 168 , 303
   2d_poly_to 154 , 316 : 2d_poly_to 140 , 353 : 2d_poly_to 113 , 421 : 2d_poly_to 097 , 445
   2d_poly_to 081 , 475 : 2d_poly_to 071 , 490 : 2d_poly_to 038 , 504 : 2d_poly_to 024 , 499
   2d_poly_to 041 , 472 : 2d_poly_to 084 , 393 : 2d_poly_to 101 , 349 : 2d_poly_to 121 , 309
   2d_poly_to 162 , 257 : 2d_poly_to 172 , 253 : 2d_poly_to 180 , 245
   2d_flood 100,397,0,0,255
   2d_pen_color 255,255,0 : 2d_poly_from 162,304
   2d_poly_to 176 , 310 : 2d_poly_to 180 , 321 : 2d_poly_to 176 , 334 : 2d_poly_to 172 , 351
   2d_poly_to 161 , 378 : 2d_poly_to 148 , 412 : 2d_poly_to 130 , 432 : 2d_poly_to 122 , 444
   2d_poly_to 095 , 468 : 2d_poly_to 081 , 474 : 2d_poly_to 109 , 433 : 2d_poly_to 134 , 373
   2d_poly_to 145 , 346 : 2d_poly_to 151 , 324 : 2d_poly_to 155 , 310 : 2d_poly_to 162 , 304
   2d_flood 130,398,255,255,0
   2d_pen_color 255,0,0 : 2d_poly_from 162,257
   2d_poly_to 172 , 274 : 2d_poly_to 188 , 289 : 2d_poly_to 197 , 292 : 2d_poly_to 207 , 300
   2d_poly_to 204 , 309 : 2d_poly_to 199 , 312 : 2d_poly_to 207 , 334 : 2d_poly_to 201 , 344
   2d_poly_to 188 , 346 : 2d_poly_to 174 , 342 : 2d_poly_to 176 , 329 : 2d_poly_to 178 , 320
   2d_poly_to 172 , 311 : 2d_poly_to 148 , 308 : 2d_poly_to 130 , 309 : 2d_poly_to 125 , 309
   2d_poly_to 119 , 304 : 2d_poly_to 113 , 307 : 2d_poly_to 107 , 307 : 2d_poly_to 109 , 292
   2d_poly_to 123 , 278 : 2d_poly_to 131 , 272 : 2d_poly_to 138 , 274 : 2d_poly_to 144 , 267
   2d_poly_to 155 , 261 : 2d_poly_to 162 , 257
   2d_flood 124,283,255,0,0 : 2d_flood 156,288,255,0,0 : 2d_flood 185,308,255,0,0
   2d_flood 168,308,255,0,0 : 2d_flood 160,307,255,0,0
   2d_pen_color 128,0,128 : 2d_poly_from 262,296
   2d_poly_to 263 , 308 : 2d_poly_to 258 , 317 : 2d_poly_to 243 , 328 : 2d_poly_to 235 , 333
   2d_poly_to 213 , 365 : 2d_poly_to 217 , 373 : 2d_poly_to 214 , 386 : 2d_poly_to 207 , 394
   2d_poly_to 201 , 396 : 2d_poly_to 192 , 394 : 2d_poly_to 187 , 401 : 2d_poly_to 186 , 414
   2d_poly_to 181 , 425 : 2d_poly_to 171 , 432 : 2d_poly_to 150 , 424 : 2d_poly_to 147 , 421
   2d_poly_to 147 , 414 : 2d_poly_to 149 , 400 : 2d_poly_to 157 , 383 : 2d_poly_to 160 , 378
   2d_poly_to 168 , 380 : 2d_poly_to 171 , 374 : 2d_poly_to 183 , 358 : 2d_poly_to 199 , 354
   2d_poly_to 214 , 344 : 2d_poly_to 227 , 325 : 2d_poly_to 235 , 318 : 2d_poly_to 244 , 307
   2d_poly_to 251 , 300 : 2d_poly_to 262 , 296
   2d_flood 198,373,128,0,128 : 2d_flood 151,400,128,0,128
   2d_pen_color 255,0,255 : 2d_poly_from 176,378
   2d_poly_to 185 , 375 : 2d_poly_to 188 , 384 : 2d_poly_to 188 , 391 : 2d_poly_to 182 , 396
   2d_poly_to 174 , 397 : 2d_poly_to 169 , 391 : 2d_poly_to 169 , 384 : 2d_poly_to 176 , 378
   2d_flood 174,386,255,0,255
   2d_pen_color 0,128,0 : 2d_poly_from 050,402
   2d_poly_to 055 , 393 : 2d_poly_to 069 , 380 : 2d_poly_to 085 , 369 : 2d_poly_to 104 , 354
   2d_poly_to 120 , 336 : 2d_poly_to 132 , 330 : 2d_poly_to 146 , 327 : 2d_poly_to 153 , 331
   2d_poly_to 155 , 336 : 2d_poly_to 150 , 343 : 2d_poly_to 142 , 351 : 2d_poly_to 132 , 357
   2d_poly_to 119 , 365 : 2d_poly_to 092 , 382 : 2d_poly_to 082 , 384 : 2d_poly_to 066 , 403
   2d_poly_to 067 , 413 : 2d_poly_to 075 , 437 : 2d_poly_to 090 , 473 : 2d_poly_to 101 , 503
   2d_poly_to 104 , 511 : 2d_poly_to 110 , 517 : 2d_poly_to 103 , 520 : 2d_poly_to 093 , 522
   2d_poly_to 097 , 514 : 2d_poly_to 082 , 465 : 2d_poly_to 066 , 429 : 2d_poly_to 060 , 414
   2d_poly_to 055 , 407 : 2d_poly_to 050 , 402
   2d_flood 150,336,0,128,0 : 2d_flood 125,346,0,128,0 : 2d_flood 060,391,0,128,0
   2d_flood 072,435,0,128,0 : 2d_flood 099,512,0,128,0 : 2d_flood 086,470,0,128,0
   2d_poly_from 135,428
   2d_poly_to 147 , 446 : 2d_poly_to 154 , 460 : 2d_poly_to 163 , 477 : 2d_poly_to 171 , 493
   2d_poly_to 177 , 503 : 2d_poly_to 161 , 504 : 2d_poly_to 155 , 488 : 2d_poly_to 150 , 470
   2d_poly_to 143 , 454 : 2d_poly_to 136 , 442 : 2d_poly_to 132 , 436 : 2d_poly_to 131 , 433
   2d_poly_to 135 , 428 : 2d_flood 162,485,0,128,0 : 2d_poly_from 171,318
   2d_poly_to 167 , 338 : 2d_poly_to 166 , 346 : 2d_poly_to 178 , 361 : 2d_poly_to 185 , 376
   2d_poly_to 196 , 386 : 2d_poly_to 193 , 390 : 2d_poly_to 181 , 383 : 2d_poly_to 173 , 371
   2d_poly_to 165 , 357 : 2d_poly_to 159 , 346 : 2d_poly_to 162 , 332 : 2d_poly_to 165 , 322
   2d_poly_to 171 , 318 : 2d_flood 163,346,0,128,0 : 2d_flood 179,369,0,128,0
   2d_flood 182,380,0,128,0 : 2d_flood 174,361,0,128,0 : 2d_flood 144,345,0,128,0
   2d_flood 190,383,0,128,0 : 2d_flood 214,289,0,128,0
END_SUB
rem ============================================================================

C' est bien Papydall, tu connais tes classiques !
cheers

il faut vivre avec son temps... lol!

Après Il faudrait juste rajouter des petits boutons pour changer le texte en conséquence et demander à Pedro (ou à notre ami Google) les versions dans les différentes langues Very Happy

Sujet: Re: La Cigale et la Fourmi Lun 7 Sep 2015 - 10:56

papydall a écrit:: Voici le code d’origine à partir duquel j’ai fait mon programme.
Ce code est écrit en Basic 256

J'ai regardé ce Basic256. On le trouve ici : www.basic256.org/

Ce n'est pas mal mais c'est une usine à gaz. Il installe un nombre énorme de DLLs.

Moins bien que Panoramic à mon avis mais il y a des instructions intéressantes dont on peut s'inspirer, notamment pour les sprites.

A propos de sprites, voilà où j'en suis actuellement : encore loin des insectes, mais on peut faire tourner les sprites et modifier leur taille (ici, seul les coordonnées du sprite horizontal à droite ont été précisées : pour les autres, on a seulement spécifié l'angle de rotation et le facteur d'échelle). Les données sont fournies sous forme de DATA et une fonction crée la chaîne de caractères à passer à l'instruction fb_draw.

La Cigale et la Fourmi Sprite10

Sujet: Re: La Cigale et la Fourmi Lun 7 Sep 2015 - 11:54

Bon courage Jean Wink

J'espère que l'on pourra ensuite directement passer par le chargement d'images et que le passage par les chaines pourra se faire de façon "Transparente" mais du coup je fais court car c'est un peu hors sujet.
Je pense qu'il faudrait que Jack créé un section à part pour ce qui devient ton langage dérivé de Free Basic et de Panoramic ou même peut être faudrait-il que tu lui lui créais un forum dédié ?

Sujet: Re: La Cigale et la Fourmi Lun 7 Sep 2015 - 11:56

Bonjour Jean.

C’est très intéressant tout ça !
Bonne continuation.

» La fourmi de Langton
» Compilateur FBPano