LE CORBEAU ET LE RENARD

rem ============================================================================
rem                  LE CORBEAU ET LE RENARD
rem                       PAR PAPYDALL
rem   Adaptation d un code en HTML / CANVAS de Robert Riou
rem ============================================================================
Init()
Paysage()
Maitre_Renard()
Arbre()
Fromage()
Maitre_Corbeau()
Finition()
Fable()

END
rem ============================================================================
SUB Init()
    dim r,g,b,scale
    scale = 1  : ' adapter l'échelle à votre convenance (entre 0.5 et 1)
    if scale < .5 then scale = .5
    if scale > 1 then scale = 1
    full_space 0 : width 0,1020*scale : height 0,900*scale
    picture 10 : full_space 10
    width 10,width(0)-10*scale : height 10,height(0)-100*scale
    top 10,10*scale : left 10,5*scale : 2d_target_is 10 : print_target_is 10
    r = hex("FF") : g = hex("FF") : b = hex("FF") : 2d_pen_width 5
    2d_fill_on : 2d_fill_color r,g,b : 2d_rectangle 0,0,1000*scale,880*scale
    caption 0,"Le Corbeau et le Renard"
END_SUB
rem ============================================================================
SUB Paysage()
    r = hex("C3") : g = hex("E4") : b = hex("6D")
    2d_pen_color 0,128,0 : 2d_pen_width 4
    2d_poly_to scale*000,257*scale : 2d_poly_to scale*029,278*scale
    2d_poly_to scale*056,284*scale : 2d_poly_to scale*076,277*scale
    2d_poly_to scale*096,270*scale : 2d_poly_to scale*117,255*scale
    2d_poly_to scale*135,244*scale : 2d_poly_to scale*152,237*scale
    2d_poly_to scale*189,225*scale : 2d_poly_to scale*249,209*scale
    2d_poly_to scale*316,205*scale : 2d_poly_to scale*400,195*scale
    2d_poly_to scale*441,195*scale : 2d_poly_to scale*515,202*scale
    2d_poly_to scale*547,203*scale : 2d_poly_to scale*579,205*scale
    2d_poly_to scale*614,202*scale : 2d_poly_to scale*628,196*scale
    2d_poly_to scale*635,193*scale : 2d_poly_to scale*1000,182*scale
    2d_poly_to scale*1000,800*scale : 2d_poly_to scale*000,800*scale
    2d_poly_to scale*0,257*scale : 2d_flood scale*100,400*scale,r,g,b
    r = hex("AD") : g = hex("D8") : b = hex("E6")
    2d_flood scale*100,100*scale ,r,g,b
END_SUB
rem ============================================================================
SUB Maitre_Renard()
    r = hex("9C") : g = hex("4C") : b = hex("27")
    2d_pen_color 0,0,0 : 2d_pen_width 3
    2d_poly_from scale*17,789*scale
    2d_poly_to scale*047,783*scale : 2d_poly_to scale*071,761*scale
    2d_poly_to scale*079,744*scale : 2d_poly_to scale*096,753*scale
    2d_poly_to scale*113,739*scale : 2d_poly_to scale*102,741*scale
    2d_poly_to scale*087,734*scale : 2d_poly_to scale*088,725*scale
    2d_poly_to scale*093,717*scale : 2d_poly_to scale*096,704*scale
    2d_poly_to scale*101,707*scale : 2d_poly_to scale*101,719*scale
    2d_poly_to scale*115,725*scale : 2d_poly_to scale*133,733*scale
    2d_poly_to scale*136,732*scale : 2d_poly_to scale*150,723*scale
    2d_poly_to scale*153,717*scale : 2d_poly_to scale*146,717*scale
    2d_poly_to scale*139,723*scale : 2d_poly_to scale*117,712*scale
    2d_poly_to scale*118,708*scale : 2d_poly_to scale*125,691*scale
    2d_poly_to scale*126,681*scale : 2d_poly_to scale*126,673*scale
    2d_poly_to scale*147,668*scale : 2d_poly_to scale*163,660*scale
    2d_poly_to scale*174,652*scale : 2d_poly_to scale*180,643*scale
    2d_poly_to scale*192,650*scale : 2d_poly_to scale*202,658*scale
    2d_poly_to scale*211,664*scale : 2d_poly_to scale*218,669*scale
    2d_poly_to scale*224,667*scale : 2d_poly_to scale*240,655*scale
    2d_poly_to scale*233,652*scale : 2d_poly_to scale*225,658*scale
    2d_poly_to scale*222,660*scale : 2d_poly_to scale*218,658*scale
    2d_poly_to scale*205,645*scale : 2d_poly_to scale*200,640*scale
    2d_poly_to scale*204,637*scale : 2d_poly_to scale*211,631*scale
    2d_poly_to scale*213,627*scale : 2d_poly_to scale*229,620*scale
    2d_poly_to scale*248,615*scale : 2d_poly_to scale*261,619*scale
    2d_poly_to scale*272,615*scale : 2d_poly_to scale*268,610*scale
    2d_poly_to scale*262,611*scale : 2d_poly_to scale*252,604*scale
    2d_poly_to scale*235,606*scale : 2d_poly_to scale*228,607*scale
    2d_poly_to scale*231,600*scale : 2d_poly_to scale*229,589*scale
    2d_poly_to scale*226,581*scale : 2d_poly_to scale*225,574*scale
    2d_poly_to scale*226,572*scale : 2d_poly_to scale*235,569*scale
    2d_poly_to scale*241,568*scale : 2d_poly_to scale*233,558*scale
    2d_poly_to scale*232,549*scale : 2d_poly_to scale*232,543*scale
    2d_poly_to scale*225,536*scale : 2d_poly_to scale*220,534*scale
    2d_poly_to scale*211,521*scale : 2d_poly_to scale*206,537*scale
    2d_poly_to scale*197,550*scale : 2d_poly_to scale*170,550*scale
    2d_poly_to scale*184,565*scale : 2d_poly_to scale*187,573*scale
    2d_poly_to scale*181,589*scale : 2d_poly_to scale*172,599*scale
    2d_poly_to scale*157,610*scale : 2d_poly_to scale*131,626*scale
    2d_poly_to scale*108,643*scale : 2d_poly_to scale*077,669*scale
    2d_poly_to scale*069,685*scale : 2d_poly_to scale*063,692*scale
    2d_poly_to scale*059,705*scale : 2d_poly_to scale*057,716*scale
    2d_poly_to scale*056,731*scale : 2d_poly_to scale*050,745*scale
    2d_poly_to scale*042,758*scale : 2d_poly_to scale*028,774*scale
    2d_poly_to scale*017,789*scale : 2d_flood scale*200,600*scale,r,g,b
    Maitre_Renard_Suite()
END_SUB
rem ============================================================================
SUB Maitre_Renard_suite()
    2d_poly_from scale*182,553*scale
    2d_poly_to scale*191,555*scale : 2d_poly_to scale*180,558*scale
    2d_poly_to scale*189,560*scale : 2d_poly_to scale*183,558*scale
    2d_poly_to scale*182,553*scale
    2d_poly_from scale*210,561*scale
    2d_poly_to scale*230,566*scale : 2d_poly_to scale*242,566*scale
    2d_poly_to scale*222,556*scale : 2d_poly_from scale*211,563*scale
    2d_poly_to scale*209,563*scale : 2d_poly_to scale*209,564*scale
    2d_poly_to scale*211,564*scale : 2d_poly_to scale*211,565*scale
    2d_poly_to scale*209,565*scale : 2d_poly_to scale*207,563*scale
    2d_poly_from scale*221,554*scale
    2d_poly_to scale*221,551*scale : 2d_poly_to scale*222,548*scale
    2d_poly_to scale*226,547*scale : 2d_poly_to scale*225,553*scale
    2d_poly_to scale*224,553*scale : 2d_poly_from scale*179,645*scale
    2d_poly_to scale*181,629*scale : 2d_poly_to scale*178,618*scale
    2d_poly_to scale*176,609*scale : 2d_poly_to scale*175,602*scale
    2d_poly_from scale*128,678*scale
    2d_poly_to scale*125,674*scale : 2d_poly_to scale*119,669*scale
    2d_poly_to scale*107,664*scale : 2d_poly_from scale*69,695*scale
    2d_poly_to scale*76,702*scale  : 2d_poly_to scale*82,706*scale
    2d_poly_to scale*83,716*scale  : 2d_poly_to scale*80,731*scale
    2d_poly_to scale*80,745*scale  : 2d_poly_from scale*190,589*scale
    2d_poly_to scale*197,595*scale : 2d_poly_to scale*206,604*scale
    2d_poly_to scale*210,610*scale : 2d_poly_to scale*207,623*scale
    2d_poly_to scale*210,630*scale : 2d_poly_from scale*227,607*scale
    2d_poly_to scale*213,627*scale : 2d_poly_from scale*214,533*scale
    2d_poly_to scale*215,535*scale : 2d_poly_to scale*216,537*scale
    2d_poly_to scale*217,534*scale : 2d_poly_to scale*214,532*scale
END_SUB
rem ============================================================================
SUB Arbre()
    r = hex("9C") : g = hex("4C") : b = hex("27") : 2d_pen_color 0,0,0
    2d_poly_from scale*993,313*scale
    2d_poly_to scale*980,339*scale : 2d_poly_to scale*968,358*scale
    2d_poly_to scale*957,384*scale : 2d_poly_to scale*953,398*scale
    2d_poly_to scale*948,411*scale : 2d_poly_to scale*940,434*scale
    2d_poly_to scale*938,475*scale : 2d_poly_to scale*944,491*scale
    2d_poly_to scale*949,509*scale : 2d_poly_to scale*947,535*scale
    2d_poly_to scale*953,545*scale : 2d_poly_to scale*951,563*scale
    2d_poly_to scale*964,587*scale : 2d_poly_to scale*947,594*scale
    2d_poly_to scale*929,596*scale : 2d_poly_to scale*913,585*scale
    2d_poly_to scale*910,596*scale : 2d_poly_to scale*893,595*scale
    2d_poly_to scale*871,591*scale : 2d_poly_to scale*869,582*scale
    2d_poly_to scale*873,575*scale : 2d_poly_to scale*873,552*scale
    2d_poly_to scale*873,524*scale : 2d_poly_to scale*880,499*scale
    2d_poly_to scale*876,470*scale : 2d_poly_to scale*885,452*scale
    2d_poly_to scale*881,403*scale : 2d_poly_to scale*883,390*scale
    2d_poly_to scale*854,341*scale : 2d_poly_to scale*838,337*scale
    2d_poly_to scale*843,329*scale : 2d_poly_to scale*832,326*scale
    2d_poly_to scale*816,311*scale : 2d_poly_to scale*796,304*scale
    2d_poly_to scale*772,299*scale : 2d_poly_to scale*765,301*scale
    2d_poly_to scale*754,294*scale : 2d_poly_to scale*762,272*scale
    2d_poly_to scale*816,282*scale : 2d_poly_to scale*844,299*scale
    2d_poly_to scale*845,278*scale : 2d_poly_to scale*843,262*scale
    2d_poly_to scale*842,252*scale : 2d_poly_to scale*821,240*scale
    2d_poly_to scale*823,235*scale : 2d_poly_to scale*830,241*scale
    2d_poly_to scale*845,250*scale : 2d_poly_to scale*834,218*scale
    2d_poly_to scale*839,215*scale : 2d_poly_to scale*847,224*scale
    2d_poly_to scale*859,209*scale : 2d_poly_to scale*864,211*scale
    2d_poly_to scale*856,226*scale : 2d_poly_to scale*854,240*scale
    2d_poly_to scale*857,259*scale : 2d_poly_to scale*856,269*scale
    2d_poly_to scale*856,294*scale : 2d_poly_to scale*863,307*scale
    2d_poly_to scale*869,284*scale : 2d_poly_to scale*867,263*scale
    2d_poly_to scale*868,246*scale : 2d_poly_to scale*876,223*scale
    2d_poly_to scale*866,206*scale : 2d_poly_to scale*879,198*scale
    2d_poly_to scale*903,201*scale : 2d_poly_to scale*920,204*scale
    2d_poly_to scale*914,218*scale : 2d_poly_to scale*899,241*scale
    2d_poly_to scale*891,260*scale : 2d_poly_to scale*889,287*scale
    2d_poly_to scale*890,311*scale : 2d_poly_to scale*888,320*scale
    2d_poly_to scale*891,336*scale : 2d_poly_to scale*898,352*scale
    2d_poly_to scale*912,362*scale : 2d_poly_to scale*923,372*scale
    2d_poly_to scale*931,355*scale : 2d_poly_to scale*956,306*scale
    2d_poly_to scale*950,287*scale : 2d_poly_to scale*943,260*scale
    2d_poly_to scale*933,236*scale : 2d_poly_to scale*929,224*scale
    2d_poly_to scale*934,221*scale : 2d_poly_to scale*946,251*scale
    2d_poly_to scale*956,215*scale : 2d_poly_to scale*961,210*scale
    2d_poly_to scale*964,192*scale : 2d_poly_to scale*984,191*scale
    2d_poly_to scale*980,208*scale : 2d_poly_to scale*978,218*scale
    2d_poly_to scale*983,230*scale : 2d_poly_to scale*993,201*scale
    2d_poly_to scale*993,237*scale : 2d_poly_to scale*990,247*scale
    2d_poly_to scale*993,313*scale : 2d_flood scale*900,400*scale,r,g,b
    Arbre_Suite()
END_SUB
rem ============================================================================
SUB Arbre_Suite()
    r = hex("2B") : g = hex("67") : b = hex("35") : 2d_pen_color 0,0,0
    2d_pen_width 3
    2d_poly_from scale*765,301*scale
    2d_poly_to scale*758,310*scale : 2d_poly_to scale*752,319*scale
    2d_poly_to scale*734,330*scale : 2d_poly_to scale*706,327*scale
    2d_poly_to scale*690,327*scale : 2d_poly_to scale*673,327*scale
    2d_poly_to scale*658,342*scale : 2d_poly_to scale*627,338*scale
    2d_poly_to scale*616,329*scale : 2d_poly_to scale*621,319*scale
    2d_poly_to scale*613,314*scale : 2d_poly_to scale*606,300*scale
    2d_poly_to scale*623,291*scale : 2d_poly_to scale*616,270*scale
    2d_poly_to scale*648,242*scale : 2d_poly_to scale*656,240*scale
    2d_poly_to scale*634,184*scale : 2d_poly_to scale*640,168*scale
    2d_poly_to scale*645,160*scale : 2d_poly_to scale*653,144*scale
    2d_poly_to scale*669,138*scale : 2d_poly_to scale*680,120*scale
    2d_poly_to scale*699,110*scale : 2d_poly_to scale*701,104*scale
    2d_poly_to scale*701,092*scale : 2d_poly_to scale*719,70*scale
    2d_poly_to scale*733,072*scale : 2d_poly_to scale*738,69*scale
    2d_poly_to scale*747,050*scale : 2d_poly_to scale*764,41*scale
    2d_poly_to scale*785,030*scale : 2d_poly_to scale*803,29*scale
    2d_poly_to scale*813,030*scale : 2d_poly_to scale*823,22*scale
    2d_poly_to scale*847,019*scale : 2d_poly_to scale*868,13*scale
    2d_poly_to scale*881,007*scale : 2d_poly_to scale*898,10*scale
    2d_poly_to scale*917,018*scale : 2d_poly_to scale*927,27*scale
    2d_poly_to scale*933,034*scale : 2d_poly_to scale*947,21*scale
    2d_poly_to scale*959,015*scale : 2d_poly_to scale*970,16*scale
    2d_poly_to scale*984,017*scale : 2d_poly_to scale*1000,21*scale
    2d_poly_to scale*1000,199*scale : 2d_poly_to scale*985,197*scale
    2d_poly_to scale*977,194*scale : 2d_poly_to scale*961,194*scale
    2d_poly_to scale*959,205*scale : 2d_poly_to scale*956,215*scale
    2d_poly_to scale*945,221*scale : 2d_poly_to scale*929,223*scale
    2d_poly_to scale*914,219*scale : 2d_poly_to scale*921,201*scale
    2d_poly_to scale*906,200*scale : 2d_poly_to scale*887,199*scale
    2d_poly_to scale*878,203*scale : 2d_poly_to scale*869,207*scale
    2d_poly_to scale*863,212*scale : 2d_poly_to scale*848,212*scale
    2d_poly_to scale*840,215*scale : 2d_poly_to scale*835,223*scale
    2d_poly_to scale*831,233*scale : 2d_poly_to scale*828,241*scale
    2d_poly_to scale*830,252*scale : 2d_poly_to scale*828,262*scale
    2d_poly_to scale*819,266*scale : 2d_poly_to scale*795,262*scale
    2d_poly_to scale*784,259*scale : 2d_poly_to scale*765,301*scale
    2d_pen_width 6
    2d_pen_color r,g,b : 2d_line scale*638,scale*192, scale*1000,scale*180
    2d_flood scale*800,100*scale,r,g,b : 2d_flood scale*700,250*scale,r,g,b
    2d_flood scale*760,286*scale,r,g,b
END_SUB
rem ============================================================================
SUB Fromage()
    r = hex("FF") : g = hex("FF") : b = hex("0") : 2d_pen_color 0,0,0
    2d_pen_width 1
    2d_poly_from scale*686,234*scale
    2d_poly_to scale*676,238*scale : 2d_poly_to scale*669,244*scale
    2d_poly_to scale*666,253*scale : 2d_poly_to scale*663,269*scale
    2d_poly_to scale*670,281*scale : 2d_poly_to scale*680,284*scale
    2d_poly_to scale*693,281*scale : 2d_poly_to scale*705,270*scale
    2d_poly_to scale*710,259*scale : 2d_poly_to scale*708,248*scale
    2d_poly_to scale*708,242*scale : 2d_poly_to scale*705,237*scale
    2d_poly_to scale*686,234*scale : 2d_flood scale*680,250*scale,r,g,b
    r = hex("80") : g = hex("80") : b = hex("80") : 2d_pen_color 0,0,0
    2d_pen_width 1
    2d_poly_from scale*705,265*scale
    2d_poly_to scale*696,272*scale : 2d_poly_to scale*683,275*scale
    2d_poly_to scale*673,272*scale : 2d_poly_to scale*666,269*scale
    2d_poly_to scale*665,273*scale : 2d_poly_to scale*667,281*scale
    2d_poly_to scale*677,283*scale : 2d_poly_to scale*686,285*scale
    2d_poly_to scale*695,281*scale : 2d_poly_to scale*705,265*scale
    2d_flood scale*680,278*scale,r,g,b
END_SUB
rem ============================================================================
SUB Maitre_Corbeau()
    r = hex("00") : g = hex("00") : b = hex("00") : 2d_pen_color 0,0,0
    2d_pen_width 1
    2d_poly_from scale*677,273*scale
    2d_poly_to scale*677,265*scale : 2d_poly_to scale*684,243*scale
    2d_poly_to scale*686,232*scale : 2d_poly_to scale*689,228*scale
    2d_poly_to scale*686,223*scale : 2d_poly_to scale*686,219*scale
    2d_poly_to scale*688,218*scale : 2d_poly_to scale*687,211*scale
    2d_poly_to scale*689,205*scale : 2d_poly_to scale*692,209*scale
    2d_poly_to scale*701,206*scale : 2d_poly_to scale*704,200*scale
    2d_poly_to scale*712,200*scale : 2d_poly_to scale*718,205*scale
    2d_poly_to scale*725,208*scale : 2d_poly_to scale*730,208*scale
    2d_poly_to scale*736,202*scale : 2d_poly_to scale*740,201*scale
    2d_poly_to scale*750,204*scale : 2d_poly_to scale*776,225*scale
    2d_poly_to scale*792,245*scale : 2d_poly_to scale*816,270*scale
    2d_poly_to scale*803,265*scale : 2d_poly_to scale*808,282*scale
    2d_poly_to scale*817,298*scale : 2d_poly_to scale*803,296*scale
    2d_poly_to scale*784,290*scale : 2d_poly_to scale*780,287*scale
    2d_poly_to scale*780,262*scale : 2d_poly_to scale*776,261*scale
    2d_poly_to scale*774,275*scale : 2d_poly_to scale*768,274*scale
    2d_poly_to scale*766,277*scale : 2d_poly_to scale*768,281*scale
    2d_poly_to scale*764,279*scale : 2d_poly_to scale*762,282*scale
    2d_poly_to scale*760,294*scale : 2d_poly_to scale*759,294*scale
    2d_poly_to scale*758,287*scale : 2d_poly_to scale*756,287*scale
    2d_poly_to scale*754,295*scale : 2d_poly_to scale*751,293*scale
    2d_poly_to scale*750,288*scale : 2d_poly_to scale*747,291*scale
    2d_poly_to scale*744,285*scale : 2d_poly_to scale*748,281*scale
    2d_poly_to scale*754,277*scale : 2d_poly_to scale*760,274*scale
    2d_poly_to scale*760,270*scale : 2d_poly_to scale*766,270*scale
    2d_poly_to scale*764,259*scale : 2d_poly_to scale*760,261*scale
    2d_poly_to scale*755,265*scale : 2d_poly_to scale*752,268*scale
    2d_poly_to scale*747,268*scale : 2d_poly_to scale*746,273*scale
    2d_poly_to scale*742,281*scale : 2d_poly_to scale*738,281*scale
    2d_poly_to scale*742,269*scale : 2d_poly_to scale*733,274*scale
    2d_poly_to scale*732,274*scale : 2d_poly_to scale*737,267*scale
    2d_poly_to scale*735,264*scale : 2d_poly_to scale*736,259*scale
    2d_poly_to scale*741,259*scale : 2d_poly_to scale*751,259*scale
    2d_poly_to scale*755,256*scale : 2d_poly_to scale*742,254*scale
    2d_poly_to scale*736,253*scale : 2d_poly_to scale*727,250*scale
    2d_poly_to scale*721,245*scale : 2d_poly_to scale*719,240*scale
    2d_poly_to scale*719,235*scale : 2d_poly_to scale*715,234*scale
    2d_poly_to scale*711,235*scale : 2d_poly_to scale*709,239*scale
    2d_poly_to scale*708,243*scale : 2d_poly_to scale*703,238*scale
    2d_poly_to scale*700,238*scale : 2d_poly_to scale*697,243*scale
    2d_poly_to scale*691,251*scale : 2d_poly_to scale*687,258*scale
    2d_poly_to scale*677,273*scale
    2d_flood scale*730,220*scale,r,g,b : 2d_flood scale*690,240*scale,r,g,b
    2d_flood scale*790,270*scale,r,g,b : 2d_flood scale*754,282*scale,r,g,b
    2d_flood scale*800,284*scale,r,g,b : 2d_flood scale*763,275*scale,r,g,b
    2d_pen_color 255,255,255 : 2d_poly_from scale*705,226*scale
    2d_poly_to scale*700,224*scale : 2d_poly_to scale*702,221*scale
    2d_poly_to scale*705,220*scale : 2d_poly_to scale*708,221*scale
    2d_poly_to scale*708,224*scale : 2d_poly_to scale*705,226*scale
END_SUB
rem ============================================================================
SUB Finition()
    2d_pen_color 0,0,0  : 2d_pen_width 2
    2d_poly_from scale*700,226*scale
    2d_poly_to scale*705,227*scale : 2d_poly_to scale*705,223*scale
    2d_poly_to scale*703,222*scale : 2d_poly_to scale*703,225*scale
    2d_poly_from scale*930,29*scale
    2d_poly_to scale*921,36*scale : 2d_poly_to scale*918,41*scale
    2d_poly_to scale*912,45*scale : 2d_poly_to scale*901,40*scale
    2d_poly_to scale*895,48*scale : 2d_poly_to scale*895,53*scale
    2d_poly_to scale*898,60*scale : 2d_poly_to scale*892,64*scale
    2d_poly_to scale*885,66*scale : 2d_poly_to scale*879,60*scale
    2d_poly_to scale*873,62*scale : 2d_poly_to scale*872,69*scale
    2d_poly_to scale*870,74*scale : 2d_poly_to scale*868,81*scale
    2d_poly_to scale*866,87*scale : 2d_poly_to scale*865,92*scale
    2d_poly_to scale*862,91*scale : 2d_poly_to scale*855,86*scale
    2d_poly_to scale*854,89*scale : 2d_poly_to scale*853,94*scale
    2d_poly_to scale*849,91*scale : 2d_poly_to scale*846,94*scale
    2d_poly_to scale*844,98*scale : 2d_poly_to scale*844,100*scale
    2d_poly_to scale*834,102*scale : 2d_poly_to scale*834,109*scale
    2d_poly_to scale*835,115*scale : 2d_poly_to scale*841,116*scale
    2d_poly_to scale*837,126*scale : 2d_poly_to scale*834,136*scale
    2d_poly_to scale*836,143*scale : 2d_poly_to scale*831,149*scale
    2d_poly_to scale*841,147*scale : 2d_poly_to scale*856,149*scale
    2d_poly_to scale*855,160*scale : 2d_poly_to scale*862,166*scale
    2d_poly_to scale*859,174*scale : 2d_poly_to scale*855,185*scale
    2d_poly_to scale*852,190*scale : 2d_poly_to scale*858,191*scale
    2d_poly_to scale*871,196*scale : 2d_poly_to scale*878,201*scale
    2d_poly_from scale*665,244*scale : 2d_poly_to scale*661,245*scale
    2d_poly_to scale*652,240*scale : 2d_poly_from scale*992,113*scale
    2d_poly_to scale*987,119*scale : 2d_poly_to scale*987,125*scale
    2d_poly_to scale*990,130*scale : 2d_poly_to scale*987,138*scale
    2d_poly_to scale*982,131*scale : 2d_poly_to scale*967,134*scale
    2d_poly_to scale*964,137*scale : 2d_poly_to scale*969,142*scale
    2d_poly_to scale*967,144*scale : 2d_poly_to scale*967,148*scale
    2d_poly_to scale*968,148*scale : 2d_poly_to scale*972,151*scale
    2d_poly_to scale*965,156*scale : 2d_poly_to scale*964,158*scale
    2d_poly_to scale*956,164*scale : 2d_poly_to scale*958,167*scale
    2d_poly_to scale*966,174*scale : 2d_poly_to scale*967,180*scale
    2d_poly_to scale*963,189*scale : 2d_poly_from scale*744,203*scale
    2d_poly_to scale*749,198*scale : 2d_poly_to scale*746,197*scale
    2d_poly_to scale*748,193*scale : 2d_poly_to scale*747,187*scale
    2d_poly_to scale*753,186*scale : 2d_poly_to scale*757,182*scale
    2d_poly_to scale*759,179*scale : 2d_poly_to scale*763,172*scale
    2d_poly_to scale*773,172*scale : 2d_poly_from scale*770,221*scale
    2d_poly_to scale*778,219*scale : 2d_poly_to scale*784,220*scale
    2d_poly_to scale*787,213*scale : 2d_poly_to scale*791,218*scale
    2d_poly_to scale*796,225*scale : 2d_poly_to scale*799,219*scale
    2d_poly_to scale*797,215*scale : 2d_poly_to scale*803,216*scale
    2d_poly_to scale*807,212*scale : 2d_poly_to scale*807,208*scale
    2d_poly_to scale*812,206*scale : 2d_poly_to scale*812,199*scale
    2d_poly_to scale*810,193*scale : 2d_poly_from scale*698,324*scale
    2d_poly_to scale*703,318*scale : 2d_poly_to scale*698,314*scale
    2d_poly_to scale*703,312*scale : 2d_poly_to scale*705,305*scale
    2d_poly_to scale*711,303*scale : 2d_poly_from scale*902,445*scale
    2d_poly_to scale*900,504*scale : 2d_poly_from scale*902,534*scale
    2d_poly_to scale*898,566*scale : 2d_poly_from scale*892,553*scale
    2d_poly_to scale*884,587*scale : 2d_poly_from scale*888,530*scale
    2d_poly_to scale*884,569*scale : 2d_poly_from scale*880,541*scale
    2d_poly_to scale*879,556*scale : 2d_poly_from scale*937,544*scale
    2d_poly_to scale*944,570*scale : 2d_poly_from scale*928,544*scale
    2d_poly_to scale*930,523*scale : 2d_poly_from scale*922,490*scale
    2d_poly_to scale*923,521*scale : 2d_poly_from scale*923,526*scale
    2d_poly_to scale*920,540*scale : 2d_poly_from scale*917,514*scale
    2d_poly_to scale*912,491*scale : 2d_poly_from scale*938,495*scale
    2d_poly_to scale*940,523*scale : 2d_poly_from scale*931,499*scale
    2d_poly_to scale*924,472*scale : 2d_poly_from scale*931,446*scale
    2d_poly_to scale*933,428*scale : 2d_poly_from scale*938,416*scale
    2d_poly_to scale*948,394*scale : 2d_poly_from scale*932,410*scale
    2d_poly_to scale*939,394*scale : 2d_poly_from scale*943,388*scale
    2d_poly_to scale*953,363*scale : 2d_poly_from scale*931,378*scale
    2d_poly_to scale*940,359*scale : 2d_poly_from scale*918,386*scale
    2d_poly_to scale*913,377*scale : 2d_poly_from scale*902,368*scale
    2d_poly_to scale*885,349*scale : 2d_poly_from scale*885,370*scale
    2d_poly_to scale*869,341*scale : 2d_poly_from scale*963,319*scale
    2d_poly_to scale*971,303*scale : 2d_poly_from scale*977,314*scale
    2d_poly_to scale*984,295*scale : 2d_poly_from scale*980,280*scale
    2d_poly_to scale*981,257*scale : 2d_poly_from scale*981,241*scale
    2d_poly_to scale*970,224*scale : 2d_poly_from scale*877,285*scale
    2d_poly_to scale*873,261*scale :2d_poly_from scale*853,287*scale
    2d_poly_to scale*851,268*scale
END_SUB
rem ============================================================================
SUB Fable()
    font_bold 10 : font_size 10,22*scale
    r = hex("AD") : g = hex("D8") : b = hex("E6")
    2d_fill_color r,g,b
    print_locate 240*scale,110*scale : print "LE CORBEAU ET LE RENARD"
    r = hex("C3") : g = hex("E4") : b = hex("6D")
    2d_fill_color r,g,b : font_size 10,12*scale
    print_locate scale*270,250*scale : print "Maître Corbeau, sur un arbre perché,"
    print_locate scale*270,270*scale : print "Tenait en son bec un fromage."
    print_locate scale*270,290*scale : print "Maître Renard, par l'odeur alléché,"
    print_locate scale*270,310*scale : print "Lui tint à peu près ce langage :"
    print_locate scale*270,330*scale : print "«Hé ! bonjour, Monsieur du Corbeau."
    print_locate scale*270,350*scale : print "Que vous êtes joli ! que vous me semblez beau !"
    print_locate scale*270,370*scale : print "Sans mentir, si votre ramage"
    print_locate scale*270,390*scale : print "Se rapporte à votre plumage,"
    print_locate scale*270,410*scale : print "Vous êtes le Phénix des hôtes de ces bois.»"
    print_locate scale*270,430*scale : print "A ces mots le Corbeau ne se sent pas de joie ;"
    print_locate scale*270,450*scale : print "Et pour montrer sa belle voix,"
    print_locate scale*270,470*scale : print "Il ouvre un large bec, laisse tomber sa proie."
    print_locate scale*270,490*scale : print "Le Renard s'en saisit, et dit : «Mon bon Monsieur,"
    print_locate scale*270,510*scale : print "Apprenez que tout flatteur"
    print_locate scale*270,530*scale : print "Vit aux dépens de celui qui l'écoute :"
    print_locate scale*270,550*scale : print "Cette leçon vaut bien un fromage, sans doute. »"
    print_locate scale*270,570*scale : print "Le Corbeau, honteux et confus,"
    print_locate scale*270,590*scale : print "Jura, mais un peu tard, qu'on ne l'y prendrait plus."
    font_underline 10 : font_size 10,18*scale
    print_locate scale*400,630*scale : print "Jean de La Fontaine"
END_SUB
rem ========================== F I N ===========================================