Les programmes de papydall

Bonjour Papydall
et bien sur, bonjour à tous.
Je ne me lasse pas de tes applications basées sur les mathématiques et toujours avec un minimum de lignes de code.
Un exemple à suivre...
Pour l'heure, toute mon attention est porté sur le calcul des rapport de réduction des trains épicycloïdaux.
Pas si complexe que tes courbes heureusement.
L'objectif final est de faire une pendule.

Merci mindstorm pour tes appréciations et bonne chance pour ton projet.

Voici un petit code pour le plaisir des yeux !

Code:: rem ======================================================================================
rem Galactic-Chicken.bas
rem Ref : https://www.freebasic.net/forum/viewtopic.php?f=3&t=16207&hilit=cloud&start=6870
rem ======================================================================================
dim c1,c2, s1,s2,x1,x2,y1,y2, deg1,deg2, rad1, rad2, radius%, divisions%, fullcircle%, w%,h%
w = 600 : h = 600 : radius = (w*h)/((w+h)*4) : divisions = 45
rad1 = atn(1) / divisions : rad2 = atn(1) / (divisions/2) : fullcircle = atn(1)*8 / rad1
mode 3,"Galactic-Chicken",w,h : origin w/2,h/2 : paper cl_noir : cls
for deg1 = 0 to fullcircle
   c1 = cos(deg1*rad1) : s1 = sin(deg1*rad1) : x1 = radius*c1 : y1 = radius*s1
   for deg2 = 0 to fullcircle
   c2 = cos(deg2*rad2) : s2 = sin(deg2*rad2)
   x2 = radius*s2*log(deg2*rad1*s2)*atn(deg2*rad2*s2/s1)*atn(deg2*rad2*c1*s1*c2)*sin(deg2/(s1*c1*s1*c1)*rad1*rad1)
   y2 = radius*c2*log(deg2*rad1*c2)*atn(deg2*rad2*c2/c1)*atn(deg2*rad2*c1*s1*c2)*sin(deg2/(s1*c1*s1*c1)*rad1*rad1)
   plot x1+x2 , y1+y2
   next
next
repeat : until len(inkey())
rem =====================================================================================

Code:: rem ==========================================================================================================
rem CARTOON
' D'apres BasicCoder2 sur le forum FreeBASIC :
' https://www.freebasic.net/forum/viewtopic.php?f=8&t=25457&p=230985&hilit=snow#p230985
rem ==========================================================================================================

dim cmd$(3000)
dim px%(3000),py%(3000),cmdCount%
dim penSize%,i%,w%,h%
w = 640 : h = 480

mode 3,"Cartoon",640,480
paper cl_blanc : cls
read cmdCount
for i = 0 to cmdCount-1
   read cmd(i),px(i),py(i)
   py(i) = h-py(i)
next i

DrawIt

repeat : until len(inkey())
rem ==========================================================================================================
sub DrawIt()
   dim prevX1%,prevY1%,penSize%
   dim color1%,color2%,i%
   color1 = rgb(0,0,0) : color2 = rgb(255,255,255)
   penSize = 0 'default draw one pixel wide
   prevX1 = 0 : prevY1 = 0
   for i = 0 to cmdCount-1
   if cmd(i) = "M" then prevX1 = px(i) : prevY1 = py(i)
   if cmd(i) = "D" then
   drawLine(prevX1,prevY1,px(i),py(i),penSize,rgb(0,0,0))
   prevX1 = px(i) : prevY1 = py(i)
   end_if
   if cmd(i) = "P" then move px(i),py(i) : fill color2,rgb(0,0,0)
   if cmd(i) = "L" then penSize = px(i)
   if cmd(i) = "C" then color1 = px(i) : color2 = -py(i)
   next i

end_sub
rem ==========================================================================================================
sub drawLine(x1%,y1%,x2%,y2%,size%,c)
   dim x%,y%,k,l,i%,j%
   if x1 = x2 and y1 = y2 then
   plot x1, y1, c
   pen c : pie x1, y1, size, size
   elseif abs(x2 - x1) >= abs(y2 - y1) then
   K = (y2 - y1) / (x2 - x1)
   for I = x1 To x2 step sgn(x2 - x1)
   x = I
   y = K * (I - x1) + y1
   plot x,y,c
   pen c : pie x,y,size, size
   next I
   else
   L = (x2 - x1) / (y2 - y1)
   for J = y1 To y2 step sgn(y2 - y1)
   x = L * (J - y1) + x1
   y = J
   plot x,y,c
   pen c : pie x,y, size,size
   next J
   end_if
end_sub

rem ==========================================================================================================
DATA 369
DATA "M",180,95,"D",463,95,"D",462,336,"D",180,336,"D",180,95,"M",282,107
DATA "D",285,105,"D",289,105,"D",292,107,"D",298,111,"D",306,116,"D",313,120
DATA "D",320,124,"D",328,128,"D",339,133,"D",348,137,"D",356,140,"D",362,142
DATA "D",369,144,"D",373,147,"D",375,150,"D",376,153,"D",374,157,"D",368,155
DATA "D",365,151,"D",362,149,"D",358,149,"D",355,150,"D",353,151,"D",329,148
DATA "D",317,148,"D",309,147,"D",297,144,"D",289,140,"D",282,134,"D",279,126
DATA "D",279,118,"D",279,112,"D",282,107,"C",-16777216,-11126751,"P",311,133,"M",292,107
DATA "D",303,106,"D",319,107,"D",344,110,"D",352,113,"D",361,124,"D",367,135
DATA "D",370,145,"C",-16777216,-11126751,"P",338,120,"M",279,112,"D",274,109,"D",271,109
DATA "D",268,112,"D",261,122,"D",254,132,"D",250,140,"D",248,150,"D",249,159
DATA "D",251,160,"D",255,157,"D",266,146,"D",276,137,"D",282,134,"C",-16777216,-11126751
DATA "P",267,126,"M",249,159,"D",251,169,"D",255,176,"D",256,169,"D",257,164
DATA "D",259,153,"C",-16777216,-11060961,"P",255,163,"M",255,175,"D",255,182,"D",255,188
DATA "D",256,195,"D",258,202,"D",261,207,"D",264,215,"D",268,222,"D",273,229
DATA "D",282,237,"D",288,244,"D",294,250,"D",298,255,"D",304,255,"D",312,254
DATA "D",322,247,"D",333,237,"D",343,226,"D",348,220,"D",349,171,"D",346,164
DATA "D",338,156,"D",330,148,"M",291,156,"D",304,156,"D",310,154,"D",319,154
DATA "D",324,155,"D",332,162,"D",329,162,"D",323,160,"D",319,160,"D",309,163
DATA "D",303,164,"D",297,164,"D",292,159,"D",291,156,"M",257,166,"D",265,162
DATA "D",275,159,"D",278,160,"D",276,163,"D",275,166,"D",273,167,"D",269,168
DATA "D",265,169,"D",261,171,"D",256,176,"C",-16777216,-7908051,"P",306,160,"P",263,166
DATA "M",337,197,"D",344,187,"D",349,178,"L",1,0,"M",258,183,"D",263,184
DATA "D",267,182,"D",276,182,"M",302,177,"D",308,178,"D",312,176,"D",319,175
DATA "D",325,176,"M",285,216,"D",288,217,"M",300,215,"D",302,213,"L",0,0
DATA "M",263,185,"D",267,189,"D",277,189,"D",277,183,"M",266,188,"D",268,186
DATA "D",271,186,"D",272,189,"C",-16777216,-15588593,"P",269,187,"M",306,179,"D",308,184
DATA "D",312,184,"D",318,183,"D",321,180,"D",323,177,"M",311,184,"D",311,182
DATA "D",313,181,"D",315,181,"D",316,183,"C",-16777216,-15589366,"P",313,182,"M",354,151
DATA "D",354,187,"D",355,203,"D",356,231,"D",357,243,"D",358,254,"D",358,271
DATA "D",354,282,"D",348,290,"D",344,291,"D",346,270,"D",348,245,"D",348,219
DATA "M",354,188,"D",358,191,"D",362,191,"D",368,185,"D",372,176,"D",373,169
DATA "D",373,163,"D",369,155,"M",363,190,"D",365,247,"D",358,246,"C",-16777216,-10995677
DATA "P",357,210,"C",-16777216,-11192799,"P",348,159,"M",358,160,"D",363,158,"D",366,163
DATA "D",367,172,"D",365,180,"D",362,183,"D",360,181,"C",-16777216,-3495035,"P",360,169
DATA "M",285,231,"D",288,227,"D",291,226,"D",294,226,"D",297,224,"D",305,225
DATA "D",311,225,"D",316,225,"D",314,229,"D",311,232,"D",308,234,"D",303,236
DATA "D",300,237,"D",294,237,"D",291,236,"D",288,234,"D",285,231,"M",315,227
DATA "D",308,228,"D",302,228,"D",296,229,"D",292,230,"D",286,231,"C",-16777216,-5546175
DATA "C",-16777216,-5087165,"C",-16777216,-3429243,"P",324,191,"M",316,176,"D",318,179,"D",319,182
DATA "M",272,183,"D",273,185,"D",273,188,"C",-16777216,-7956343,"P",270,184,"P",315,179
DATA "M",374,157,"D",376,180,"D",377,214,"D",378,241,"D",378,251,"D",365,247
DATA "C",-16777216,-11126751,"P",371,215,"M",265,217,"D",261,236,"D",261,248,"D",259,265
DATA "D",265,259,"D",266,244,"D",268,222,"C",-16777216,-10732511,"P",265,242,"M",274,230
DATA "D",273,248,"D",275,284,"D",278,304,"D",276,308,"D",272,307,"D",267,300
DATA "D",265,291,"D",265,258,"C",-16777216,-11060703,"P",271,245,"M",295,251,"D",273,256
DATA "C",-16777216,-11126496,"P",280,246,"M",295,251,"D",296,260,"D",318,261,"D",333,257
DATA "D",348,250,"C",-16777216,-3429243,"P",337,242,"M",296,260,"D",297,276,"D",298,289
DATA "D",297,295,"M",358,255,"D",362,265,"D",368,274,"D",376,281,"D",366,287
DATA "D",357,295,"D",345,308,"D",325,323,"D",312,331,"D",301,335,"M",285,335
DATA "D",279,324,"D",273,307,"C",-16777216,-12375776,"M",296,267,"D",285,277,"D",276,282
DATA "C",-16777216,-12441312,"P",311,303,"M",384,263,"D",388,267,"D",390,270,"D",389,274
DATA "D",385,277,"D",376,281,"M",405,273,"D",413,282,"D",421,288,"D",431,292
DATA "D",433,297,"D",433,304,"D",431,310,"D",427,306,"D",424,305,"D",414,304
DATA "D",404,306,"D",391,310,"D",379,317,"D",365,328,"D",354,336,"M",378,251
DATA "D",392,256,"D",403,262,"D",410,270,"D",411,277,"D",412,280,"C",-16777216,-4017021
DATA "P",406,290,"M",259,265,"D",255,272,"D",253,277,"D",246,283,"M",254,274
DATA "D",245,277,"D",238,279,"D",235,283,"D",232,293,"D",233,303,"D",236,314
DATA "D",240,326,"D",245,336,"C",-16777216,-4872069,"P",253,312,"M",431,309,"D",439,319
DATA "D",446,329,"D",448,335,"C",-16777216,-8168621,"P",410,324,"M",232,292,"D",218,298
DATA "D",209,309,"D",204,320,"D",202,335,"P",226,320,"C",-16777216,-4797505,"P",419,140
DATA "C",-16777216,-5021629,"P",302,231,"C",-16777216,-5546176,"P",297,227,"C",-16777216,-3950971,"P",284,259
DATA "M",377,156,"C",-16777216,-10797277,"P",373,159
rem ==========================================================================================================

Résultat:

Très sympa, très bien dessiné avec des couleurs agréables.

Merci de ton partage Papydall !

Bonne nuit ! Sleep

Merci Marc.

Un autre cartoon.

Code:: rem ==============================================================
rem CARTOON II
' D'apres BasicCoder2 sur le forum FreeBASIC :
' https://www.freebasic.net/forum/viewtopic.php?f=8&t=25457&hilit=snow&start=300
rem ==============================================================

dim w%,h%
dim colors(14)
w = 800 : h = 400
mode 3,"CARTOON II",w,h : origin 400,200
paper cl_blanc : cls

colors( 0) = RGB(255,255,255)
colors( 1) = RGB(166,66,0)
colors( 2) = RGB(255,127,39)
colors( 3) = RGB(218,154,133)
colors( 4) = RGB(0,0,0)
colors( 5) = RGB(0,162,232)
colors( 6) = RGB(106,84,62)
colors( 7) = RGB(116,12,14)
colors(   = RGB(143,14,17)
colors( 9) = RGB(170,17,21)
colors( 10) = RGB(127,101,74)
colors( 11) = RGB(148,97,1)
colors( 12) = RGB(68,26,14)
colors( 13) = RGB(65,23,10)

dim datum$
dim i%,j%,k%, n%
for j = 70 to 0 step -1
   read datum
   for i = 0 to 59
   n = val("&h" & mid(datum,i+1,1))
   pen colors(n)
   for k = -400 to 400 step 100
   plot 20+i+k,j
   next k
   next i
next j

repeat : until len(inkey())

rem ==============================================================
DATA "000000000000001111000000000000000000000000000000000000000000"
DATA "000000000000011111110000000000000000000000000000000000000000"
DATA "000000000000111111111000000000000000000022222200000000000000"
DATA "000000000001111111111100000000000000000222222220000000000000"
DATA "000000000001111111111110000000000000000222222222000000000000"
DATA "000000000001111111111110000000000000002222222222000000000000"
DATA "000000000001111111111110000000000000002222222332200000000000"
DATA "000000000001111111133410000000000000002222233342200000000000"
DATA "000000000001111333433310000000000000002222334352200000000000"
DATA "000000000000311333333310000000000000002223335332200000000000"
DATA "000000000000331113333314400000000000022223333332200000000000"
DATA "000000000063331111333314444000000000022227333332222000000000"
DATA "000000006666333111113116444600000000022227733338922000000000"
DATA "000000446666333331111116446600000000022222777779990000000000"
DATA "000004446666633333311116446600000000A222222777799A0000000000"
DATA "00004444466666633333336644660000000AAA22999977999AA000000000"
DATA "0006666444466666333336664466600000AAA222999999999AAA00000000"
DATA "0006666644446666633336664466600000AAA2229999999999AAA0000000"
DATA "000666666644446666666666466660000AAAAA2299999999999AA0000000"
DATA "000666666666444466666666466660000AAAAA2999999999999AA0000000"
DATA "006666666666664446666666466660000AAAAA9999999999999AA0000000"
DATA "00666666666666644444466446666600AAAAAA9999999999999AAA000000"
DATA "06666666666666666444444444666600AAAA04499999444999AAAA000000"
DATA "06666666666666666664444B4466660AAAAA04449994444444AAAAA00000"
DATA "066666666666666666644BBB4466666AAAAA044444444444440AAAAA0000"
DATA "066666666666666666644BBB4466666AAAAA004444444444400AAAAA0000"
DATA "066666606666666666664B4444666666AAA00044444444444000AAAAA000"
DATA "66666600666666666664444444666666AAA000044444444440000AAAAA00"
DATA "66666600666666666664446644466666AAA0000444444444400000AAAA00"
DATA "66666600666666666664466664466666AAA00084444444444000000AAA30"
DATA "666666006666666666446666644666666AA000844444444448000000A333"
DATA "666666006666666664466666664466666AA0094444444444480000003333"
DATA "666666066666666644466666664066666A00888844444444888000000333"
DATA "666660066666666444666666640066663300888884444448888000000033"
DATA "666660066666664446666644440003333308888888888888888800000330"
DATA "666660066666644444444444400003333338888888888888888800000000"
DATA "666660004444444444444444400000333388888888888888888800000000"
DATA "066660004CCCCCCCCCCCC444400000033338888888888888888880000000"
DATA "066330004CCCCCCCCCCCC444400000003388888888888888888880000000"
DATA "0333300044CCCCCCCCCC4444400000000088888888888888888880000000"
DATA "0333330004CCCCCCCCCCC444000000000088888888888888888880000000"
DATA "03333300044CCCCCCCCCC444000000000088888888888888888880000000"
DATA "00333000044CCCCCCCCCCC44000000000088888888888888888880000000"
DATA "000000000044CCCCCCCCCC40000000000088888888888888888880000000"
DATA "000000000044DDCCCCCCCCC0000000000888888888888888888880000000"
DATA "000000000004CCCCCCCCCCC0000000000888888888888888888880000000"
DATA "0000000004444CCCCCCCCCC0000000000888888888888888888880000000"
DATA "0000000044444CCCCCCCCCC0000000000888888888888888888880000000"
DATA "0000000444444CCCCCCCCCC0000000000888888888888888888880000000"
DATA "0000000444444CCCCCCCCCC0000000000888888888888888888880000000"
DATA "0000000444444CCCCCCCCCC0000000008888888888888888888880000000"
DATA "00000000444444CCCCCCCCC0000000088888888888888888888888000000"
DATA "000000004444444CCCCCCCC0000000088888888888888888888888000000"
DATA "000000000444444CCCCCCCC0000000088888888888888888888888000000"
DATA "000000000044444CCCCCCCC0000000088888888888888888888888000000"
DATA "000000000004444CCCCCCCC0000000088888888888888888888888000000"
DATA "0000000000004444CCCCCCC0000000004888888888888888888888000000"
DATA "0000000000000004CCCCCCC0000000004888888888888888888888000000"
DATA "00000000000000044CCCCCC0000000004488888888888888888880000000"
DATA "00000000000000004CCCCCC0000000004448888888888888888800000000"
DATA "000000000000000044CCCCC0000000004444488888888888888800000000"
DATA "000000000000000004444440000000000044408888888888888800000000"
DATA "000000000000000000444440000000000000000000888888440000000000"
DATA "000000000000000000444444000000000000000000008444440000000000"
DATA "000000000000000000444444000000000000000000000444440000000000"
DATA "000000000000000000444444400000000000000000000444440000000000"
DATA "000000000000000000444444444400000000000000000444640000000000"
DATA "000000000000000000444466666640000000000000000444644000000000"
DATA "000000000000000000444444444444000000000000000044444000000000"
DATA "000000000000000000044444444444000000000000000004444000000000"
DATA "000000000000000000004444444444000000000000000000000000000000"
rem ===============================================================

Résultat:

Un Oiseau

Code:: rem ======================================================================================
rem BIRD
' BasicCoder2
' https://www.freebasic.net/forum/viewtopic.php?f=8&t=22859&p=201343&hilit=snow#p201343
rem =======================================================================================

mode 3,"BIRD", 640,480
pen rgb(0,0,0) : paper rgb(255,255,255):cls
dim s$
read s
while s<>"ENDDATA"
   trace s
   read s
   sleep 100 : ' pour observer le dessin (vous pouvez la mettre en REM pour un tracé immédiat)
wend
repeat : until len(inkey())

data "BM100,408M117,374M135,346M164,306M155,307M152,303M158,295M174,283M181,254"
data "M190,226M205,198M217,179M240,151M260,135M276,123M285,110M296,81M307,63"
data "M324,58M343,58M360,62M373,68M374,76M369,81M368,92M360,103M344,122M350,155"
data "M349,180M336,222M318,250M299,271M280,281M256,282M240,287M222,292M208,301"
data "M142,377M112,411M106,414M100,407BM373,68M403,70M415,70M410,74M367,94BM413,69"
data "M382,79M370,84BM164,306M200,290M237,272M264,246M261,243M252,244M246,236"
data "M239,234M237,224M232,223M231,219M221,222M202,249M220,239M237,225BM197,256"
data "M217,249M238,233BM197,255M180,277M177,284M191,279M220,257M247,237BM208,212"
data "M210,220M214,220M194,251M193,231M197,219M207,212BM171,284M181,289M193,282"
data "M217,267M251,243BM204,287M176,325M149,360M128,387M112,404M108,402M110,394"
data "M146,332M163,306M167,314M177,313M186,307M195,297M200,291BM265,246M308,232"
data "M333,210M345,194BM343,79M349,76M354,76M359,80M359,83M356,87M351,88M344,85"
data "M342,80BM271,207M274,212M258,223M243,230M240,221M270,207BM281,213M269,231"
data "M255,239M254,235M264,226M280,213BM291,215M283,230M275,237M268,239M272,234"
data "M280,227M286,216M291,214BM303,208M306,209M294,228M284,236M290,226M302,207"
data "BM310,209M313,210M306,223M296,232M302,223M310,209BM267,280M252,306M244,315"
data "M261,347M288,386M285,382M274,391M261,401M251,414M249,429M258,411M272,400"
data "M288,390M294,393M311,400M330,406M332,412M327,397M307,390M294,378M261,328"
data "M262,314M281,280BM301,383M316,368M322,369M317,378M307,389BM233,288M229,311"
data "M239,347M254,371M262,371M276,368M279,373M263,376M283,381M277,385M261,385"
data "M251,383M237,406M238,391M244,373M229,348M213,314M212,299BM235,215M276,194"
data "M278,206M272,200M235,217M234,214BM279,192M288,189M288,208M282,202M279,191"
data "BM291,190M302,188M306,198M294,205M291,190BM305,186M312,186M316,198M314,207"
data "M305,186BM318,188M324,185M327,195M323,201M318,187BM328,184M331,178M336,183"
data "M334,192M328,186M328,184BM340,81M345,89M351,96M359,94M347,102M334,96M332,85"
data "M339,80BM332,85M319,89M316,99M323,107M329,99M329,92M332,85BM330,100M334,102"
data "M330,110M325,108M328,99BM334,108M345,107M348,101M338,97M333,106M335,109"
data "BM352,64M350,69M357,70M358,65M352,65BM363,67M363,73M359,70M363,67BM378,74"
data "M386,72M377,71M377,73BM348,67M338,72M338,75M334,71M341,65M348,66BM344,61"
data "M334,65M329,72M316,80M309,90M307,98M306,112M305,121M309,130M300,131M299,118"
data "M303,102M309,83M321,72M332,63M344,61BM290,141M296,139M299,147M296,149"
data "M297,154M288,155M280,159M284,164M275,165M279,169M266,173M269,177M263,182"
data "M249,188M262,171M270,167M275,156M282,150M286,152M292,148M292,139BM293,121"
data "M296,129M297,132M285,139M285,144M280,144M276,149M271,151M274,152M265,153"
data "M268,159M259,163M261,168M250,172M251,176M242,185M243,194M238,198M243,205"
data "M231,209M226,211M229,216M220,219M235,196M240,185M248,170M264,154M275,144"
data "M284,137M290,131M289,117M293,121BM252,198M269,191M284,182M295,167M300,159"
data "M294,157M285,170M277,178M269,184M258,190M247,194M248,201M253,197BM296,176"
data "M301,183M291,186M290,181M296,174BM325,63M298,90M297,86M313,69M303,73"
data "M310,67M323,62M326,64BM299,94M289,110M295,108M299,94BM285,129M279,136"
data "M272,140M266,144M260,145M254,151M259,155M246,159M251,151M256,143M268,135"
data "M282,127M284,122M284,127BM241,158M244,165M235,174M235,184M228,189M226,194"
data "M217,196M223,201M218,207M215,203M218,190M226,184M231,175M236,164M241,158"
data "BM215,184M211,199M206,206M195,214BM225,279M233,284M254,268M282,255M299,236"
data "BM308,238M289,263M301,254M307,238BM325,120M338,127M328,127M328,132M330,141"
data "M323,150M317,143M327,136M323,128M326,119BM318,151M321,159M320,163M314,171"
data "M307,180M303,169M311,170M311,159M317,161M318,150BM311,110M314,121M320,128"
data "M317,133M310,141M313,147M308,156M306,148M304,138M314,127M311,110BM348,78"
data "M346,80M348,83M352,85M356,81M354,77M347,77BM327,164P4292395658,4278190080"
data "BM331,95P4292395658,4278190080BM284,175P4289171561,4278190080BM281,155"
data "P4289171561,4278190080BM294,128P4289171561,4278190080BM265,154"
data "P4289171561,4278190080BM256,165P4289171561,4278190080BM236,201"
data "P4289171561,4278190080BM236,165P4289171561,4278190080BM219,200"
data "P4289171561,4278190080BM209,197P4289171561,4278190080BM314,163"
data "P4289171561,4278190080BM325,140P4289171561,4278190080BM310,132"
data "P4289171561,4278190080BM303,113P4289171561,4278190080BM315,67"
data "P4289171561,4278190080BM354,65P4289171561,4278190080BM361,69"
data "P4289171561,4278190080BM342,67P4289171561,4278190080BM338,87"
data "P4289171561,4278190080BM323,92P4289171561,4278190080BM337,101"
data "P4289171561,4278190080BM330,105P4289171561,4278190080BM307,215"
data "P4289171561,4278190080BM299,215P4289171561,4278190080BM283,224"
data "P4289171561,4278190080BM268,224P4289171561,4278190080BM262,214"
data "P4289171561,4278190080BM273,198P4289171561,4278190080BM331,183"
data "P4289171561,4278190080BM323,188P4289171561,4278190080BM311,190"
data "P4289171561,4278190080BM297,194P4289171561,4278190080BM294,180"
data "P4289171561,4278190080BM281,195P4289171561,4278190080BM284,125"
data "M285,129BM273,135P10981481,4278190080BM386,81P4291072122,4278190080"
data "BM391,72P4290884512,4278190080BM283,267P4290750600,4278190080"
data "BM301,249P10981481,4278190080BM203,224P4286804327,4278190080"
data "BM218,229P4286804327,4278190080BM231,239P4286804327,4278190080"
data "BM243,257P4285093952,4278190080BM281,244P4288910440,4278190080"
data "BM180,304P4288315750,4278190080BM158,331P4285423692,4278190080"
data "BM294,105P10981481,4278190080BM351,78P4278200320,4278190080BM223,318"
data "P4288438340,4278190080BM261,336P4288438340,4278190080BM318,370"
data "P4288438340,4278190080BM225,213P10981481,4278190080BM355,84"
data "P4286205754,4278190080BM419,140P4291399774,4278190080BM248,294"
data "P4291399774,4278190080"
data "ENDDATA"
rem ==============================================================================

Résultat:

Un autre cartoon

Code:: rem ==============================================================================================================================
rem CARTOON III
' D'après Quark
' https://www.freebasic.net/forum/viewtopic.php?f=8&t=22859&p=201343&hilit=snow#p201343
rem ==============================================================================================================================

mode 3,"CARTOON III",640,480
Dim dStr$, tStr$
Read tStr
While tStr <> "enddata"
dStr &= tStr
Read tStr
Wend

trace dStr
repeat : until len(inkey())
rem ================================================================================================================================
Data " C4278190080BM0,0M639,0M639,479M0,479M0,0BM1,1M638,1M638,478M1,478M1,1BM2,2M637,2M637,477M2,477M2,2BM3,3M636,3M636,476M3,476M"
Data "3,3BM71,476M74,460M75,441M72,432M76,418M75,400M78,381M78,369M88,363M91,337M88,333M87,328M89,311M84,291M85,288M93,276M102,263M"
Data "115,256M138,239M158,228M172,230M170,230M174,216M179,203M178,194M172,182M164,180M163,171M162,160M160,159M157,154M161,135M164,1"
Data "25M167,118M167,115M157,101M151,92M158,59M163,45M167,38M189,29M212,18M238,17M254,15M271,15M292,27M304,35M314,42M324,55M333,75M"
Data "334,87M328,102M325,111M325,119M319,126M319,133M324,142M324,148M322,161M319,168M322,186M324,210M326,216M327,226M326,236M341,23"
Data "9M358,248M372,268M371,274M385,286M403,304M431,339M451,375M458,397M463,408M469,426M476,439M484,449M493,458M502,465M517,476BM71"
Data ",468M57,405M51,401M47,375M38,340M33,318M33,317M37,306M44,302M56,296M65,294M84,289BM52,399M75,395M68,366M58,332M56,316M64,310M"
Data "75,305M85,299BM153,92M152,98M160,106M166,110M169,120M187,129M199,136M203,137M228,136M259,133M303,128M318,125M326,117M325,121M"
Data "325,116M334,89M334,82BM153,87M154,99M168,111M178,119M189,123M201,129M224,130M269,127M302,116M316,113M322,111M326,102M323,112M"
Data "311,121M275,127M246,130M221,131M200,133M188,124M189,118BM167,119M161,136M159,154M158,157M161,157M162,174M173,182M176,188M179,"
Data "195M180,203M186,205M187,215M188,229M190,238M198,241M207,239M211,243M213,236M213,235M222,233M225,234M225,238M225,246M228,257M2"
Data "29,264M230,265M232,270M237,275M242,278M250,281M254,280M262,282M274,286M288,285M302,281M311,277M317,267M322,262M322,247M323,25"
Data "5M325,247M327,244M326,236M327,226M324,210M323,200M322,181M319,174M319,173BM180,201M185,204M189,198M184,195M183,192M183,186M17"
Data "9,180M179,174M176,166M174,156M174,142M174,145M168,144M162,147M162,156M164,165BM174,155M168,152M167,157M169,163M170,168M169,17"
Data "2M170,177BM171,264M189,273M204,289M207,298M210,295M215,316M216,322M222,329M222,341M228,350M228,361M233,379M240,386M247,402M24"
Data "6,414M237,408M248,418M253,428M254,434M259,437M265,446M254,455M264,448M269,443M283,451M296,454M305,458M318,461M326,458M340,458"
Data "M352,461M370,468M382,471M391,474BM208,296M212,297M225,317M240,326M241,345M253,362M266,387M270,400M271,421M307,443M308,444M321"
Data ",445M337,445M359,448M378,465M397,475M389,475BM265,283M280,288M300,297M309,306M327,313M336,319M346,328M351,336M361,342M368,366"
Data "M381,394M397,413M407,430M418,447M426,465M432,477BM395,412M386,393M373,372M362,351M356,331M354,312M350,296M345,286M336,275M329"
Data ",265M322,258M321,261BM360,342M359,329M363,311M365,291M367,280M371,271M369,268M358,255M356,252BM351,275M344,264M337,256M332,25"
Data "2M329,248M327,245BM226,159M226,156M230,153M234,149M236,148M241,150M246,151M248,155M250,156M246,160M239,162M234,162M228,164M22"
Data "7,162BM232,152M234,157M237,159M242,156M243,154M242,151BM227,162M226,158BM238,152M236,155M240,155M242,150M236,151BM231,151M240"
Data ",149M247,149M249,155BM284,150M285,144M296,137M304,137M308,142M306,147M300,151M291,152M284,151BM290,141M291,143M294,147M299,14"
Data "5M300,142M300,139M297,137BM293,141BM294,139M293,142M296,143M297,139BM271,161M283,161M283,156M271,155M268,159M269,161M272,161M"
Data "280,161BM268,158M256,161M243,162M233,166M228,170M219,170M216,169M213,169M211,167M208,166M214,163M205,165M205,163M203,155M204,"
Data "160M194,149M190,151M188,148M191,150M185,143M182,140M182,144M189,148M188,150M192,151M201,158M205,163M208,164M217,171M222,176M2"
Data "27,179M229,182M235,189M248,190M262,185M268,178M270,170M269,161BM281,156M281,152M291,152M307,150BM281,156M287,155M293,152M305,"
Data "151M319,147M320,144M317,139M317,145BM189,235M179,242M172,247M150,247M144,251M143,261M129,268M121,278M124,287M121,295M124,303M"
Data "112,328M112,334M115,347M114,362M106,377M98,387M109,396M104,403M99,411M103,422M91,437M94,444M107,442M98,454M92,462M81,471M96,4"
Data "71M84,474BM154,247M146,243M137,250M115,267M108,276M101,288M101,293M102,304M98,310M98,329M102,338M98,361M94,372M90,380M90,390M"
Data "88,406M88,419M86,432M86,436M86,445M85,454M83,464M82,474BM281,156M278,147M266,146M267,151M267,156M268,156M267,157BM274,171M277"
Data ",178M277,188M273,184M270,185M265,185M258,195M259,204M271,200M274,202M284,204M289,197M289,190M288,184M285,174M281,160BM292,196"
Data "M294,192M297,188M293,181M290,174M283,161BM270,193M272,201BM274,172M274,167M274,160BM263,188M260,194M262,201M270,206M278,209M2"
Data "83,210M293,201M296,188BM260,191M246,213M241,221M242,226M248,217M256,203M259,201BM295,192M297,197M306,207M311,211M310,217M310,"
Data "206M304,198M296,187BM304,221M298,226M293,226M287,229M276,234M269,233M262,231M253,231M248,227M245,225BM303,223M310,215BM304,22"
Data "3M292,236M276,239M267,237M261,232BM289,173M297,177M306,176M313,173BM308,176M316,171M320,164M323,156M323,152M325,152M324,143M3"
Data "23,140M318,132M315,122M316,147BM317,173M315,179M306,181M299,182M293,181BM264,182M252,194BM188,122M187,117M187,113M190,103M190"
Data ",95BM177,90M184,81M189,73M195,61M193,58M189,64BM177,101M172,91M167,84M171,73M174,56M174,53M171,55M169,70BM312,62M315,67M318,6"
Data "7BM215,117M220,111M224,102M227,97M231,91M223,94M220,102BM227,120M231,109M227,106M226,109BM284,113M280,107M277,106M272,96M273,"
Data "104M271,111M275,111BM299,119M315,111M316,108M316,103BM188,126M182,124M176,119M177,118M172,111M166,109M162,107M157,100M158,105"
Data "M159,107M163,112BM258,155M260,148M257,143M249,143BM202,140M210,152M217,164M222,168M232,168M201,137M190,131M183,128M166,118M16"
Data "4,113BM241,224M232,226M227,224M219,225M220,217M216,214M217,206M212,205M212,201M208,201M206,191M204,191M200,182M197,181M198,17"
Data "5M198,173M193,171M192,167M195,161M195,156M196,154BM326,218M322,212M316,208M314,209M310,211BM344,323M320,304M309,297M299,292M2"
Data "91,288M280,288BM290,287M308,290M322,292M334,295M339,295M337,290M328,284M324,277M319,264BM331,295M324,287M321,279M316,267BM358"
Data ",341M355,322M353,309M349,300M348,294M336,274M329,266M321,260BM361,342M361,318M365,297M366,282M369,273BM353,309M351,297M349,28"
Data "1M349,271M352,258M351,251M326,236BM351,303M342,279M331,267M321,256BM244,177M237,181M242,183M253,180M256,180M258,183M261,173M2"
Data "48,176M253,169M241,178BM292,164M296,169M313,166M314,163M296,165M292,163M293,166BM279,151M279,145M280,142BM262,72P4292202438,4"
Data "278190080BM302,120P4281214735,4278190080BM187,121M181,120M174,116M167,109BM202,132M194,129M176,118M168,109BM298,126P429193952"
Data "4,4278190080BM105,310P4283239175,4278190080BM340,271P4283239175,4278190080BM259,417P4283239175,4278190080BM234,274M252,290M27"
Data "1,301M305,316M325,325M341,335M353,347M355,351BM356,350M351,335BM298,307P4283239175,4278190080BM156,315BM94,340P4285742397,427"
Data "8190080BM398,367P4285742397,4278190080BM353,287P4285742397,4278190080BM345,257P4285742397,4278190080BM226,201P4292264631,4278"
Data "190080BM310,190P4292264631,4278190080BM214,148P4286541149,4278190080BM173,175P4289501588,4278190080BM235,155P4283189308,42781"
Data "90080BM292,144P4283189308,4278190080BM239,154P4294967295,4278190080BM295,141P4294967295,4278190080BM274,159P4294967192,427819"
Data "0080BM273,158P4294967230,4278190080BM274,158P4294967230,4278190080BM251,178P4286541149,4278190080BM304,163P4286541149,4278190"
Data "080BM299,167P4286541149,4278190080BM301,167P4286541149,4278190080BM303,165P4286541149,4278190080BM198,197P4291348680,42781900"
Data "80BM250,254P4291348680,4278190080BM243,259P4288716960,4278190080BM252,251P4291348680,4278190080BM338,304P4288125300,427819008"
Data "0BM318,281P4291212444,4278190080BM503,120P4279386386,4278190080BM75,339P4284569163,4278190080BM68,412P4284569163,4278190080BM"
Data "52,340P4288254344,4278190080BM76,203P4279386386,4278190080BM68,167P4279386386,4278190080BM65,208P4279386386,4278190080BM32,19"
Data "3P4278200320,4278190080BM286,234P4289361791,4278190080BM234,181P4292198838,4278190080BM308,160P4292198838,4278190080BM317,148"
Data "M325,147BM318,137P4292198838,4278190080BM244,158P4290294968,4278190080BM302,145P4290294968,4278190080BM291,188P4291277992,427"
Data "8190080BM290,197M294,192BM280,207P4286541149,4278190080BM281,207P4290541123,4278190080BM248,212P4289566347,4278190080BM300,19"
Data "9P4289566347,4278190080BM302,144P4290294968,4278190080BM299,142P4283189308,4278190080BM239,153P4283189308,4278190080BM295,141"
Data "P4283189308,4278190080BM297,144P4283189308,4278190080BM295,143P4283189308,4278190080BM296,139P4294967295,4278190080BM239,156P"
Data "4294967295,4278190080BM319,156M319,152M315,154BM282,186P4292264631,4278190080BM274,151P4292386676,4278190080BM272,149P4293569"
Data "918,4278190080BM381,389P4283239175,4278190080BM324,283P4286541149,4278190080BM311,305P4285742397,4278190080BM360,337M360,321B"
Data "M372,373M368,363BM350,300M350,287BM344,287M338,277BM342,282M339,277M333,270M323,259M328,264M324,264BM215,156P4286541149,42781"
Data "90080BM272,152P4292132789,4278190080BM260,199P4290541123,4278190080"
Data "enddata"
rem =================================================================================================================================

Résultat:

Cartoon IV

Code:: rem ==============================================================================================================================
rem CARTOON IV
' D'après Quark
' https://www.freebasic.net/forum/viewtopic.php?f=8&t=22859&hilit=snow&start=135
rem ==============================================================================================================================

mode 3,"CARTOON IV", 640,480
Dim dStr$, tStr$
Read tStr
While tStr <> "enddata"
dStr &= tStr
Read tStr
Wend

trace dStr
repeat : until len(inkey())
rem ===============================================================================================================================

Data "C4278190080BM0,0M639,0M639,479M0,479M0,0BM1,1M638,1M638,478M1,478M1,1BM2,2M637,2M637,477M2,477M2,2BM3,3M636,3M636,476M3,476M3"
Data ",3BM285,49M285,43M283,38M271,27M252,18M229,14M215,11M197,8M181,7M156,11M137,15M117,24M109,26M101,35M83,51M73,70M55,86M50,97M3"
Data "5,114M33,126M39,118M35,125M29,138M28,151M34,144M29,150M26,161M33,158M29,169M27,178M25,190M26,195M28,188M25,201M28,209M26,213M"
Data "25,224M27,229M30,218M33,225M27,233M30,243M33,248M29,258M31,265M35,273M30,291M21,309M20,332M23,352M27,363M27,386M33,408M39,427"
Data "M46,441M53,451M58,462M64,470M68,478BM285,49M285,52M277,54M270,56M263,57M245,59M236,59M213,57M203,60M199,58M191,61M193,52M187,"
Data "56M181,55M172,62M161,64M148,72M138,79M128,86M116,88M115,94M112,100M103,107M100,111M94,113M96,114M93,125M97,126M77,140M83,141M"
Data "78,148M75,163M68,172M71,169M64,181M63,197M61,206M59,215M55,221M60,217M60,223M60,213M55,220M52,233M50,229M48,242M47,258M48,272"
Data "M45,287M47,297M44,311M44,322M47,324M46,346M47,364M49,362M51,373M60,391M63,390M64,402M65,415M72,423M76,412M75,428M82,432M84,43"
Data "4M85,420M87,434M91,435M87,441M94,442M98,451M104,452M124,453M132,449M139,444M136,436M142,454M146,455M157,465M162,468M162,462M1"
Data "70,471M173,466M171,455M178,461M181,463M186,462M189,463M184,451M193,460M199,459M200,453M199,448M204,455M214,456M223,454M229,45"
Data "2M232,447M238,444M241,443M241,433M243,441M252,434M257,423M257,415M258,423M266,412M263,404M264,408M272,399M276,398M281,382M279"
Data ",349M274,331M271,320M271,302M264,287M262,270M262,257M259,245M255,235M253,229M263,222BM285,47M295,49M316,53M352,64M395,84M426,"
Data "103M447,119M480,150M508,172M535,205M551,228M568,254M575,274M581,285M597,319M601,344M603,370M603,400M598,417M591,434M581,448M5"
Data "77,454M569,432M547,388M511,345M485,314M460,291M436,268M407,248M381,229M348,213M317,198M294,185M278,181M262,172M249,168M241,16"
Data "5BM262,224M254,231M242,240M229,247M218,258M214,255M211,261M211,268M203,268M201,279M196,282BM282,53M279,56M274,65M270,72M266,8"
Data "1M262,93M253,117M249,125M240,135M233,143M228,150M229,160M224,165M221,176M216,184M215,193M219,197M233,207M244,213M259,221M261,"
Data "225M259,226BM365,282M385,326M400,382M406,418M414,451M416,476BM261,222M285,236M307,248M321,256M339,266M370,283M393,297M413,310"
Data "M429,322M449,338M464,350M483,365M504,382M512,392M530,409M539,419M556,440M559,446M563,451M568,453M576,452BM230,116M238,111M239"
Data ",104M239,100M234,91M226,86M215,83M207,87M204,96M205,105M212,113M218,117M229,116M238,107BM220,108M228,107M232,102M229,96M226,9"
Data "4M223,92M217,94M214,99M215,105M219,110M229,107M231,101BM208,102M210,107M216,113M219,115BM245,116M253,102M250,94M250,87M251,98"
Data "M253,88BM216,118M220,120M229,120BM229,124M215,124M209,121M202,111M199,104M199,97M201,87M206,80M213,78M226,79M238,89M242,93BM3"
Data "09,52M313,57M306,59M296,63M296,69M295,76M292,83M293,90M294,96M290,96M289,98M285,101M284,106M281,106M276,114M276,119M270,127M2"
Data "70,133M266,135M261,142M256,147M254,150M250,154M251,163M249,166M245,172M250,174M242,177M236,184M242,184M235,187M233,190M235,19"
Data "4M229,199M234,206BM253,94M256,87M256,78M248,72M245,63M231,70M222,66M215,63M201,66M197,70M191,72M187,79M181,87M174,90M178,98M1"
Data "75,106M184,112M186,117M188,117M190,119M193,127M199,130M216,134M225,135M232,132M236,130M244,126M249,123M246,113M214,194M210,19"
Data "6M208,200BM178,88M174,83M173,72M175,64M180,57BM161,114M166,121M153,126M159,134M156,140M159,142M158,152M155,153M166,155M156,16"
Data "5M162,165M164,173M172,169M171,175M183,169M185,174M192,171M195,176M198,176M205,173M210,173M216,176M214,191BM226,455M236,464M24"
Data "9,467M258,467M267,464M273,469M272,457M276,451M275,441M271,432M267,424M273,419M271,411M284,411M286,419M292,426M300,430M294,438"
Data "M301,442M292,446M297,455M307,468M312,463M322,476BM316,455M327,449M330,469M327,471M316,456M327,450BM363,467M362,459M357,459M35"
Data "5,464M360,468M362,468BM357,443M359,447M361,454M367,453M368,448M364,440M358,442M357,443BM393,475M399,467M392,452M400,440M394,4"
Data "26M394,414M389,399M392,387M383,369M384,356M384,347M371,344M366,344M362,341M366,329M364,317M360,299M355,294M351,298M351,320M34"
Data "7,319M348,292M343,296M340,290M354,289M350,273BM286,99M300,105M306,106M311,109M319,110M331,118M335,123M344,123M351,126M356,133"
Data "M358,137M368,142M371,142M384,156M398,168M414,185M419,187M426,197M434,206M441,215M451,228M461,243M469,256M471,263M471,264M472,"
Data "266M475,268M475,270M479,275M497,296M508,303M519,315M533,332M549,356M554,373M561,390M560,403M558,410BM296,71M301,70M312,68M311"
Data ",81M318,81M330,78M336,83M343,86M350,91M353,88M360,85M364,91M369,92M372,97M387,101M390,107M399,101M402,109M408,117M421,125M426"
Data ",130M438,135M445,139M449,148M452,147M460,144M457,150M461,154M470,159M474,166M479,168M483,171M489,175M490,184M493,184M508,196M"
Data "508,198M508,201M521,212M525,218M519,211M527,227M532,229M530,235M540,239M540,252M545,249M549,260M556,258M563,266M561,273M556,2"
Data "80M559,290M565,291M569,292M577,300M577,312M576,319M589,328M589,336M596,342M601,346BM234,140M226,144M222,145M215,144M210,150M2"
Data "06,142M201,142M199,137M191,137M186,126BM228,151M215,165M214,161M202,168M203,163M194,168M193,164M190,167M183,163M175,169M173,1"
Data "58M171,153M173,150M165,136M172,132M172,124M173,116M182,109BM175,114M168,105M170,95M167,91M173,80M171,76M174,71M174,65M181,61M"
Data "192,55BM175,104M168,93M167,85M166,79M167,70M169,63M174,59BM164,119M161,112M160,100M158,96M162,85M160,77M159,70M175,61BM158,13"
Data "8M146,139M130,140M126,132M121,130M122,127M115,121M123,111M117,107M126,105M120,100M126,93M127,89M134,82BM198,218M185,229M168,2"
Data "38M160,224M156,231M153,244M145,248M129,252M129,247M122,256M112,253M107,245M111,239M103,253M97,247M94,260M89,257M84,266M79,267"
Data "M76,266BM207,204M193,211M187,208M183,211M176,206M172,217M164,200M154,214M146,214M144,229M140,236M132,236M126,230M122,233BM157"
Data ",151M149,154M143,156M124,161M115,169M103,170M96,170M90,167M83,177M81,171M78,171M76,178M72,176M75,160BM145,156M137,154M130,155"
Data "M125,152M115,155M110,159M105,148M101,142M93,145M95,134M91,137M94,126BM216,185M205,192M194,192M187,198M178,193M159,196M145,190"
Data "M135,187M119,179M118,167BM121,233M126,221M117,219M104,224M94,223M80,233M73,241M64,246M57,242M60,219BM174,427M168,420M173,434M"
Data "169,441M165,432M161,449M156,444M154,449M152,436M149,434M145,438M131,433M122,433M116,430M101,419BM234,244M240,261M243,274M243,"
Data "282M240,293M235,305M230,303M235,295M228,285M227,287M220,284M218,293M212,302M209,317M199,320M195,332M193,341M189,337BM241,291M"
Data "245,311M249,334M234,330M232,347M213,338M205,352M190,346M181,351M179,345M168,344M165,325M160,314M159,326M157,328M154,333M151,3"
Data "31M151,337M148,346M142,343M138,347M126,343M125,353M105,347M100,355M82,350M61,350M55,333M44,310BM248,255M252,268M255,287BM250,"
Data "242M253,257BM255,378M253,397M245,392BM162,357M159,369M169,370M168,378M167,385M171,375M172,389M169,403M175,394M169,411M161,403"
Data "M149,413M143,403M136,412M132,412M121,414M115,398M105,400M83,389M71,377M56,369M47,351BM167,263M161,263M156,278M139,271M138,282"
Data "M132,281M128,280M119,274M115,279M113,278M109,294M100,289M95,292M90,294M93,298M88,295M88,306M85,309M85,319M80,315M77,325M70,31"
Data "7M70,327M66,322M63,330M60,322M59,332M55,311M54,322M45,302BM190,307M186,286M178,308M174,317M171,297M170,316M162,302M156,304M15"
Data "4,315M147,301M145,313M136,319M134,315M120,319M114,327M106,332M95,332M85,338M73,337M64,338M56,335BM221,393M218,406M207,400M202"
Data ",412M200,405M193,416M193,403M182,410M178,406M174,407M173,395BM194,52M213,51M241,52M252,52M246,47M251,43M247,40M254,39M252,34M"
Data "263,39M259,30M258,30M242,21M235,24M241,29M234,30M233,21M223,22M219,22M219,26M212,28M200,23M208,19M205,17M189,14M177,11M164,16"
Data "M165,25M159,24M160,17M135,21M126,36M115,34M96,42M94,55M85,64M74,80M66,85M69,90M62,101M46,106M48,115M41,126M59,117M59,125M45,1"
Data "32M39,142M37,149M50,146M45,153M40,162M37,172M36,186M33,195M34,205M37,216M33,224M34,226M37,235M35,246M39,252M36,262M39,280M36,"
Data "288M25,307M22,308M21,311M21,316BM27,385M22,383M17,389M6,386M2,401BM22,347M17,325M12,309M7,315M2,292BM30,166M19,178M9,172M5,17"
Data "6M2,198BM236,16M249,13M270,20M283,30M308,29M318,15M324,3BM636,193M629,213M621,202M613,214M599,236M580,223M566,197M530,180M510"
Data ",173BM460,130M457,115M457,92M472,66M445,35M406,25M376,22M343,0BM471,66M491,54M509,64M534,79M542,76M558,52M578,39M581,42M605,5"
Data "9M623,63M637,17BM603,361M609,369M614,384M622,408M630,427M638,425BM536,415M529,433M503,444M477,434M450,410M429,420M424,419M397"
Data ",365BM236,108M235,102M234,96M217,87M211,88M205,92BM263,283M273,286M284,273M291,273M280,255M276,254M276,248M271,235M262,222BM2"
Data "74,330M286,321M295,311M297,302M298,309M306,303M310,296M313,293M309,276M317,285M318,280M318,275M319,273M322,266M326,260BM276,3"
Data "40M286,335M296,327M302,314M306,314M312,307M320,295M324,285M332,282M332,265BM226,450M243,468M256,472M261,467M274,467M273,461M2"
Data "80,453M277,439M271,421M269,404M279,418M279,430M289,427M303,402M312,383M316,362M331,357M333,337M351,335M356,322M354,290BM263,4"
Data "17M271,437M269,424M275,418M289,434M294,445M300,458M316,477BM295,467M319,448M329,445M329,431M345,433M349,420M359,412M360,397M3"
Data "75,392M373,377M380,371M384,356M387,343BM324,415M353,437M367,413M382,414M389,385M389,380M385,353BM310,399M343,401M345,382M356,"
Data "390M360,373M369,379M371,360M372,345M379,344BM347,475M352,460M355,440M355,425M375,417M384,405M388,392BM341,387M353,400M357,396"
Data "M356,388BM328,398M335,411M349,416M342,401M340,400BM364,462M360,458M356,462M356,467M360,468M364,466BM357,450M361,455M366,455M3"
Data "66,446M362,437M355,440M354,449M360,456BM621,260P4282122240,4278190080BM32,60P4284111374,4278190080BM418,366P4282127420,427819"
Data "0080BM444,358P4282127420,4278190080BM467,388P4280749863,4278190080BM21,7P4291875071,4278190080BM25,23P4291875071,4278190080BM"
Data "19,274P4287729940,4278190080BM20,424P4279386386,4278190080BM523,450P4278986318,4278190080BM499,455P4278328117,4278190080BM600"
Data ",125P4280948229,4278190080BM493,39P4288236805,4278190080BM432,41P4287729940,4278190080BM9,368P4284356118,4278190080BM343,32P4"
Data "284111374,4278190080BM126,52P4281808695,4278190080BM180,41P4281808695,4278190080BM101,60P4286611584,4278190080BM93,98P4286611"
Data "584,4278190080BM93,98P4286611584,4278190080BM176,42P4284440415,4278190080BM271,48P4286611584,4278190080BM271,50P4286611584,42"
Data "78190080BM276,37P4288716960,4278190080BM263,45P4281808695,4278190080BM264,46P4288716960,4278190080BM270,45P4291348680,4278190"
Data "080BM142,43P4281808695,4278190080BM202,85M198,89M196,89M194,97M195,82M193,85M190,84M189,87M189,81M183,85BM204,115M200,119M194"
Data ",117M199,126M191,122BM191,99P4281046586,4278190080BM230,124M244,118M251,100M249,90M245,85M239,91BM244,90P4278254506,427819008"
Data "0BM210,70P4278250305,4278190080BM215,129P4278250305,4278190080BM203,242P4294298164,4278190080BM119,385P4293244970,4278190080B"
Data "M369,315P4282733371,4278190080BM324,460P4293060070,4278190080BM360,445P4293060070,4278190080BM319,423M323,434M323,439M320,442"
Data "M315,437M316,428M320,425BM319,437P4293060070,4278190080BM267,246P4283240704,4278190080BM249,443P4279637510,4278190080BM298,37"
Data "2M287,363M288,354M292,352M298,363M300,372BM310,426M314,414M311,405M307,408M302,405M301,414M309,423M312,423BM310,416P429306007"
Data "0,4278190080BM298,311P4282139193,4278190080BM276,340M273,325BM334,265M323,259M332,265BM323,326P4284698948,4278190080BM324,343"
Data "P4284037893,4278190080BM288,297P4284037893,4278190080BM308,415P4291348680,4278190080BM318,436P4291348680,4278190080BM324,461P"
Data "4291348680,4278190080BM363,449P4291348680,4278190080BM359,463P4291348680,4278190080BM366,357P4282139193,4278190080BM322,436M3"
Data "30,441BM318,426M328,420M338,412BM344,365P4284037893,4278190080BM325,281M326,281M322,278BM295,316P4280948229,4278190080BM353,3"
Data "99P4280948229,4278190080BM356,313M353,348M339,351M339,359M331,377M321,378M315,390M303,403M294,405M283,413BM321,369P4280948229"
Data ",4278190080BM292,416P4280948229,4278190080BM301,372M296,373BM292,360P4291348680,4278190080BM377,436P4284558593,4278190080BM37"
Data "9,391P4284558593,4278190080BM339,460P4284558593,4278190080BM292,361P4288716960,4278190080BM304,414P4288716960,4278190080BM319"
Data ",434P4288716960,4278190080BM322,460P4288716960,4278190080BM362,449P4288716960,4278190080BM358,463P4288716960,4278190080BM512,"
Data "310M519,315M537,314M548,311M554,306M556,300M556,295M556,281BM507,387M501,377M509,380M510,368M507,357M501,356M498,350M502,342M"
Data "489,331M483,329M475,327M475,324M478,317M473,312M463,309M461,307M459,302M455,294M451,296M455,286BM498,349M490,350M479,343M466,"
Data "336M454,319M454,312M448,302M434,295M419,295M411,287M399,290M399,283M392,278M384,281M382,280M382,273M378,270M371,271M365,270M3"
Data "64,263M358,252M350,250M347,259M343,244M336,241M322,232M320,232M312,221M294,214M283,208M283,202M275,197M274,188M296,187BM556,2"
Data "88M534,296M510,282M518,269M511,266M503,247M496,245M473,244M473,236M472,230M459,217M446,206M448,202M442,200M440,199M436,197M42"
Data "2,189M486,284M500,308M479,290M493,310M472,294M475,305BM375,185P4294945058,4278190080BM533,351P4294919428,4278190080BM586,375P"
Data "4294901763,4278190080BM534,398P4294901763,4278190080BM378,89P4294376001,4278190080BM446,177P4278255566,4278190080BM405,274P42"
Data "78243487,4278190080BM492,260P4278241837,4278190080BM493,266P4278248525,4278190080BM295,221P4278238295,4278190080BM212,105P429"
Data "3357074,4278190080BM222,102P4278190080,4278190080BM237,103P4278190080,4278190080BM34,67P4284111374,4278190080BM14,91P42841113"
Data "74,4278190080BM86,154P4292583969,4278190080BM105,130M105,130BM105,123P4292721192,4278190080BM161,107M153,101M146,103M145,110M"
Data "137,106M138,113M129,106M131,111M122,111BM142,96P4288268845,4278190080BM138,124P4292802627,4278190080BM199,139M196,137M194,145"
Data "M188,140M191,148M181,139M184,146M175,141M176,149M168,140BM183,122P4278235936,4278190080BM191,155P4288070195,4278190080BM259,6"
Data "9P4286381889,4278190080BM162,134P4285640746,4278190080BM146,178P4292984874,4278190080BM170,87P4281522233,4278190080BM171,90P4"
Data "281522233,4278190080BM266,113P4281081859,4278190080BM174,109P4278237989,4278190080BM170,76P4286381889,4278190080BM169,78P4286"
Data "381889,4278190080BM244,123P4286381889,4278190080BM242,129P4286381889,4278190080BM230,151P4286381889,4278190080BM230,149P42863"
Data "81889,4278190080BM229,150P4286381889,4278190080BM281,421P4280948229,4278190080BM292,430P4280948229,4278190080BM275,417P428094"
Data "8229,4278190080BM268,420P4288236805,4278190080BM273,432P4288236805,4278190080BM252,470P4288236805,4278190080BM255,470P4288236"
Data "805,4278190080BM351,293P4284037893,4278190080BM385,366P4284037893,4278190080BM369,417P4280948229,4278190080BM356,429P42809482"
Data "29,4278190080BM354,435M361,421BM357,428P4280948229,4278190080BM357,426P4280948229,4278190080BM356,431M356,425M357,425M357,429"
Data "M358,427M358,424M363,420M358,424BM299,458M293,446M294,446M298,456BM380,413P4280948229,4278190080BM381,413P4280948229,42781900"
Data "80BM381,412P4280948229,4278190080BM379,414M382,410M380,413M382,409M380,414M383,410BM281,427P4280948229,4278190080BM340,408P42"
Data "88716960,4278190080BM348,390P4288716960,4278190080BM311,468P4288716960,4278190080BM356,446P4288716960,4278190080BM20,317M24,3"
Data "29M26,344M28,353M30,370M31,388M36,404M42,423M52,443M63,464M73,474BM81,453P4288716960,4278190080BM72,473M74,476BM47,409P428444"
Data "0415,4278190080BM37,344P4281808695,4278190080BM40,424P4279834905,4278190080BM271,409P4280948229,4278190080BM266,466P428094822"
Data "9,4278190080BM267,466P4280948229,4278190080BM266,467P4280948229,4278190080BM267,467P4280948229,4278190080BM262,466M265,466M26"
Data "8,467M268,464M268,465"
Data "enddata"
rem ================================================================================================================================

Résultat:

Cartoon V

Code:: rem ===============================================================================================================================
rem CARTOON V
' D'après Quark
' https://www.freebasic.net/forum/viewtopic.php?f=8&t=22859&hilit=snow&start=165
rem ===============================================================================================================================

mode 3,"CARTOON V", 640,480
Dim dStr$, tStr$
Read tStr
While tStr <> "enddata"
dStr &= tStr
Read tStr
Wend

trace dStr
repeat : until len(inkey())
rem ===============================================================================================================================

Data " C4278190080BM0,0M639,0M639,479M0,479M0,0BM1,1M638,1M638,478M1,478M1,1BM2,2M637,2M637,477M2,477M2,2BM3,3M636,3M636,476M3,476M"
Data "3,3BM1,226M338,225M353,207M358,206M355,190M389,188M386,203M388,208M391,212M397,199M400,196M441,179M435,182M428,168M420,170M41"
Data "8,164M424,148M427,122M437,112M447,112M459,105M470,105M478,103M493,103M500,104M507,108M518,122M522,134M523,150M519,158M509,168"
Data "M505,169M506,161M500,166M498,164M493,166M492,161M487,165M485,167M479,163M476,169M471,165M468,167M463,164M461,164M457,163M448,"
Data "150M450,141M446,129M441,126M439,136M439,144M434,144M437,131M435,123M432,121BM417,161M406,161M396,158M387,155M373,145M369,136M"
Data "368,123M374,104M389,93M407,87M427,77M452,69M470,69M498,68M524,70M536,76M554,87M565,99M566,124M562,134M545,152M534,160M520,165"
Data "M512,165BM420,80M419,76M423,68M431,63M439,63M445,57M448,57M458,53M461,49M467,49M479,54M485,52M486,51M501,54M509,53M513,56M515"
Data ",68BM506,168M504,176M500,177M481,179M467,179M458,177M449,173M440,173M438,181M435,183M442,182M446,184M461,191M465,196M478,197M"
Data "495,197M508,190M512,184M512,173M539,179M551,181M554,182M565,189M569,197M573,242M575,257M578,279M579,289M579,300M577,315M573,3"
Data "43M570,356M566,370M567,378M569,385M575,397M580,402M584,415M584,434M584,449M584,463M582,476BM572,223BM571,224M637,224BM339,226"
Data "M339,228M335,233M334,239M332,245M331,248M334,250M332,254M328,264M324,276M322,292M323,305M328,317M332,323M334,325M339,330M343,"
Data "338M364,337M387,317M408,286M417,277M429,259M427,284M426,296M421,305M413,310M409,309M407,301M405,294M405,290BM426,268M431,249M"
Data "436,229M431,215M420,203M409,195M400,199M393,209BM398,204M380,237M370,251M365,261M356,273M350,286M347,291M341,295BM331,251M337"
Data ",249M352,250M361,256M365,258M374,244M370,236M360,232M351,232M342,232M336,237M332,240BM357,220M374,218M381,209M383,209M386,206"
Data "M392,214M386,223M385,219BM361,219M355,189M360,187M371,185M380,186M388,187BM379,475M393,449M398,436M398,430M402,411M397,404M39"
Data "6,396M396,381M393,360M398,354M400,363M410,372M432,370M455,367M483,360M502,357M519,353M535,350M549,345M547,337M557,282M562,252"
Data "M566,234M569,216M569,203BM399,357M401,346M399,332M397,314M397,302M400,345M403,350M415,357M439,355M484,349M489,350M497,345M500"
Data ",325M497,343M505,344M519,343M531,341M543,337M548,326BM548,332M565,372M557,382M522,393M497,400M483,403M452,407M430,409M410,407"
Data "M397,399M396,396BM522,449M522,458M520,467M512,472M507,476BM393,362M396,366M401,372M404,375M424,376M456,375M486,368M516,362M54"
Data "5,356M553,350M551,338BM1,271M325,271BM1,295M322,295BM577,274M636,274BM579,299BM579,295M636,295BM69,226M68,205M71,187M65,192M5"
Data "8,186M53,176M54,156M53,155M55,97M68,90M75,86M90,83M91,63M99,53M111,51M126,54M130,59M131,84M130,83M137,82M146,86M149,90M160,89"
Data "M170,94M172,101M171,163M160,169M150,164M136,202M132,202M130,192M139,170M129,192M128,197M124,197M118,203M114,199M114,191M124,1"
Data "53M113,190M109,196M105,193M107,188M113,170M115,153M118,142M122,131M132,130M145,139M155,144M157,141BM144,138M148,164M154,164BM"
Data "150,163M151,175M157,183M160,223M159,225BM77,103M76,155M52,156BM64,167M82,158M84,148M93,148M95,148M91,155M99,155M103,151M109,1"
Data "55M109,163M107,166M88,167M82,159BM88,166M69,184M59,188BM93,152M109,138M114,138M118,138BM109,142M114,142M116,143BM111,143M111,"
Data "138BM357,203M385,203BM89,82M92,88M96,99M104,105M111,105M116,105M127,98M130,89M131,82BM99,87M107,90BM115,89M121,88BM107,96M107"
Data ",99M110,101M113,100M114,96BM11,153M27,141M53,142M53,156M11,154M10,168M52,169BM26,142M12,142M11,2M28,2M26,141BM171,154M383,153"
Data "BM163,168M417,167BM577,275M637,275BM542,155M630,154M630,166M509,167BM397,388M400,391M405,393M412,393M417,397M426,395M433,397M"
Data "442,395M451,399M459,396M467,396M474,390M484,392M489,387M494,387M499,383M510,382M518,378M524,377M530,373M537,374M542,372M550,3"
Data "72M553,368M558,369M560,366M553,356BM401,374M400,392BM411,374M411,394BM425,377M425,395BM442,375M443,396BM457,375M459,396BM471,"
Data "371M473,392BM484,369M487,386M488,387BM497,368M500,382BM512,364M517,380BM526,361M530,373BM538,357M543,373BM547,356M554,368BM55"
Data "3,357M552,353BM91,67M93,75M98,79M105,82M115,83M123,79M128,75M130,70BM123,53M129,49M134,45M144,45M154,44M181,44M190,44M201,43M"
Data "211,51M220,58M224,63M225,74M226,107M223,123M216,131M212,132M205,128M205,142M253,144M255,146M259,149BM258,148M286,149M291,145M"
Data "291,144M307,143M312,148M340,150M344,143M371,143BM554,143M569,144M575,147M604,148M608,143M620,143M631,153M628,154BM204,61M205,"
Data "65M205,128BM171,142M204,141BM146,44M146,30M148,24M151,19M155,14M159,13M162,12M168,11M175,14M180,18M185,26M185,39M185,42BM20,3"
Data "29M110,327M110,432M21,435M20,329BM150,328M241,327M241,433M151,432M150,329BM369,333M370,433M279,432M279,325M337,328BM22,477M20"
Data ",454M111,455M111,476BM153,476BM152,477M152,456M239,456M239,477BM280,475M279,456M370,455M370,475BM629,475M629,454M583,454BM575"
Data ",324M630,324M630,430M583,430BM253,144M254,106M256,99M261,96M280,95M284,95M289,98M292,143BM260,105M286,104M286,134M260,135M259"
Data ",105M258,103BM266,94M266,68M266,66M266,62M280,62M283,64M283,66M280,71M281,93M280,95BM428,168M426,160M424,154M424,148M425,149B"
Data "M343,98M333,95M333,71M337,67M328,65M326,64M319,64M317,67M319,70M332,70M320,70M320,95M314,96M310,99M307,106M307,143BM313,103M3"
Data "38,104M338,131M314,133M312,103BM343,142M341,99M337,95M333,95BM385,95M384,71M399,69M399,89M398,69M402,69M402,66M397,64M387,64M"
Data "383,65M383,67M384,72BM613,143M613,4BM613,143M630,143M630,3BM570,102M574,98M578,96M599,96M602,96M605,100M606,100M607,143BM582,"
Data "95M582,71M596,71M596,96BM576,110M602,110M602,138M577,138M576,113BM570,143M570,108M571,103M578,101M582,99BM597,67M594,62M583,6"
Data "2M581,64M578,65M578,69M583,70BM595,69M598,67M597,64M594,62BM596,69M598,66M596,62M588,62M579,64M579,65M579,67M581,69BM583,63M5"
Data "80,63M579,65M578,65M580,68M581,68M579,65M580,63M584,64BM596,70M599,68M599,64M596,62BM422,154M428,122BM433,180M425,165M424,160"
Data "M424,152BM35,348M93,348M93,419M33,419M33,349M37,348BM168,349M223,349M223,413M164,413M164,350M171,350BM295,349M351,349M351,416"
Data "BM350,415M294,415M294,349BM572,349M613,349M613,415M582,415BM28,35M145,35BM185,35M612,35BM449,432M462,432M470,429M481,426M492,"
Data "426M495,453M482,465M466,470M450,465M440,429M448,433BM543,417M559,411M569,402M572,400M580,426M572,441M561,447M543,446M534,417M"
Data "544,416BM430,423M464,424M481,418M495,413M501,458M486,473M463,479M438,468M427,420BM524,409M538,457M559,463M571,457M582,438M584"
Data ",425M574,395BM224,122M254,122BM27,122M53,122BM297,122M306,122BM350,122M367,122BM566,122M569,122BM606,122BM607,123M612,119M610"
Data ",85M611,76M606,71M602,70M603,47M606,44M605,42M593,42M587,43M587,45M589,49M603,47M590,50M590,62BM260,95M262,84M265,80BM287,75M"
Data "293,76M297,80M297,123M291,127BM280,74M286,75M287,50M290,46M288,43M275,43M272,47M274,48M287,48M274,49M274,62BM315,81M317,77BM3"
Data "15,95M315,82M317,76M319,75M320,74BM343,129M351,126M349,80M344,75M339,73M339,49M343,44M341,42M328,43M324,44M325,48M326,49M339,"
Data "48M327,51M327,62M326,47M339,51BM326,47M339,48M329,50M334,47BM381,98M379,77M382,76BM392,62M392,48M403,49M405,73M410,74M414,74M"
Data "417,76M419,77BM392,48M387,45M391,42M404,42M407,46M402,49BM379,82M378,98M376,99M378,97M378,84BM375,101M382,97M378,98M379,90M37"
Data "9,96BM437,60M437,48M449,48M450,55M448,55M448,48M452,45M449,43M436,43M435,46M436,48BM511,55M511,49M523,49M523,70BM522,48M526,4"
Data "6M521,43M513,43M509,46M511,49BM412,448P4281165000,4278190080BM409,458P4286770175,4278190080BM523,411M544,407M559,402M570,392M"
Data "573,391BM427,423M431,423BM403,444P4278860920,4278190080BM438,436P4278860920,4278190080BM435,428P4281165000,4278190080BM533,42"
Data "4P4281165000,4278190080BM463,449P4278860920,4278190080BM556,423P4278860920,4278190080BM77,16P4279514935,4278190080BM51,69P428"
Data "2681223,4278190080BM239,57P4282681223,4278190080BM416,77M417,82BM327,63M437,62M437,60BM41,57P4285783260,4278190080BM238,70M23"
Data "8,70BM239,71P4285783260,4278190080BM361,86P4285783260,4278190080BM581,71M574,77M574,98BM340,89P4294967295,4278190080BM331,55P"
Data "4294967295,4278190080BM399,57P4294967295,4278190080BM403,78P4294967295,4278190080BM382,76M385,74BM440,54P4294967295,427819008"
Data "0BM360,77P4284138435,4278190080BM416,70P4284138435,4278190080BM365,84P4284138435,4278190080BM249,54P4284138435,4278190080BM57"
Data ",53P4284138435,4278190080BM404,73M402,54BM367,84P4284138435,4278190080BM151,44M147,26BM179,43M183,26BM185,43M185,42BM110,68P4"
Data "279834905,4278190080BM112,61P4281808695,4278190080BM157,28P4281808695,4278190080BM327,62M303,62M319,32BM483,52M498,36BM367,53"
Data "P4280834650,4278190080BM18,37P4284558593,4278190080BM621,68P4284558593,4278190080BM10,142M10,72M11,143M11,69BM28,162P42845585"
Data "93,4278190080BM419,167M416,167BM209,161P4284558593,4278190080BM419,160M411,161BM402,123P4288236805,4278190080BM469,57P4294736"
Data "132,4278190080BM33,150P4290314168,4278190080BM195,148P4290314168,4278190080BM559,148P4290314168,4278190080BM237,129P429169044"
Data "5,4278190080BM34,133P4291690445,4278190080BM297,134P4291690445,4278190080BM354,134P4291690445,4278190080BM567,135P4291690445,"
Data "4278190080BM31,146P4287755665,4278190080BM190,148P4287755665,4278190080BM564,148P4287755665,4278190080BM20,208P4288430492,427"
Data "8190080BM250,197P4288430492,4278190080BM583,189P4288430492,4278190080BM14,207P4284425055,4278190080BM218,200P4284425055,42781"
Data "90080BM593,203P4284425055,4278190080BM123,288P4284558593,4278190080BM594,283P4284558593,4278190080BM55,244P4294361996,4278190"
Data "080BM590,252P4294361996,4278190080BM8,315P4289341480,4278190080BM594,314P4289341480,4278190080BM171,139M153,140BM151,144M151,"
Data "107BM167,139M169,141BM87,122P4288716960,4278190080BM74,163M74,154BM59,177P4294967295,4278190080BM71,164M60,163BM96,173P429496"
Data "7295,4278190080BM69,187BM58,185M70,187M85,167BM65,189P4294967295,4278190080BM64,189P4294967295,4278190080BM64,188P4294967295,"
Data "4278190080BM64,188P4294967295,4278190080BM63,188P4294967295,4278190080BM64,189P4294967295,4278190080BM66,189P4294967295,42781"
Data "90080BM66,189P4294967295,4278190080BM65,189P4284425055,4278190080BM121,97P4294361996,4278190080BM72,172P4294361996,4278190080"
Data "BM93,159P4294361996,4278190080BM164,152P4294361996,4278190080BM438,158BM435,164P4294361996,4278190080BM431,122M430,121BM477,1"
Data "30P4284558593,4278190080BM421,162P4284558593,4278190080BM421,158P4294361996,4278190080BM157,59P4291348680,4278190080BM31,337P"
Data "4289341480,4278190080BM27,406P4286384136,4278190080BM160,344P4286384136,4278190080BM285,335P4286384136,4278190080BM76,468P428"
Data "6384136,4278190080BM186,468M185,468BM192,468P4286384136,4278190080BM321,464P4286384136,4278190080BM606,463P4286384136,4278190"
Data "080BM616,425P4286384136,4278190080BM57,393P4281046586,4278190080BM70,397P4279525140,4278190080BM208,385P4279525140,4278190080"
Data "BM306,387P4279525140,4278190080BM595,369P4279525140,4278190080BM375,226P4294361996,4278190080BM367,210P4294736132,4278190080B"
Data "M495,247P4290541123,4278190080BM372,295P4294935170,4278190080BM354,244P4294935170,4278190080BM415,295P4294935170,4278190080BM"
Data "570,312P4294935170,4278190080BM441,362P4286611584,4278190080BM490,394P4286611584,4278190080BM512,177M512,172M510,170M508,170B"
Data "M483,189P4281046586,4278190080BM552,354M554,351BM552,361P4281046586,4278190080BM554,362P4281046586,4278190080BM552,359P428104"
Data "6586,4278190080BM553,364P4294967295,4278190080BM557,364BM559,365M562,364BM557,357P4294967295,4278190080BM404,382P4288236805,4"
Data "278190080BM416,387P4288236805,4278190080BM435,386P4288236805,4278190080BM452,386P4288236805,4278190080BM466,383P4288236805,42"
Data "78190080BM481,383P4288236805,4278190080BM493,381P4288236805,4278190080BM522,369P4288236805,4278190080BM535,368P4288236805,427"
Data "8190080BM546,366P4288236805,4278190080BM553,361P4288236805,4278190080BM555,355P4288236805,4278190080BM398,375P4288236805,4278"
Data "190080BM395,395M418,403M465,402M503,393M536,380M551,377M559,373M563,367BM486,366P4288236805,4278190080BM495,389P4288236805,42"
Data "78190080BM398,356M412,365M454,361M521,349M541,343M549,341BM444,358P4294935170,4278190080BM366,196P4291690495,4278190080BM109,"
Data "155M117,149M109,143M115,150M83,171BM84,170M111,170M111,178M78,179M77,179BM146,178M154,180BM90,178P4281808695,4278190080BM83,1"
Data "78P4281808695,4278190080BM93,176P4281808695,4278190080BM149,177P4281808695,4278190080BM254,116M258,116BM285,116M289,116BM280,"
Data "145P4294736132,4278190080BM84,250P4294967192,4278190080BM70,235P4294967192,4278190080BM592,254P4294967192,4278190080BM96,248P"
Data "4293322255,4278190080BM607,247P4293322255,4278190080BM72,254P4287729940,4278190080BM613,240P4287729940,4278190080BM580,405P42"
Data "78860920,4278190080BM579,405P4278860920,4278190080BM308,129M313,129BM340,129BM338,129M341,129BM317,137P4289341480,4278190080B"
Data "M277,114P4281165000,4278190080BM325,115P4284111374,4278190080BM324,122P4279386386,4278190080BM316,122P4281046586,4278190080BM"
Data "569,117M578,117BM602,117M605,117BM573,132P4294466296,4278190080BM584,122P4289341480,4278190080BM576,112M576,115BM578,85P42893"
Data "41480,4278190080BM580,102P4289341480,4278190080BM589,102P4289341480,4278190080BM587,107P4294967295,4278190080BM576,112M577,11"
Data "0BM578,80P4294967295,4278190080BM288,89P4291690495,4278190080BM278,52P4291690495,4278190080BM261,88P4291690495,4278190080BM34"
Data "0,82P4291690495,4278190080BM333,57P4291690495,4278190080BM318,84P4291690495,4278190080BM382,82P4291690495,4278190080BM404,84P"
Data "4291690495,4278190080BM394,51P4291690495,4278190080BM444,53P4291690495,4278190080BM517,56P4291690495,4278190080BM596,54P42916"
Data "90495,4278190080BM579,85P4291690495,4278190080BM274,76P4289393651,4278190080BM272,101P4289393651,4278190080BM323,83P428939365"
Data "1,4278190080BM392,81P4289393651,4278190080BM589,103P4289393651,4278190080BM587,85P4289393651,4278190080BM587,65P4289393651,42"
Data "78190080BM389,69P4289393651,4278190080BM322,66P4289393651,4278190080BM265,69M280,69BM340,83P4291690495,4278190080BM316,85P429"
Data "1690495,4278190080BM283,84P4291690495,4278190080BM278,57P4291690495,4278190080BM279,46P4291690495,4278190080BM263,87P42916904"
Data "95,4278190080BM601,89P4291690495,4278190080BM591,45P4291690495,4278190080BM576,84P4291690495,4278190080BM581,164P4284558593,4"
Data "278190080BM583,422M582,412BM583,418M583,414BM577,401M576,397BM444,154M441,154M440,152BM449,149M445,154BM444,147M445,142M442,1"
Data "36BM172,122M228,122BM36,129P4279189019,4278190080BM189,129P4279189019,4278190080BM211,125P4279189019,4278190080BM220,131P4279"
Data "189019,4278190080BM300,134P4279189019,4278190080BM357,135P4279189019,4278190080BM563,139P4279189019,4278190080BM610,131P42791"
Data "89019,4278190080BM31,152P4280187957,4278190080BM190,147P4280187957,4278190080BM562,149P4280187957,4278190080BM18,102P42863242"
Data "54,4278190080BM26,166P4286324254,4278190080BM208,163P4286324254,4278190080BM546,163P4286324254,4278190080BM624,117P4286324254"
Data ",4278190080BM77,284P4286324254,4278190080BM598,287P4286324254,4278190080BM175,75P4289374890,4278190080BM181,41P4294361996,427"
Data "8190080BM148,39P4290421082,4278190080BM181,41P4290421082,4278190080BM436,443P4282141820,4278190080BM531,418P4282141820,427819"
Data "0080BM479,186P4294473848,4278190080BM395,267P4284136050,4278190080BM360,243P4284136050,4278190080BM415,294P4284136050,4278190"
Data "080BM423,359P4284136050,4278190080BM560,317P4284136050,4278190080BM98,343P4280187957,4278190080BM156,404P4280187957,427819008"
Data "0BM308,428P4280187957,4278190080BM623,374P4280187957,4278190080BM602,461P4280187957,4278190080BM304,466P4280187957,4278190080"
Data "BM186,469P4280187957,4278190080BM89,467P4280187957,4278190080BM75,395P4290391341,4278190080BM68,380P4286331964,4278190080BM68"
Data ",392P4290379776,4278190080BM63,377P4286324254,4278190080BM56,390P4290402906,4278190080BM60,400P4290391341,4278190080BM193,386"
Data "P4290391341,4278190080BM324,393P4290391341,4278190080BM586,378P4290391341,4278190080BM130,357P4290402906,4278190080BM127,317P"
Data "4290379776,4278190080BM477,260P4290421082,4278190080BM461,61P4290418221,4278190080BM410,100P4286346074,4278190080BM26,198P428"
Data "6324324,4278190080BM226,202P4286324324,4278190080BM601,195P4286324324,4278190080BM53,16P4279189054,4278190080BM603,311P429037"
Data "9776,4278190080"
Data "enddata"
rem =================================================================================================================================

Résultat:

Cartoon VI

Code:: rem =============================================================================================================================
rem CARTOON VI
' D'après Quark
' https://www.freebasic.net/forum/viewtopic.php?f=8&t=22859&hilit=snow&start=195
rem =============================================================================================================================
mode 3,"CARTOON VI", 640,480
Dim dStr$, tStr$
Read tStr
While tStr <> "enddata"
dStr &= tStr
Read tStr
Wend

trace dStr
repeat : until len(inkey())
rem ===============================================================================================================================
Data "C4278190080BM0,0M639,0M639,479M0,479M0,0BM1,1M638,1M638,478M1,478M1,1BM2,2M637,2M637,477M2,477M2,2BM3,3M636,3M636,476M3,476M3"
Data ",3BM77,239M84,221M112,178M133,157M138,150M143,141M150,133M150,123M183,65M209,43M240,30M279,23M297,20M335,20M358,25M358,31M360"
Data ",24M374,20M391,18M391,19M409,20M445,35M477,58M511,84M547,120M575,160M601,211M622,253M632,279M633,290M633,300M629,294M621,288M"
Data "618,295M613,296M611,301M617,316M618,323M616,325M614,325M611,323M611,330M609,333M609,333M606,334M606,327M602,331M593,325M580,3"
Data "12M560,294M555,290M528,279M524,279M521,289BM518,294M509,306M486,329M463,352M459,358M451,363M448,364M453,365M468,369M473,370M4"
Data "82,378M440,372BM442,371M437,377M431,384M427,390M423,403M421,413M420,424M418,423M418,428M420,429M415,430M412,421M414,415M415,4"
Data "07M415,402M419,396M419,387M413,397M409,403M409,410M405,416M407,430M409,440M407,445M405,446M408,448M402,450M399,445M398,436M39"
Data "8,422M394,412M410,385M411,377M421,371M412,376M404,378M398,386M392,396M385,405M383,405M383,410M386,417M378,411M377,401M386,390"
Data "M396,375M401,369M419,363M432,352M443,345M463,327M476,311M492,295M494,288M500,281M502,270M498,268M497,263M501,262M509,265M513,"
Data "265M523,277M524,282M526,276BM501,275M491,270M482,269M461,265M442,256M430,251M413,240M393,223M385,213M378,204M364,195M329,176M"
Data "288,154BM274,144M257,130M255,126M249,127M244,130M237,127M236,133M238,138M233,136M230,136M225,138M222,136M215,137M206,140M194,"
Data "148M184,152M181,155M175,159M165,164M155,170M153,171M142,183M129,196M118,208M109,215M97,226M91,230M87,233M82,237M79,239M77,240"
Data "BM0,276M9,282M80,301M155,313M186,321M224,324M297,339M323,345M345,346M353,348BM477,379M542,395M624,414BM610,412M631,416M635,41"
Data "7BM217,324M207,327M193,335M183,345M177,353M173,359M169,366M169,367M168,359M173,349M179,337M191,326M198,323M200,321BM419,364M4"
Data "09,362M404,350M392,361M386,361M415,364BM404,351M404,349M408,344M415,339M439,316M459,299M470,290M476,280M479,275M480,271M482,2"
Data "69BM459,263M459,269M456,272M455,278M449,284M434,299M404,325M392,336M381,344M370,345M362,349M353,348M348,347M331,352M327,359M3"
Data "20,364M320,368M313,371M313,373M314,381M318,388M319,377M323,376M326,373M333,365M342,360M345,359M353,353M360,350BM383,344M373,3"
Data "52M366,356M364,364M361,372M355,378M354,384M354,390M358,395M364,389M364,384M369,375M372,367M375,363M387,360M412,362BM321,376M3"
Data "18,372M314,374M314,377BM349,356M343,365M335,369M332,373M330,382M326,393M322,399M322,402M322,405M322,408M320,414M324,421M326,4"
Data "20M325,415M327,409M332,404M331,400M332,398M334,395M336,388M341,380M345,373M350,368M366,358BM322,401M326,404M327,407M326,412BM"
Data "172,110M173,112M174,116M180,119M188,114M185,106M177,106M172,112M179,118BM183,115M183,111M180,110M177,111M177,114M180,116M183,"
Data "115BM184,121M193,114M193,107M190,100M186,100M178,99M173,105M166,113M159,124M153,124M152,122M152,115M159,106BM174,108M170,116M"
Data "164,128M158,134M153,137M152,134M150,132BM196,103M197,111M208,97M215,88M221,79M215,79M213,75M209,85M207,79M212,69M221,63M237,5"
Data "8M257,42M270,30M283,26M300,22M324,19M338,22BM197,116M204,110M208,104M212,108M215,102M217,108M200,117M183,127BM197,119M189,123"
Data "M185,129M174,140M159,157M142,171M131,182M124,190M109,206M100,216M91,226M84,236BM179,133M175,128M173,120M169,116BM165,141M150,"
Data "154M139,168M131,173M136,157M149,143M159,132M168,117M173,110BM157,167M167,157M174,150M182,146M190,137M198,128M204,118M209,113M"
Data "211,110BM186,152M205,140BM217,86M220,86M229,76M238,74M234,81M249,68M261,67M267,69M268,63M274,66M274,68M279,63M272,61M268,60M2"
Data "80,60M281,53M276,53M278,46M275,41M279,35M291,34M293,37BM292,36M292,40M288,47M296,44M302,50M308,49M308,43M312,39M322,40M327,36"
Data "M333,37M336,40M344,41M348,36M353,39M356,33M359,41M364,32M367,21BM418,78M410,74M396,79M390,87M388,96M388,103M381,106M380,112M3"
Data "74,110M369,118M357,114M347,105M335,112M331,107M323,97M317,99M308,95M291,93M287,99M297,108M320,115M315,122M307,130M294,134M297"
Data ",137M307,145M316,147M325,151M335,156M337,159M327,160M309,151M292,142M280,135M272,132M260,125M253,126BM416,78M416,73M426,72M43"
Data "3,71M444,74M452,80M436,75M418,82M412,85M406,91M403,105M404,119M409,136M416,153M430,179M436,186M449,198M465,210M480,219M508,23"
Data "3M536,245M558,258M588,279M608,284M616,286M624,289M628,293BM577,272M572,270M559,266M558,272M562,277M555,275M559,282M556,281M56"
Data "2,289M566,293M572,297M578,301M581,291M582,283M580,275M572,270BM576,300M581,309M588,303M591,298M591,292M590,286M592,283M590,27"
Data "8BM607,328M606,316M600,302M597,293M595,289M591,283BM588,320M596,322M601,325M599,315M598,306M595,295M591,292BM330,160M342,168M"
Data "353,174M356,184M351,182M348,184M339,181BM349,183M365,190M379,197M384,194M399,203M409,207M416,210M423,212M416,212M407,215M397,"
Data "214M390,208BM449,284M456,286M455,291M460,289M461,294M457,299BM432,253M424,242M422,237M444,251M454,252M462,251M458,244M454,243"
Data "M467,245M458,238M472,240M447,228M471,235M472,227M453,219M467,223M473,225M475,225M469,217M478,219BM331,402M331,408M330,412M330"
Data ",419M329,427M333,430M332,422M335,419M336,411M337,402M337,395M338,386M341,380M347,372BM357,409M352,400M352,397M353,391M356,392"
Data "M358,395BM354,404M360,410M360,399M361,394M364,388M366,383M370,375BM408,461M399,455M398,449M398,443BM408,460M405,452M405,448BM"
Data "400,455M403,458M409,468M411,467M409,457M411,454M412,442M410,427M410,416M410,409M411,402M416,390M418,387BM419,419M414,418BM420"
Data ",421M421,428M420,433M422,435M423,439M428,450M428,442M427,434M427,425M426,408M426,403M428,389BM2,309M10,313M21,320M37,325M68,3"
Data "34M84,341M103,338M113,347M130,346M143,352M152,351M160,354M169,354BM177,352M185,358M198,360M211,368M222,371M219,379M217,395M21"
Data "8,406M221,411M221,424M223,430M222,435M227,435M227,427M233,425M233,441M230,443M230,450M226,450M228,464M228,466M230,476M234,477"
Data "M233,470M237,466M237,456M240,450M236,443M237,436M244,434M241,417M236,412M234,404M237,392M234,389M234,377M239,368M243,381M246,"
Data "374M248,383M254,394M267,387M267,383M258,378M259,376M272,375M274,381M282,385M288,380M298,387M305,385M310,388M320,392M323,396M3"
Data "38,390M343,394M349,394M352,394BM358,394M365,399M370,400M375,406M376,406BM388,403M394,403M396,405BM410,413M413,413BM425,414M43"
Data "8,422M438,425M448,426M449,421M456,425M464,429M471,436M473,430M469,423M475,424M474,428M482,431M488,435M492,423M511,426M514,430"
Data "M525,432M537,434M543,442M547,437M565,440M562,456M571,454M580,441M587,446M600,450M593,458M600,457M601,467M614,468M619,455M627,"
Data "464M626,465M637,465BM106,384P4287901460,4278190080BM194,224P4289049027,4278190080BM517,294M521,290BM491,314P4293254845,427819"
Data "0080BM463,333P4292133793,4278190080BM450,326P4289049027,4278190080BM524,365P4289049027,4278190080BM266,347P4291015592,4278190"
Data "080BM152,333P4291015592,4278190080BM488,400P4291015592,4278190080BM309,431P4279782491,4278190080BM193,328P4284308830,42781900"
Data "80BM408,453P4278979861,4278190080BM423,416P4278979861,4278190080BM333,414P4278979861,4278190080BM358,401M357,397M359,394M358,"
Data "391BM359,399P4278979861,4278190080BM193,107M197,103BM192,85P4283387210,4278190080BM521,274M520,278M512,294M475,334M461,349M45"
Data "6,355M453,359M449,359M446,360M449,365BM497,314P4280293136,4278190080BM384,412M384,409M393,395M398,388M403,383M406,380M407,379"
Data "BM388,402M399,404BM323,407P4285422398,4278190080BM401,456P4285422398,4278190080BM415,421P4285422398,4278190080BM316,376P42854"
Data "22398,4278190080BM383,405M379,402M377,401BM380,406P4285422398,4278190080BM355,399P4285422398,4278190080BM460,290M460,294M435,"
Data "315M415,334M406,340M404,342M399,349M399,358M384,361BM401,352P4280293136,4278190080BM402,350P4280293136,4278190080BM402,347P42"
Data "80293136,4278190080BM398,341P4292989866,4278190080BM145,177M128,185M184,144M184,151M185,144BM173,154P4294241225,4278190080BM2"
Data "89,155M271,142BM317,163P4293582534,4278190080BM244,126M252,123M249,119M259,115M257,106M243,112M243,116M235,126M236,128BM237,1"
Data "27M236,123BM241,129M242,126BM236,128M246,126BM247,117P4293582534,4278190080BM126,195P4291408500,4278190080BM157,132P429430492"
Data "5,4278190080BM177,108P4293054055,4278190080BM446,78M448,76M458,89M465,107M477,105M475,94M472,87M465,77M477,81M480,86M485,85M4"
Data "86,81M493,85M503,91M516,100M522,102M532,106BM441,74M429,64M408,61M399,52M386,56M384,48M392,41M379,49M371,45M380,40M378,30M374"
Data ",29M372,27M367,22BM440,48P4283186231,4278190080BM559,269M545,270M537,274M531,273M529,274M527,271M528,264M525,261M523,260M519,"
Data "258M516,252M514,258M515,267M536,272M536,272BM419,158M418,153M418,147M428,152M438,170M447,181M455,192M461,198M456,201M448,195M"
Data "438,189M426,173M418,156M412,150M408,133BM430,164P4294307038,4278190080BM156,134M147,149M129,164M138,150M144,139M150,134M156,1"
Data "37BM144,145P4290951856,4278190080BM178,136M174,130M169,117BM180,134M166,122BM192,115M195,120BM173,141M168,120M172,112BM192,11"
Data "6M195,121M178,124M133,170M145,158M154,148M170,130BM133,168M172,126M173,126M143,161M162,141M145,154M148,150BM142,155P428753319"
Data "2,4278190080BM155,141P4287533192,4278190080BM389,206M401,209M401,209BM349,183M344,184M364,196BM346,183M352,183M354,183M357,18"
Data "2M374,192M377,194M381,193M386,194M414,207M421,212M413,215M405,213M394,209M387,200M387,200M399,207M399,219M399,219BM377,380P42"
Data "91015592,4278190080BM354,376P4291015592,4278190080BM416,396P4291015592,4278190080BM342,352P4292989866,4278190080BM399,388P429"
Data "1015592,4278190080BM412,50P4284897363,4278190080BM157,129P4294697901,4278190080BM179,115P4279900698,4278190080BM180,113P42799"
Data "00698,4278190080BM244,111M249,105M263,96M266,84M262,84M266,76M262,77M264,72M258,72M243,74BM238,124M226,127M217,127M213,133M21"
Data "6,135M219,136BM227,131P4293715153,4278190080BM237,87P4286999903,4278190080BM403,77M387,75M377,73M385,69M375,66M380,58M385,56B"
Data "M359,80P4287265385,4278190080BM602,311P4293977568,4278190080BM610,307M610,297M607,288M600,288M608,305BM606,296P4291873995,427"
Data "8190080BM610,309M607,305BM613,317P4287526248,4278190080BM592,306P4287461993,4278190080BM499,262M496,256M489,261M485,252M480,2"
Data "63M477,261M479,242M468,238M470,257M470,257BM475,246P4284699464,4278190080BM465,258P4285164138,4278190080BM475,258P4282006074,"
Data "4278190080BM402,201M419,207M410,190M398,169BM399,170M390,169M381,165M375,165M371,157M355,155M344,166M348,172BM381,181P4291938"
Data "225,4278190080BM383,154P4291608235,4278190080BM367,133P4288322202,4278190080BM380,144P4290427578,4278190080BM356,139P42893748"
Data "90,4278190080BM302,73P4287269514,4278190080BM333,71P4285818205,4278190080BM261,52P4288450945,4278190080BM456,89M440,81M435,82"
Data "M429,89M422,95M418,103M418,106M417,112M412,116M416,123M420,136M426,141M439,170M454,189M480,220M487,226M488,227BM410,96P428904"
Data "1793,4278190080BM431,152M427,141M417,131M423,126M430,126M435,115M443,117M448,110M457,125M467,106M476,102BM461,122M471,126M477"
Data ",126M492,135M493,130M502,146M516,159M516,149M519,142M528,149M531,146M536,148M536,143M557,173M549,144M550,134M556,142M548,124M"
Data "548,123BM461,120M457,124M453,122M447,113M434,118M431,127M419,128M418,133M416,123BM436,100P4287196763,4278190080BM458,121M468,"
Data "125BM501,112P4282991679,4278190080BM385,137P4287269514,4278190080BM383,182P4290427578,4278190080BM363,178P4288322202,42781900"
Data "80BM546,279P4287269514,4278190080BM540,281P4286216826,4278190080BM548,279P4285164138,4278190080BM612,288P4283058762,427819008"
Data "0BM573,279P4287269514,4278190080BM552,156M566,185M570,175M573,208M585,221M595,218M599,238M612,269BM549,137M552,129BM611,268M6"
Data "19,274M626,281M630,291M631,299M583,205BM582,195P4279307788,4278190080BM581,208P4285164138,4278190080BM579,203P4282006074,4278"
Data "190080BM572,197M567,218M547,199M543,198M535,191M532,204M522,196M518,200M498,173M493,174M485,187M469,175M461,188M461,188M446,1"
Data "71M428,154M427,153BM419,129M445,148M450,135M471,151M477,146M480,150M480,145M498,159M498,152BM449,128M445,138M441,135M427,127M"
Data "452,131M473,149M479,143M500,158M501,151BM419,134M430,137M443,149M449,141M451,132M470,149M476,147M477,144M485,147BM440,144M464"
Data ",166M469,149BM436,166M448,170M452,158M464,166M476,178M484,147BM479,168M488,173M494,156BM466,170M474,180M479,171M484,149BM472,"
Data "178M482,188M491,180M492,172BM488,151M486,169M499,175M502,156BM447,158M444,172M463,190M469,175M474,177M484,187M490,170BM476,16"
Data "9M489,172M493,154BM491,173M497,174M500,169M504,156BM499,170M516,192M522,174BM470,174M458,187M475,209M482,203M485,186BM480,201"
Data "BM486,182M480,204M498,214M505,181BM492,214M507,220M516,195BM509,214M524,221M529,214M531,200BM482,204M496,213M502,182BM493,214"
Data "M505,222M509,213M514,195BM506,217M522,220M528,210M531,198BM523,217M538,227M545,198BM570,212M586,244M601,255M607,253M600,243M5"
Data "90,250M580,238M576,223M568,205BM590,255M576,247M567,234M561,220M554,207M544,198M542,202BM585,256M573,252M559,240M555,224M546,"
Data "212M541,200BM563,252M545,228M539,210BM554,247M539,234M529,220BM556,247M532,238M521,224M520,219BM464,281P4280953386,4278190080"
Data "BM395,59P4289374890,4278190080BM319,161P4292532954,4278190080BM302,151P4291480266,4278190080BM319,163P4290427578,4278190080BM"
Data "340,62P4288578393,4278190080BM337,65P4288322202,4278190080BM258,60P4289374890,4278190080BM502,154M520,174M523,157M527,148BM52"
Data "3,149M521,171M529,175M536,176M534,151BM533,171M545,178M544,164M538,146M550,165M543,198M535,188M530,202M523,194BM569,196M571,2"
Data "22M541,193BM464,123M481,143M486,128BM471,146M454,127M453,117M449,135M440,136M429,123M447,144M429,133M432,146M424,136M431,153B"
Data "M483,202M496,222M512,235M529,245M535,245BM545,187M555,198M558,182M554,163BM558,183M565,199M570,188BM535,189M539,176BM524,197M"
Data "527,188M530,175BM563,253M583,259M593,260M585,255M603,261M603,259M590,250BM132,161M118,179M108,191M120,183M133,164BM124,183M10"
Data "5,199M96,211M115,195M131,178M124,182M80,238M98,206BM102,198P4289374890,4278190080BM94,217P4287269514,4278190080BM161,147P4287"
Data "269514,4278190080BM107,200P4286216826,4278190080BM108,198P4286216826,4278190080BM121,180P4286216826,4278190080BM124,174P42862"
Data "16826,4278190080BM118,182P4286216826,4278190080BM107,194P4288322202,4278190080BM138,167P4286216826,4278190080BM138,167P428621"
Data "6826,4278190080BM138,167P4286216826,4278190080BM133,172M142,163BM135,168M142,163BM145,143P4286216826,4278190080BM135,167M151,"
Data "150BM453,142M448,147M462,159M463,151M452,143BM455,153P4286216826,4278190080BM455,149P4286216826,4278190080BM455,168M453,174M4"
Data "59,180M464,173M454,167BM457,174P4285164138,4278190080BM622,286M589,274M562,258M530,238BM576,224M584,234M592,233M595,230BM544,"
Data "239M531,232M523,222BM537,242M509,227M502,221BM515,224P4285164138,4278190080BM530,227P4285164138,4278190080BM561,236P428516413"
Data "8,4278190080BM553,238M537,221M542,224BM541,222P4285164138,4278190080BM594,252M572,237M564,210BM574,225P4285164138,4278190080B"
Data "M463,188M473,203M478,195M479,192M466,181M471,192BM475,195P4285164138,4278190080BM496,211BM501,187M490,178BM492,193P4285164138"
Data ",4278190080BM498,212M504,215M511,195M504,188BM505,201P4285164138,4278190080BM517,199M515,210M518,213M528,201M518,206BM519,201"
Data "P4285164138,4278190080BM528,213M535,219M539,205M532,202BM532,212P4285164138,4278190080BM557,248M535,227BM578,254M559,242M540,"
Data "213BM557,231M542,212BM548,231P4285164138,4278190080BM552,225M562,236M576,249BM560,239P4294638330,4278190080BM549,224P42946383"
Data "30,4278190080BM445,165M431,153M433,145BM447,158M433,147BM465,161M472,170M477,159M475,147BM472,158P4287269514,4278190080BM435,"
Data "153P4287269514,4278190080BM445,114M447,120M446,125M433,123M443,121BM438,118P4287269514,4278190080BM441,132P4287269514,4278190"
Data "080BM437,140P4287269514,4278190080BM465,140M475,136BM469,137M461,123BM462,129P4287269514,4278190080BM468,140M472,143M475,142M"
Data "472,139BM472,141P4287269514,4278190080BM483,163P4287269514,4278190080BM497,156M492,169M496,169M499,156BM495,164P4287269514,42"
Data "78190080BM477,176M482,180M483,169BM481,173P4287269514,4278190080BM502,164M513,180M517,172BM509,171P4287269514,4278190080BM526"
Data ",174M522,191M515,192BM522,178P4287269514,4278190080BM517,178P4294638330,4278190080BM497,172M515,192BM515,192M524,171BM497,179"
Data "P4294638330,4278190080BM587,235M590,242M595,240M593,230BM591,236P4286216826,4278190080BM548,190M562,207M565,196BM561,199P4286"
Data "216826,4278190080BM546,180M552,189M557,174BM552,180P4286216826,4278190080BM522,166M532,169M529,147BM530,163P4286216826,427819"
Data "0080BM528,161P4286216826,4278190080BM536,171M541,169M535,145BM539,166P4286216826,4278190080BM537,163P4286216826,4278190080BM5"
Data "30,160M528,142BM533,159M534,142BM520,171M534,175M534,148BM524,171P4294638330,4278190080BM527,170P4294638330,4278190080BM481,1"
Data "39M495,149M495,135BM488,141P4286216826,4278190080BM471,162P4285164138,4278190080BM454,149P4285164138,4278190080BM528,156P4285"
Data "164138,4278190080BM508,164P4285164138,4278190080BM553,177P4285164138,4278190080BM557,219P4285164138,4278190080BM572,229P42851"
Data "64138,4278190080BM521,185P4285164138,4278190080BM526,189M529,196M535,177BM531,180P4285164138,4278190080BM519,150P4292532954,4"
Data "278190080BM505,173P4290427578,4278190080BM474,134P4290427578,4278190080BM449,120P4290427578,4278190080BM447,163P4290427578,42"
Data "78190080BM464,173P4290427578,4278190080BM464,157P4290427578,4278190080BM477,203P4290427578,4278190080BM521,215P4290427578,427"
Data "8190080BM563,185P4290427578,4278190080BM583,227P4290427578,4278190080BM549,199P4290427578,4278190080BM538,195M545,175M540,181"
Data "BM538,183P4290427578,4278190080BM511,169P4285164138,4278190080BM479,131P4285164138,4278190080BM517,162P4292532954,4278190080B"
Data "M518,164P4290427578,4278190080BM498,180P4290427578,4278190080BM470,135P4290427578,4278190080BM520,194P4290427578,4278190080BM"
Data "526,169P4290427578,4278190080BM542,174P4290427578,4278190080BM552,191P4290427578,4278190080BM547,165P4290427578,4278190080BM5"
Data "34,198P4290427578,4278190080BM533,190P4290427578,4278190080BM534,185P4290427578,4278190080BM565,220P4290427578,4278190080BM56"
Data "4,243P4290427578,4278190080BM543,232P4290427578,4278190080BM586,243P4290427578,4278190080BM601,247P4290427578,4278190080BM490"
Data ",161P4290427578,4278190080BM479,155P4290427578,4278190080BM484,178P4290427578,4278190080BM490,157P4290427578,4278190080BM499,"
Data "165P4290427578,4278190080BM498,163P4290427578,4278190080BM179,152P4290427578,4278190080BM225,131P4290427578,4278190080BM249,1"
Data "13P4290427578,4278190080BM186,133P4294885727,4278190080BM182,137P4291730509,4278190080BM429,169P4290427578,4278190080BM431,16"
Data "8P4291480266,4278190080BM494,246P4289374890,4278190080BM189,121P4286999903,4278190080BM189,121P4286999903,4278190080BM179,123"
Data "M194,116BM189,120P4286999903,4278190080BM180,126P4286999903,4278190080BM173,136P4286999903,4278190080BM177,133P4286999903,427"
Data "8190080BM170,123P4286999903,4278190080BM173,124P4286999903,4278190080BM172,125P4286999903,4278190080BM172,123P4286999903,4278"
Data "190080BM520,266P4285164138,4278190080BM355,362P4292989866,4278190080BM417,209M390,196M409,206M394,200BM390,207M397,211M405,21"
Data "4M397,212M391,208BM399,208M392,204BM364,189P4285164138,4278190080BM362,188P4285164138,4278190080BM377,195P4285164138,42781900"
Data "80BM476,207M497,226BM485,211P4285164138,4278190080BM455,188P4284111450,4278190080BM326,398P4292989866,4278190080BM402,451P428"
Data "5422398,4278190080BM409,462P4279782491,4278190080BM408,463P4279782491,4278190080BM80,67P4285829070,4278190080BM458,317P428582"
Data "9070,4278190080BM70,100P4282079646,4278190080BM457,317P4282079646,4278190080BM80,150P4281363966,4278190080BM445,331P428136396"
Data "6,4278190080BM79,102P4284452862,4278190080BM453,319P4284452862,4278190080BM55,156P4284477694,4278190080BM450,318P4284477694,4"
Data "278190080BM116,314P4292532954,4278190080BM272,359P4292532954,4278190080BM350,383P4292532954,4278190080BM391,371P4292532954,42"
Data "78190080BM397,395P4292532954,4278190080BM413,406P4292532954,4278190080BM454,411P4292532954,4278190080BM428,131P4290427578,427"
Data "8190080BM475,140P4290427578,4278190080BM506,187P4290427578,4278190080BM533,222P4290427578,4278190080BM548,222P4290427578,4278"
Data "190080BM453,130P4290427578,4278190080BM446,139P4290427578,4278190080BM448,118P4290427578,4278190080BM594,221P4290427578,42781"
Data "90080BM438,163P4290427578,4278190080BM427,139P4290427578,4278190080"
Data "enddata"
rem ================================================================================================================================

Résultat:

Cartoon VII

Code:: rem =============================================================================================================================
rem CARTOON VII
'D'après Quark
' https://www.freebasic.net/forum/viewtopic.php?f=8&t=22859&hilit=snow&start=210
rem =============================================================================================================================

mode 3,"CARTOON VII", 640,480
Dim dStr$, tStr$
Read tStr
While tStr <> "enddata"
dStr &= tStr
Read tStr
Wend
trace dStr
repeat : until len(inkey())
rem ===============================================================================================================================
Data "C4278190080BM0,0M639,0M639,479M0,479M0,0BM1,1M638,1M638,478M1,478M1,1BM2,2M637,2M637,477M2,477M2,2BM3,3M636,3M636,476M3,476M3"
Data ",3BM37,477M114,445M129,445M154,428M155,418M168,407M192,407M201,401M203,384M200,379M200,369M197,169M203,165M203,159M201,155M20"
Data "4,143M210,138M216,137M223,161M231,204M230,257M233,256M232,205M242,170M250,151M253,137M242,134M233,134M225,135M214,138BM204,38"
Data "4M213,373M225,374M238,374M241,361M239,351M238,347M238,332M240,329BM211,376M211,351M212,344M212,211M209,183M204,165M203,161BM1"
Data "68,406M165,306M165,160M165,151M166,132M162,117M153,138M151,148M147,239M148,341M151,344M150,382M152,389M152,428BM25,473M20,136"
Data "M22,94M31,55M45,22M65,1BM20,159M0,155M1,172M20,181BM32,143M34,92M40,61M50,37M60,26M69,18M72,15M78,10M97,49M111,100M112,178M10"
Data "9,397M36,425M34,425M30,424BM104,384M41,409M40,129M40,109M43,80M51,56M58,40M66,37M65,154M41,140M40,139BM97,160M97,130M93,94M89"
Data ",76M84,62M80,49M77,153M96,162BM40,387M54,376M49,211M47,188M42,181BM94,363M94,214M91,197M88,192M80,190M78,371M94,362BM338,442M"
Data "321,442M306,441M300,437M297,434BM638,440M345,440M340,439M342,433M328,433M301,433M294,425M294,402M295,395M292,165M285,151M291,"
Data "146M289,109M270,74M257,63M232,54M226,53M199,65M177,86M167,100M163,111BM240,354M244,351M266,348M266,349M294,350M294,341M266,34"
Data "3M268,254M275,244M286,233M293,234BM265,329M293,334M265,331M267,322M293,322M294,290M267,291M267,272BM268,256M294,256M294,250M2"
Data "70,250BM267,298M293,298BM118,449M113,395M124,389M123,172M121,160M122,151M120,138M117,117M116,96M109,73M98,53M92,24M84,9M81,3B"
Data "M123,386M133,388M136,388M137,158M147,107M167,74M196,50M218,41M241,46M283,77M291,90M299,109M304,145M299,110M298,142M298,110M29"
Data "1,96BM167,4M160,18M148,54M139,85M134,113M129,144M131,143M141,105M155,77M176,53M193,39M210,30M218,27M239,29M271,47M299,83M311,"
Data "130M310,136M314,136M313,112M303,84M291,62M284,46M310,77M319,106M320,127M321,135M325,132M333,91M340,68M353,43M371,20M387,10M36"
Data "6,42M353,68M343,87M336,112M331,133M335,131M343,95M364,61M387,39M405,25M419,22M438,24M469,44M504,79M520,114M526,294M516,293M51"
Data "5,149M498,90M475,61M442,42M425,36M397,46M375,68M353,109M347,144M347,220M351,291M356,292M357,388M354,429BM75,477M99,465M117,45"
Data "2M135,449M182,448M225,457M285,463M344,475M378,476M380,463M365,456M343,454M326,450M313,441M293,441M286,440M286,427M293,420M292"
Data ",411M284,408M264,407M244,405M229,402M213,399M207,397M202,393BM238,330M241,322M242,260M240,250M249,241M264,230M269,230M261,241"
Data "M257,249M256,258M256,247M255,244M252,239BM294,229M286,222M281,220M272,219M260,226M251,231M242,242M250,221M260,202M272,189M280"
Data ",195M288,205M292,213BM238,235M237,211M241,194M248,169M256,151M261,143M271,152M281,168M291,180M292,172M284,159M273,147M270,140"
Data "M265,136M272,134M280,132M290,138BM205,133M220,108M231,94M243,79M254,88M272,107M280,125M270,125M263,125M259,130M242,128M226,12"
Data "6M215,128M208,131M205,132BM198,136M199,112M204,87M209,72M212,62M225,55M232,55M258,69M282,88M291,123M288,125M278,105M265,90M25"
Data "4,78M243,73M228,86M216,102M206,115M198,136BM200,368M192,375M166,374BM191,372M192,210M191,165M192,369BM190,148M191,149M194,107"
Data "M197,86M203,67M185,78M188,95M192,126M191,148BM150,386M147,388M137,391M129,393M125,394M124,387BM153,389M137,397M112,397BM123,1"
Data "88M124,173M133,164M134,148M130,143M136,103M143,69M152,42M162,18M168,1M162,2M156,9M143,38M127,101M125,140BM199,344M212,340BM24"
Data "0,361M262,354M278,353M294,352BM264,345M293,345BM638,461M342,461M343,447M341,442M341,433M364,431M364,423M360,422M360,410M367,4"
Data "08M368,401M365,401M366,387M362,381M363,293M360,265M359,249M356,233M355,220M355,204M346,193BM356,206M448,204M449,209M453,212M4"
Data "52,219M455,220M455,227M455,229M459,228M459,234M461,235M461,246M466,247M466,254M472,254M472,259M474,262M474,267M476,267M474,26"
Data "9M480,269M477,274M482,274M480,281M483,284M483,294M487,295M487,300M493,299M493,308M498,311M498,321M503,321M503,330M507,335M507"
Data ",346M516,346M516,363M517,366M517,375M521,368M521,379M524,380M524,390M524,415M509,456M342,461BM465,246M463,185M467,183M462,53B"
Data "M466,162M458,167M451,155M439,168M438,159M433,161M433,201M433,202BM434,205M434,201BM459,233M457,180M448,168M439,174M438,204BM5"
Data "06,271M462,194M465,185M468,185M514,264M516,263BM507,314M505,270M488,241M489,275M507,313BM467,204M468,235M481,263M483,230BM433"
Data ",175M362,178M361,183M361,205BM353,200M353,181M345,182BM432,161M430,105M426,99M427,37BM430,131M348,131BM431,106M353,106BM427,9"
Data "7M359,99BM408,130M408,124M424,123M423,132BM368,131M367,106BM450,123M426,96BM451,122M455,84M435,91M430,102BM426,92M433,81M457,"
Data "72M456,65M434,73M434,38BM442,41M441,65M454,62M454,44BM378,94M380,60BM342,434M519,434BM359,421M521,421BM360,409M524,409BM539,4"
Data "40M539,5M537,1BM582,441M582,4BM600,269P4282153200,4278190080BM602,266P4278848010,4278190080BM563,330P4279900698,4278190080BM1"
Data "4,30P4279900698,4278190080BM25,469M23,476BM9,350P4279900698,4278190080BM125,141M120,140BM115,22P4279900698,4278190080BM521,11"
Data "5M521,2BM506,292M521,294BM507,337M506,310BM527,320P4279900698,4278190080BM530,318P4280953386,4278190080BM109,382M104,383BM258"
Data ",384P4290427578,4278190080BM202,434P4288322202,4278190080BM158,463P4286216826,4278190080BM314,41P4283058762,4278190080BM503,4"
Data "67P4283058762,4278190080BM558,451P4283058762,4278190080BM608,450P4279900698,4278190080BM507,470P4279900698,4278190080BM187,46"
Data "4P4283058762,4278190080BM118,448M121,450BM85,468P4280953386,4278190080BM336,447P4280953386,4278190080BM292,166M346,166BM292,1"
Data "78M347,178BM564,247P4282153200,4278190080BM630,270M630,270M598,252M613,314M613,314M591,443BM597,241P4278848010,4278190080BM55"
Data "9,205P4280953386,4278190080BM554,239P4279900698,4278190080BM560,326P4279900698,4278190080BM523,314P4279900698,4278190080BM563"
Data ",200P4279900698,4278190080BM531,320P4280953386,4278190080BM19,33P4279900698,4278190080BM8,29P4280953386,4278190080BM122,20P42"
Data "80953386,4278190080BM5,386P4280953386,4278190080BM123,41P4280953386,4278190080BM498,40P4279900698,4278190080BM284,327P4292532"
Data "954,4278190080BM279,337P4293585642,4278190080BM273,337P4293585642,4278190080BM274,311P4294638330,4278190080BM285,293P42935856"
Data "42,4278190080BM281,254P4293585642,4278190080BM279,253P4293585642,4278190080BM281,274P4292532954,4278190080BM271,335P429253295"
Data "4,4278190080BM283,243P4291480266,4278190080BM275,308P4291480266,4278190080BM275,333P4291480266,4278190080BM283,252P4292532954"
Data ",4278190080BM287,292P4292532954,4278190080BM279,327P4291480266,4278190080BM251,266P4287269514,4278190080BM244,276P4294638330,"
Data "4278190080BM240,251M238,231BM257,273P4287269514,4278190080BM271,209P4290427578,4278190080BM261,235P4282006074,4278190080BM278"
Data ",211P4282006074,4278190080BM211,350M237,351BM232,239P4280953386,4278190080BM232,241P4280953386,4278190080BM232,245P4280953386"
Data ",4278190080BM231,243P4280953386,4278190080BM230,255M228,351BM237,267P4291480266,4278190080BM221,262P4290427578,4278190080BM20"
Data "5,229P4294638330,4278190080BM201,243P4293585642,4278190080BM153,398M169,390BM160,407P4286216826,4278190080BM30,423M16,422BM35"
Data ",425M34,475BM41,408M29,409M18,408BM31,408M32,145BM41,395M109,369BM43,414P4280953386,4278190080BM83,441P4285164138,4278190080B"
Data "M26,364P4283058762,4278190080BM27,309P4292532954,4278190080BM51,107P4290427578,4278190080BM88,117P4290427578,4278190080BM97,1"
Data "51M98,163BM52,179P4292532954,4278190080BM43,183M40,179BM61,205P4291480266,4278190080BM48,117P4293585642,4278190080BM84,115P42"
Data "93585642,4278190080BM97,163M98,164BM23,145P4287269514,4278190080BM97,49M87,28BM28,213P4286216826,4278190080BM30,407M31,140M34"
Data ",87M51,33M51,31M78,12M88,30M100,60BM29,433P4286216826,4278190080BM83,441P4289374890,4278190080BM109,397M114,397BM295,401M300,"
Data "403M355,401BM301,404M298,178M293,180BM309,184M304,198M307,387M310,395M313,386M313,195M309,186BM326,184M322,196M322,386M328,39"
Data "4M332,383M331,198M326,188BM340,186M336,197M339,385M342,396M346,382M343,194M340,188BM366,390M523,390M523,401M366,402BM362,383M"
Data "525,383M525,372M361,372BM362,362M437,369M439,359M362,351BM449,369M516,361M515,350M448,360M450,368BM432,354M506,335M502,324M42"
Data "6,347M430,354BM413,353M363,336M367,326M418,342M412,353BM362,316M424,331M429,320M429,332M498,317M497,306M431,315M363,302BM363,"
Data "296M484,295M484,285M361,285M365,297BM359,276M482,276M479,271M360,270M359,263M474,260M471,261M472,256M360,256M359,255M359,248M"
Data "465,248BM355,241M461,240BM357,238M462,237BM356,233M459,229BM354,224M455,225BM356,220M452,214BM356,210M449,209BM469,354P428305"
Data "8762,4278190080BM427,341P4286216826,4278190080BM430,354M434,354BM460,346P4293585642,4278190080BM467,339P4293585642,4278190080"
Data "BM477,350P4286216826,4278190080BM443,365P4283058762,4278190080BM429,307P4283058762,4278190080BM412,282P4283058762,4278190080B"
Data "M417,267P4283058762,4278190080BM388,253P4283058762,4278190080BM376,240P4283058762,4278190080BM375,240P4283058762,4278190080BM"
Data "367,243P4283058762,4278190080BM384,249P4292532954,4278190080BM418,245P4292532954,4278190080BM390,252P4282006074,4278190080BM4"
Data "56,239P4282006074,4278190080BM387,229P4282006074,4278190080BM395,240P4282006074,4278190080BM392,240P4282006074,4278190080BM36"
Data "0,240P4282006074,4278190080BM374,239P4282006074,4278190080BM363,216P4282006074,4278190080BM420,385P4282006074,4278190080BM389"
Data ",404P4282006074,4278190080BM390,428P4282006074,4278190080BM399,451P4282006074,4278190080BM420,413P4289374890,4278190080BM428,"
Data "399P4289374890,4278190080BM432,380P4289374890,4278190080BM420,364P4289374890,4278190080BM471,362P4289374890,4278190080BM467,3"
Data "41P4289374890,4278190080BM382,335P4289374890,4278190080BM398,318P4289374890,4278190080BM418,289P4289374890,4278190080BM389,43"
Data "7P4289374890,4278190080BM350,456P4289374890,4278190080BM425,219P4289374890,4278190080BM430,205P4289374890,4278190080BM435,233"
Data "P4289374890,4278190080BM424,242P4289374890,4278190080BM364,260P4289374890,4278190080BM379,273P4289374890,4278190080BM326,371P"
Data "4283058762,4278190080BM310,354P4283058762,4278190080BM340,333P4283058762,4278190080BM349,385P4286216826,4278190080BM348,391P4"
Data "288322202,4278190080BM362,395P4282006074,4278190080BM358,398P4291480266,4278190080BM353,428M352,432BM357,302P4282006074,42781"
Data "90080BM346,416P4286216826,4278190080BM300,431M300,402BM297,412P4286216826,4278190080BM297,411P4290427578,4278190080BM295,181M"
Data "295,167BM318,170P4288322202,4278190080BM318,172P4290427578,4278190080BM296,335P4292532954,4278190080BM128,444M135,397BM127,41"
Data "0P4282006074,4278190080BM144,414P4290427578,4278190080BM167,389M188,389M200,378BM201,393M185,401M169,399BM185,375M187,388M190"
Data ",393M186,402M187,406BM187,387M190,372BM177,381P4282006074,4278190080BM178,382P4284111450,4278190080BM174,382P4285164138,42781"
Data "90080BM179,402P4285164138,4278190080BM179,396P4287269514,4278190080BM249,355P4285164138,4278190080BM227,350M227,358M228,360M2"
Data "27,367M228,371M228,372BM227,374M227,371BM211,372M213,373BM213,356P4285164138,4278190080BM150,369M166,357M148,339M165,330BM150"
Data ",368M167,330BM157,370P4292532954,4278190080BM158,355P4287269514,4278190080BM159,339P4287269514,4278190080BM153,350P4289374890"
Data ",4278190080BM165,347P4289374890,4278190080BM163,350P4289374890,4278190080BM199,323BM199,315M212,309BM284,255P4286216826,42781"
Data "90080BM282,252P4286216826,4278190080BM279,292P4286216826,4278190080BM284,328P4286216826,4278190080BM272,322M272,310M287,309M2"
Data "87,321BM280,316P4286216826,4278190080BM247,106P4285164138,4278190080BM221,71P4285164138,4278190080BM189,81P4285164138,4278190"
Data "080BM241,157P4287269514,4278190080BM281,139P4287269514,4278190080BM60,395P4289374890,4278190080BM160,373P4289374890,427819008"
Data "0BM206,333P4289374890,4278190080BM207,357P4289374890,4278190080BM509,278P4284111450,4278190080BM491,291P4284111450,4278190080"
Data "BM459,176P4284111450,4278190080BM400,61P4284111450,4278190080BM378,98M378,87BM371,87P4286216826,4278190080BM444,54P4286216826"
Data ",4278190080BM435,94M449,126BM446,103P4286216826,4278190080BM435,100P4278848010,4278190080BM414,128P4278848010,4278190080BM401"
Data ",192P4280953386,4278190080BM351,189P4280953386,4278190080BM347,169M425,169M423,142M349,140BM372,170M373,144BM372,140M373,147B"
Data "M389,143M389,169M390,168BM353,155P4286216826,4278190080BM407,153P4286216826,4278190080BM388,171M389,140BM382,156P4286216826,4"
Data "278190080BM376,148P4288322202,4278190080BM355,120P4288322202,4278190080BM386,115P4286216826,4278190080BM383,102P4289374890,42"
Data "78190080BM376,137P4289374890,4278190080BM434,101P4291480266,4278190080BM443,135P4289374890,4278190080BM447,188P4289374890,427"
Data "8190080BM491,179P4292532954,4278190080BM474,229P4292532954,4278190080BM501,278M518,292M517,144M500,89M479,59M426,32M422,35M41"
Data "7,37BM522,286P4291480266,4278190080BM522,242P4290427578,4278190080BM47,297P4294348798,4278190080BM89,317P4294348798,427819008"
Data "0BM50,99P4294348798,4278190080BM86,136P4294348798,4278190080BM155,265P4290301556,4278190080BM203,249P4290301556,4278190080BM2"
Data "79,270P4290301556,4278190080BM281,302P4287471193,4278190080BM278,337P4287471193,4278190080BM288,242P4287471193,4278190080BM18"
Data "1,133P4288567672,4278190080BM225,286P4291720348,4278190080BM252,312P4291720348,4278190080BM246,110P4285152878,4278190080BM222"
Data ",72P4285152878,4278190080BM193,84P4285152878,4278190080BM268,77P4278848010,4278190080BM269,74P4278848010,4278190080BM281,92P4"
Data "278848010,4278190080BM234,151P4288240030,4278190080BM282,141P4288240030,4278190080BM157,378P4288240030,4278190080BM157,373P42"
Data "91720348,4278190080BM207,320P4291720348,4278190080BM154,351P4291720348,4278190080BM162,347P4291720348,4278190080BM26,349P4285"
Data "152878,4278190080BM51,399P4291261646,4278190080BM65,390P4287824030,4278190080BM27,432P4287824030,4278190080BM124,410P42878240"
Data "30,4278190080BM174,382P4287824030,4278190080BM174,403P4287824030,4278190080BM126,154P4288101278,4278190080BM118,332P428810127"
Data "8,4278190080BM40,177M58,188M59,376M54,374M59,375M77,368BM93,362M98,364M99,225M97,209M93,196M89,193BM55,375M41,379M42,387M60,3"
Data "76BM99,364M78,371BM64,156M66,156M71,46M67,38BM97,161M103,163M99,118M96,92M90,71M82,56BM53,220P4291261646,4278190080BM97,251P4"
Data "291261646,4278190080BM98,148P4291261646,4278190080BM68,50P4291261646,4278190080BM66,167P4288240030,4278190080BM96,432P4288240"
Data "030,4278190080BM140,405P4288240030,4278190080BM121,393P4294348798,4278190080BM193,404P4288240030,4278190080BM193,377P42882400"
Data "30,4278190080BM186,378P4288240030,4278190080BM175,393P4285487518,4278190080BM194,388P4288240030,4278190080BM348,390P428856767"
Data "2,4278190080BM297,345P4294348798,4278190080BM296,415P4294348798,4278190080BM294,172P4294348798,4278190080BM294,172P4294348798"
Data ",4278190080BM294,171P4294348798,4278190080BM293,174P4294348798,4278190080BM325,415P4288240030,4278190080BM313,174P4288240030,"
Data "4278190080BM427,415P4288240030,4278190080BM434,438P4288240030,4278190080BM347,457P4288240030,4278190080BM414,397P4288240030,4"
Data "278190080BM438,376P4288240030,4278190080BM477,358P4288240030,4278190080BM409,359P4288240030,4278190080BM392,339P4288240030,42"
Data "78190080BM471,339P4288240030,4278190080BM447,316P4288240030,4278190080BM426,289P4288240030,4278190080BM411,272P4288240030,427"
Data "8190080BM366,258P4288240030,4278190080BM386,243P4288240030,4278190080BM395,234P4288240030,4278190080BM429,217P4288240030,4278"
Data "190080BM429,204P4288240030,4278190080BM493,177P4290301556,4278190080BM497,267P4290301556,4278190080BM471,227P4290301556,42781"
Data "90080BM485,276P4280446485,4278190080BM487,226P4280446485,4278190080BM457,175P4280446485,4278190080BM444,136P4287012411,427819"
Data "0080BM446,185P4287012411,4278190080BM431,75P4287012411,4278190080BM430,78P4281441822,4278190080BM266,204P4285152878,427819008"
Data "0BM258,237P4285152878,4278190080BM231,243P4285152878,4278190080BM257,65P4285081966,4278190080BM280,91P4285081966,4278190080BM"
Data "397,71P4282740286,4278190080BM405,183P4281560617,4278190080BM350,189P4281560617,4278190080BM417,126P4281560617,4278190080BM40"
Data "3,146P4282740286,4278190080BM357,150P4282740286,4278190080BM385,114P4282740286,4278190080BM355,172P4284718681,4278190080BM380"
Data ",153P4284718681,4278190080BM361,114P4284718681,4278190080BM372,102P4284718681,4278190080BM429,340P4283252334,4278190080BM425,"
Data "305P4283252334,4278190080BM432,452P4283252334,4278190080BM440,305P4284103582,4278190080BM422,306P4279578478,4278190080BM423,3"
Data "42P4279578478,4278190080BM424,385P4279578478,4278190080BM395,404P4279578478,4278190080BM418,428P4279578478,4278190080BM432,47"
Data "1P4279578478,4278190080BM576,449P4278198638,4278190080BM529,329P4282272878,4278190080BM618,451P4279900698,4278190080BM530,468"
Data "P4280953386,4278190080BM223,142M236,141M245,144M236,168M232,178M228,167M223,143BM232,152P4285152878,4278190080BM82,293P429030"
Data "1556,4278190080BM46,333P4290301556,4278190080BM58,81P4290301556,4278190080BM88,130P4290301556,4278190080BM154,466P4282272878,"
Data "4278190080BM71,470P4282272878,4278190080BM9,453P4282280558,4278190080BM11,343P4285152878,4278190080BM18,379P4279578478,427819"
Data "0080BM80,467P4279578478,4278190080BM218,469P4279578478,4278190080BM207,435P4287657166,4278190080BM248,382P4289892350,42781900"
Data "80BM564,288P4279592558,4278190080BM569,161P4280953386,4278190080BM612,287P4285399040,4278190080BM611,176P4285399089,427819008"
Data "0BM10,431P4285399089,4278190080BM12,167P4283058762,4278190080BM329,35P4279900698,4278190080BM317,34P4282006074,4278190080BM36"
Data "0,291P4279900698,4278190080BM347,457P4283252334,4278190080BM158,25M164,10"
Data "enddata"
rem ================================================================================================================================

Résultat:

Impressionnant !

Merci papydall !

Bel enthousiasme pour la commande TRACE Smile

J'ai bien fait de l'ajouter Smile

Effectivement, cette commande TRACE fait bien les choses !

La prochaine version de FBCroco ajoutera une commande PICtoCHAR permettant de convertir une image en une suite de caractères imprimables en mode graphique.

Comme exemple, j'ai repris un ancien programme de papydall intitulé PANORAMARIO.

Voici, à titre indicatif, la transposition de ce programme.

Attention : ce programme ne fonctionnera pas avec la version actuelle de FBCroco. C'est juste pour montrer la syntaxe qui sera utilisée.

Code:: ' ============================================================================
' PANORAMARIO : UN MARIO EN PANORAMIC
' D'apres papydall sur le forum PANORAMIC
' ============================================================================
' Pour definir un monde, on a besoin de :
' * Tileset : fichier image contenant les differentes tuiles a poser
' * Un tableau de correspondance contenant des nombres;
' a chaque nombre correspond une tuile
' Schematiquement, cela donne : tileset + tableau = monde
' ============================================================================

' Les dimensions des tuiles doivent etre multiples de 8

const Largeur_Tile = 24
const Hauteur_Tile = 16

' Nb de tuiles en largeur et en hauteur

const Nombre_Blocs_Largeur = 15
const Nombre_Blocs_Hauteur = 13

' Largeur et hauteur de l'image finale qui representera le monde de Mario

const W = Largeur_Tile * Nombre_Blocs_Largeur
const H = Hauteur_Tile * Nombre_Blocs_Hauteur

' Tableau decrivant le monde de Mario

dim Table%(Nombre_Blocs_Largeur, Nombre_Blocs_Hauteur)

' Le choix du mode graphique est conditionne par les 2 derniers
' parametres qui sont les tailles des tuiles divisees par 8

mode 3, "PANORAMARIO", W, H, Largeur_Tile \ 8, Hauteur_Tile \ 8

' Decomposition du "tileset" en caracteres de codes >= 128

PICtoCHAR "C:\FBCroco\exemples\contrib\papydall\tileset1.bmp", 128

' Affichage du monde

Charger_Table()
Afficher_Monde()

while inkey() = "" : wend

' ============================================================================
' Charger le tableau definissant le monde de Mario

SUB Charger_Table()
dim i%, j%
for i = 1 to Nombre_Blocs_Hauteur
for j = 1 to Nombre_Blocs_Largeur
read Table(j,i)
next j
next i
END_SUB

' ============================================================================
' Afficher l'image du monde de Mario

SUB Afficher_Monde()
dim i%, j%
for i = 1 to Nombre_Blocs_Hauteur
for j = 1 to Nombre_Blocs_Largeur
locate j, i
print chr(128 + Table(j,i))
next j
next i
END_SUB

' ============================================================================
' Description du monde de Mario
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 2,0,0,0,0,0,0,0,0,2,2,2,2,2,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,3,4,0,0,0,1,1,1,1,0,0,1,1
data 0,0,5,6,0,0,0,0,0,0,0,0,0,0,0
data 0,0,5,6,0,0,0,0,0,0,0,0,0,0,0
data 0,0,5,6,0,0,0,0,0,0,0,0,0,0,0
data 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
' ============================================================================

Merci Père Noël pour ce bon cadeau!

Autre exemple : le programme de labyrinthe de FBCroco avec des sprites de 32x32 pixels :

Les programmes de papydall - Page 7 Maze10

Notes :

1. La taille du labyrinthe a été réduite ici pour que l'image ne prenne pas trop de place

2. Les murs se dessinent à mesure que le personnage avance ; cela s'obtient en contrôlant la transparence du caractère (sprite)

3. Les caractères de la police Amstrad deviennent trop grands avec des sprites da grande taille ; j'ai donc utilisé pour la légende la police FreeBASIC qui est toujours 8x16

Tout cela sera dans la prochaine version de FBCroco.

Merci Jean.

Voici une curiosité!
Que va-il afficher ce code ?

Code:: cls
? Atan2( 0 = 0 = 0, 0 = 0 = 0 = 0) ' Something from nothing
Sleep

Curiosité:

Sujet: Re: Les programmes de papydall Ven 1 Jan 2021 - 7:47

Code:: ' Les expressions sont evaluees de droite a gauche
' En FreeBASIC et FBCroco, FAUX = 0, VRAI = -1

? 0 = 0 ' -1
? 0 = 0 = 0 ' 0
? 0 = 0 = 0 = 0 ' -1

? Atan2(0, -1) ' Pi

Pour rester dans la série "something from nothing", que vaut 0^0 ?

Sujet: Re: Les programmes de papydall Ven 1 Jan 2021 - 10:39

Bonjour tout le monde et bonne année 2021 à vous tous!

jean_debord a écrit:: Pour rester dans la série "something from nothing", que vaut 0^0 ?

0^0 --- > 1 en Panoramic, en Free Basic , en Croco Basic, en Basic256
0^0 --- > 0 en QB, en Python

WikiPédia :
Zéro à la puissance zéro, noté 0^0, est une expression mathématique qui n'a pas de valeur évidente. Il n'existe pas de consensus quant à la meilleure approche : définir l'expression(en lui donnant la valeur 1) ou la laisser non définie. Plusieurs justifications existent pour chacune des possibilités. En algèbre et en théorie des ensembles, il est généralement convenu que la réponse est 0^0 = 1, alors qu'en analyse, l'expression n'est généralement pas définie. Les programmes informatiques ont également différentes méthodes pour gérer cette expression.
De nombreuses formules impliquant des entiers naturels nécessitent de définir 0^0 = 1. Par exemple, si l'on voit b^0 comme un produit vide, il faut le définir comme étant 1, même lorsque b = 0. En combinatoire, b^0 est le nombre de 0-uplets dans un ensemble à b éléments ; il y en a exactement un, même si b = 0. De manière équivalente, l'interprétation de 0^0 dans la théorie des ensembles est le nombre de fonctions de l'ensemble vide dans l'ensemble vide ; il y a exactement une telle fonction, la fonction vide.

https://fr.wikipedia.org/wiki/Z%C3%A9ro_puissance_z%C3%A9ro

Sujet: Re: Les programmes de papydall Ven 1 Jan 2021 - 12:06

Bonjour Jean

Est-il possible d’intégrer dans une nouvelle version la gestion de la souris ?
Getmouse mx%,my%

Merci pour tes efforts de faire évoluer le Crocodile.

Sujet: Re: Les programmes de papydall Ven 1 Jan 2021 - 16:49

Bonjour papydall,

Oui, GETMOUSE est bien utile et sera dans la prochaine version Smile

En attendant, voici la courbe de la fonction x^x (par le programme plotfunc.bas de FBCroco, adapté pour la circonstance). On voit que quand x tend vers 0, la fonction tend bien vers 1.

Les programmes de papydall - Page 7 Plotfu11

Sujet: Re: Les programmes de papydall Sam 2 Jan 2021 - 16:07

La commande GET_MOUSE (remarquez le tiret de soulignement) a été implémentée sous la forme suivante :

Code:: get_mouse x%, y%, btn%, wheel%

avec :

x%, y% : coordonnées de la souris, exprimées en pixels et par rapport à la fenêtre définie par ORIGIN
btn% : code du bouton
wheel% : position de la molette

Les programmes de papydall - Page 7 Get_mo10

Ce sera dans la prochaine version, qui ne saurait tarder Smile

Sujet: Re: Les programmes de papydall Dim 3 Jan 2021 - 12:28

Bonjour Jean.
Je viens de me mettre à jour.

Voici une simple démo de GET_MOUSE

Code:: rem ===================================================================================
rem Demo de GET_MOUSE pour afficher les Nouvelles Lunes
rem Papydall le 03 / 01 / 2021
rem Inspiration d un code en FB
rem ===================================================================================
def map(a,b,x,c,d) = ((d)-(c))*((x)-(a))/((b)-(a))+(c)
def length(px,py,x,y) = sqr(((px)-(x))*((px)-(x))+((py)-(y))*((py)-(y)))
' -------------------------------------------------------------------------------------
Dim mx%,my%,btn%,weel%,xp%,yp%
dim w%,h%,xc%,yc%
dim dist,factor
' -------------------------------------------------------------------------------------
w = 1000 : h = 600 : xc = w/2 : yc = h/2
mode 3,"Nouvelle Lune (Deplacer la souris) ... Une touche pour sortir ...",w,h
origin xc,yc
paper cl_noir
repeat
   Get_mouse mx,my,btn,weel
   Screenlock
   Cls
   pen rgb(220,220,000) : pie 0,0,50,50
   pen rgb(100,100,100) : pie mx,my,50,50
   dist = length(0,0,mx,my)
   factor = map(0,1000,dist,1,1.1)
   xp = factor*mx : yp = factor*my
   pen rgb(0,0,0) : pie xp,yp,50,50
   Screenunlock
Until Len(Inkey)
rem ======================================================================================

Sujet: Re: Les programmes de papydall Dim 3 Jan 2021 - 19:52

Merci papydall Smile

Note : dans les DEF il n'est pas nécessaire de mettre les noms de variables entre parenthèses, ces dernières seront ajoutées automatiquement lors de la traduction en FreeBASIC.

Ainsi on peut écrire :

Code:: def map(a,b,x,c,d) = (d-c)*(x-a)/(b-a)+c
def length(px,py,x,y) = sqr((px-x)*(px-x)+(py-y)*(py-y))

qui sera traduit par :

Code:: #define map(a,b,x,c,d) ( ((d)-(c))*((x)-(a))/((b)-(a))+(c) )
#define length(px,py,x,y) ( sqr(((px)-(x))*((px)-(x))+((py)-(y))*((py)-(y))) )

» Bienvenue à PRO Positif Plus !
» Lister les polices disponibles sur votre ordinateur
» Welcome Papydall
» Les articles de Papydall
» @ Papydall, (Joke)