FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» I Love You
par JL35 Hier à 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

  La Cigale et la Fourmi

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 2:05

sunny  sunny  sunny  flower  flower  flower  sunny  sunny  sunny

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 ============================================================================

sunny sunny sunny flower flower flower sunny sunny sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 8:02

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5040
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 9:13

Bravo Papydall !

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

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Francis-mr



Nombre de messages : 160
Age : 65
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 10:57

Bonjour Papydall,
Tu m’épateras toujours. cyclops
Bravo
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.com
jean_debord

avatar

Nombre de messages : 756
Age : 63
Localisation : Limoges
Date d'inscription : 21/09/2008

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 11:43

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.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.unilim.fr/pages_perso/jean.debord/index.htm
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 26 Aoû 2015 - 12:44

Bravo Mr Papydall, j' aimerai avoir autant de patience pour faire de tel choses.
cheers cheers cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 13:24

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 13:38

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5040
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 14:02

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+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 14:52

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 15:08

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:
 

Voici ce que ça donne:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 15:32

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 16:17

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:
http://panoramic.free-boards.net/t1395-pentographe-icone?highlight=icone

Apparemment c'est cliquable.
Revenir en haut Aller en bas
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 16:44

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

Me cacher Question Exclamation  
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Invité
Invité



MessageSujet: Re: La Cigale et la Fourmi   Mer 26 Aoû 2015 - 17:39

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.
Revenir en haut Aller en bas
jean_debord

avatar

Nombre de messages : 756
Age : 63
Localisation : Limoges
Date d'inscription : 21/09/2008

MessageSujet: Re: La Cigale et la Fourmi   Jeu 27 Aoû 2015 - 10:31

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.unilim.fr/pages_perso/jean.debord/index.htm
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: La Cigale et la Fourmi   Jeu 27 Aoû 2015 - 12:21

Ce n'est pas très grave, ça avance déjà pas mal. On peut attendre un peu Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: La Cigale et la Fourmi   Jeu 27 Aoû 2015 - 17:17

Le programme original est tiré de ce site.
Il y en d'autres programmes tout aussi bons les uns que les autres.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: La Cigale et la Fourmi   Jeu 27 Aoû 2015 - 23:52

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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Ven 28 Aoû 2015 - 1:14

C' est bien Papydall, tu connais tes classiques !
cheers cheers cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2353
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: La Cigale et la Fourmi   Ven 28 Aoû 2015 - 8:51

il faut vivre avec son temps... lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: La Cigale et la Fourmi   Ven 28 Aoû 2015 - 11:32


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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jean_debord

avatar

Nombre de messages : 756
Age : 63
Localisation : Limoges
Date d'inscription : 21/09/2008

MessageSujet: Re: La Cigale et la Fourmi   Lun 7 Sep 2015 - 11: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.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.unilim.fr/pages_perso/jean.debord/index.htm
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: La Cigale et la Fourmi   Lun 7 Sep 2015 - 12: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é ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: La Cigale et la Fourmi   Lun 7 Sep 2015 - 12:56

Bonjour Jean.

C’est très intéressant tout ça !
Bonne continuation.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: La Cigale et la Fourmi   

Revenir en haut Aller en bas
 
La Cigale et la Fourmi
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Roses captives
» t'as l'air bien conne chanta la fourmi

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: