petite animation

Bonsoir à tous !

Voici un essai d'animation que j'ai fait avec des sprites et 100% Panoramic.

Code:: ' ------------------------------------------------------------------------------
' PANORAMIC Bird Animation
' MARC - February 2018 - Panoramic v0.9.28.i14
' http://panoramic-language.pagesperso-orange.fr/French/index.html
' http://panoramic.top-forum.net
' ------------------------------------------------------------------------------
Init()
SpritesCreate()
Animation()
END
' ------------------------------------------------------------------------------
SUB Animation()
   DIM_LOCAL i%,j%,x%,y%
   j%=1
   x%=-100
   y%=700
   SPRITE_POSITION j%,x%,350
   FOR i%=1 to 300
   SPRITE_SHOW j%
   IF j% > 1 THEN SPRITE_HIDE j%-1
   IF j% = 1 THEN SPRITE_HIDE 9
   PAUSE 40
   j%=j%+1
   IF j%=10 THEN j%=1
   SPRITE_POSITION j%,x%,y%
   x%=x%+5
   y%=y%-3
   IF y% < 150 THEN y%=150
   NEXT i%
END_SUB
' ------------------------------------------------------------------------------
SUB Init()
   WIDTH 0,1300
   HEIGHT 0,700
   LEFT 0,(SCREEN_X-WIDTH(0))/2
   TOP 0,(SCREEN_Y-HEIGHT(0))/2
   SCENE2D 50
   FULL_SPACE 50
   COLOR 50,50,50,180
END_SUB
' ------------------------------------------------------------------------------
SUB SpritesCreate()
   DIM_LOCAL i%
   SPRITE_CREATE_HIDE
   FOR i% = 1 to 9
   picture i%
   WIDTH i%,78
   HEIGHT i%,105
   COLOR i%,150,150,50
   DataRead(i%)
   IMAGE i%+50
   2D_IMAGE_COPY i%+50,0,0,78,105
   SPRITE i%
   SPRITE_IMAGE_LOAD i%,i%+50
   NEXT i%
END_SUB
' ------------------------------------------------------------------------------
SUB DataRead(sp%)
   DIM_LOCAL n%,x%,y%,i%,a%
   2D_TARGET_IS sp%
   READ n%
   WHILE n% <> 0
   IF MOD(a%, 2) = 0
   2D_PEN_COLOR 0,0,0
   ELSE
   2D_PEN_COLOR 255,255,255
   END_IF
   FOR i%=0 to n%-1
   2D_POINT x%,y%
   x%=x%+1
   IF x% = 78
   x%=0
   y%=y%+1
   END_IF
   NEXT i%
   Read n%
   a%=a%+1
   END_WHILE
END_SUB
' ------------------------------------------------------------------------------
' Bird 1
DATA 12,3,75,5,73,2,2,3,72,2,3,3,71,2,3,3,71,2,4,3,70,2,4,3,64,3,3,3,4,2,41,2,20,6,2,2,4,2,33,2,3,4,20,2,3,6,4,3,30,3,2,2,1,2
DATA 22,2,4,4,4,3,28,1,2,1,2,1,1,2,24,2,5,4,3,3,22,2,2,2,1,1,2,1,2,1,26,3,5,3,4,2,20,3,2,1,2,1,1,1,2,2,28,2,6,3,3,2,19,1,1,1,1
DATA 2,3,2,2,1,30,3,6,1,4,2,17,2,1,1,1,1,2,3,2,2,32,2,11,1,14,2,1,1,2,3,2,2,2,2,24,9,1,3,9,3,11,3,1,1,2,2,3,2,2,2,23,2,2,12,8
DATA 2,11,1,1,1,1,1,2,2,3,1,3,1,24,3,9,6,7,2,10,1,2,2,2,2,3,1,2,2,25,4,12,3,4,4,9,1,2,2,2,2,3,1,2,1,28,5,16,1,2,2,8,1,2,2,2,2
DATA 6,1,31,7,10,2,3,1,4,1,3,1,2,2,2,1,6,2,36,6,6,1,4,2,3,2,2,1,2,2,2,1,6,1,34,6,7,4,4,2,3,2,1,1,3,1,2,1,5,2,31,4,10,2,2,2,5,1
DATA 1,2,1,1,2,1,11,2,29,3,12,2,10,1,2,1,2,1,1,1,11,1,29,2,9,2,3,1,11,2,1,1,3,3,10,1,29,13,3,1,11,2,2,1,3,2,9,1,31,9,6,1,12,1
DATA 2,2,13,1,36,2,8,1,11,2,1,4,12,1,35,2,4,2,3,1,11,4,14,2,34,2,3,3,4,1,9,1,1,3,15,1,35,1,2,4,15,1,1,3,14,2,35,4,1,1,6,1,9,1
DATA 1,2,14,2,40,1,8,1,8,1,1,2,14,1,41,1,17,1,1,2,13,2,41,1,9,1,7,1,1,2,12,2,42,1,8,2,6,1,2,2,12,1,43,1,7,2,7,1,2,2,11,2,43,2
DATA 1,1,4,1,8,2,1,2,11,1,44,3,15,1,2,1,10,2,45,2,6,1,8,1,2,1,10,1,46,2,15,1,2,1,10,1,46,2,6,2,7,1,2,1,9,2,47,1,6,2,7,1,2,2,8
DATA 2,47,1,15,1,2,2,8,1,48,1,15,1,3,1,8,1,48,1,6,1,8,2,2,4,4,2,48,2,5,1,9,1,2,2,2,7,48,1,6,1,8,1,3,1,1,2,4,5,45,2,14,1,5,1,8
DATA 4,25,3,16,2,6,1,11,2,10,6,21,1,2,4,13,2,17,1,11,4,2,2,19,2,3,9,4,2,1,2,16,1,12,8,18,2,9,5,5,2,3,2,11,1,14,7,18,2,19,2,3,1
DATA 11,1,14,2,4,2,18,2,19,2,3,2,9,1,13,8,20,2,11,4,10,2,7,1,13,4,2,2,22,2,2,7,2,2,20,1,12,3,30,5,10,3,14,1,10,2,43,1,3,6,2,2
DATA 9,2,5,3,43,8,1,11,5,3,1,4,44,6,2,2,7,14,46,3,1,3,1,2,68,1,1,1,1,1,3,1,71,1,1,1,1,1,71,2,1,1,1,1,1,1,68,2,1,2,1,4,68,4,1,3
DATA 71,2,2788,0
' Bird 2
DATA 25,2,76,1,1,1,74,2,1,1,74,2,1,1,74,1,2,1,74,1,2,1,36,2,30,2,3,2,2,1,35,3,30,3,2,2,2,1,34,2,1,1,30,1,1,1,2,2,2,1,34,2,1,1
DATA 30,1,1,1,2,2,2,1,29,1,4,2,1,1,30,1,1,2,1,2,2,1,28,2,4,1,2,1,30,1,2,1,1,2,2,2,27,3,3,1,2,1,30,1,2,1,1,2,2,2,27,1,1,2,1,2,2
DATA 1,30,1,2,4,2,2,27,1,1,2,1,2,2,1,30,2,2,3,3,1,27,1,2,1,1,2,2,1,30,2,2,3,3,1,27,1,2,4,2,1,31,1,3,3,2,2,26,1,2,3,3,1,24,3,4
DATA 2,2,3,2,2,21,2,3,2,1,3,2,2,24,4,3,2,3,2,3,1,20,4,2,2,2,2,2,2,24,2,1,2,3,1,3,2,3,2,20,1,1,2,2,1,2,2,2,2,24,2,2,2,2,2,3,1,3
DATA 2,20,1,2,2,1,1,2,2,2,2,25,2,3,1,2,1,3,1,4,1,20,2,2,3,3,1,2,2,25,2,4,1,1,2,3,1,3,2,20,1,3,3,1,2,2,1,27,2,4,1,1,1,7,2,16,2
DATA 2,2,3,2,1,2,2,1,28,2,4,3,7,1,15,4,2,1,3,2,2,1,2,1,29,2,5,2,6,2,14,2,1,5,3,1,5,1,24,4,2,2,10,1,2,1,15,2,2,3,8,2,24,2,1,3,1
DATA 3,8,1,2,2,14,2,3,2,8,2,25,1,3,6,7,1,3,2,14,2,3,1,8,1,26,2,14,1,4,2,12,2,1,2,11,1,27,3,12,1,5,2,9,6,12,1,29,4,15,2,9,2,15
DATA 2,27,1,2,5,13,2,11,2,13,2,26,8,5,3,6,2,10,4,12,1,27,1,11,1,10,1,9,4,12,2,28,1,9,2,10,1,7,2,16,1,30,4,5,1,11,1,6,1,17,2,32
DATA 2,5,1,11,1,5,1,1,2,14,2,33,1,6,1,11,2,4,3,14,2,33,2,6,1,11,2,3,2,16,1,34,2,6,2,8,1,2,1,2,2,16,2,34,2,6,2,8,1,2,4,16,2,35
DATA 1,8,1,8,2,1,3,17,1,36,2,7,1,9,1,1,3,16,2,36,2,7,2,8,1,2,2,15,2,38,3,6,1,8,2,1,2,15,2,39,2,5,1,1,1,8,1,2,1,14,2,41,1,5,1,2
DATA 1,7,1,2,2,13,1,42,2,4,1,10,2,2,15,43,1,4,1,11,1,2,3,4,2,3,6,40,2,3,2,10,1,3,2,3,2,9,3,38,2,4,1,11,1,3,1,2,2,11,6,35,2,4,1
DATA 10,2,2,2,1,2,11,8,18,5,11,2,4,1,10,1,5,1,12,5,1,3,17,1,1,14,1,2,4,3,13,1,14,7,17,1,17,3,2,3,13,1,14,2,5,1,17,2,16,4,1,4,10
DATA 2,14,1,2,6,17,3,13,13,8,1,14,8,20,3,9,2,1,1,19,1,14,5,25,11,2,2,4,2,4,1,7,2,11,4,41,2,3,10,6,2,8,4,41,3,1,4,1,2,1,7,5,2,3
DATA 6,41,4,1,6,9,13,45,7,1,1,14,3,52,1,1,3,1,1,1,1,70,1,1,2,1,3,69,2,1,1,1,3,69,8,70,3,1,3,2860,0
' Bird 3
DATA 873,2,75,1,1,1,74,2,1,1,74,1,2,1,68,2,4,1,2,1,67,3,3,2,2,1,67,1,1,1,3,2,2,1,67,1,1,1,3,2,2,1,66,2,1,2,2,1,3,2,65,2,1,2,2
DATA 2,2,2,50,2,13,2,1,2,2,1,3,2,50,3,12,2,1,2,2,2,3,1,49,2,1,1,12,2,2,1,2,2,3,1,49,2,1,1,7,2,3,2,2,2,1,2,3,2,43,2,3,1,2,1,7,3
DATA 2,2,2,2,1,2,3,2,42,4,2,1,2,2,6,3,3,1,3,2,1,1,4,1,42,2,1,1,2,1,2,1,7,1,1,2,2,1,3,2,1,1,4,2,41,2,1,2,1,1,2,1,7,1,1,2,2,2,3
DATA 1,1,2,4,1,41,2,1,4,2,1,7,1,2,2,1,2,3,2,1,1,4,2,35,3,2,2,2,3,2,1,7,2,2,1,2,1,4,4,4,1,35,4,1,2,2,3,1,2,7,2,3,1,1,2,4,3,4,2
DATA 34,2,1,1,1,2,2,3,1,2,8,1,3,2,1,2,4,2,5,2,34,1,1,4,2,2,2,2,8,2,3,4,5,2,5,2,33,1,2,3,2,2,2,2,9,1,5,3,5,1,5,2,29,3,1,1,2,2,3
DATA 2,2,2,10,1,5,3,11,2,28,6,1,2,3,2,2,1,8,2,1,2,5,3,11,2,27,1,1,3,2,2,3,2,1,2,8,5,7,1,10,1,1,2,26,1,2,2,3,1,3,1,2,2,8,1,1,4
DATA 16,1,3,2,26,1,2,2,2,1,3,1,2,2,8,2,1,4,15,1,4,2,22,4,2,2,2,1,6,1,10,1,3,4,13,1,6,2,19,2,1,2,2,2,8,2,10,2,3,4,12,1,7,2,18,2
DATA 2,1,3,1,8,2,11,2,18,1,8,2,18,1,3,1,11,1,13,2,13,5,9,2,17,1,14,2,12,4,11,2,3,2,8,2,15,4,13,1,13,6,8,2,5,2,8,1,14,2,15,2,14
DATA 1,2,3,7,1,16,1,13,1,17,2,14,2,11,1,16,2,12,1,16,2,16,3,26,2,2,14,11,3,19,4,7,1,12,1,3,13,2,5,7,3,21,3,7,1,12,1,3,3,7,2,7
DATA 4,3,2,24,1,9,2,10,2,2,2,7,2,10,5,22,2,3,2,8,1,11,1,2,2,7,2,11,7,19,5,2,2,7,3,8,1,3,2,6,1,12,4,2,2,19,1,1,9,4,3,8,2,3,1,6
DATA 1,12,9,18,2,4,4,4,1,1,1,10,1,3,3,4,2,13,8,18,2,5,5,1,2,1,3,8,1,4,1,4,1,13,7,1,2,18,2,6,17,1,2,5,1,2,1,13,9,20,3,10,3,6,11
DATA 2,2,12,9,21,4,2,2,1,6,11,5,4,1,11,4,29,9,3,2,1,6,1,2,9,2,8,4,41,17,7,3,3,4,42,5,1,5,5,9,2,6,44,11,10,9,48,1,1,1,2,3,1,2,69
DATA 1,1,4,1,2,67,2,1,4,1,2,68,1,1,2,1,1,1,2,67,4,1,5,69,2,3,2,2784,0
' Bird 4
DATA 3783,15,59,7,4,2,4,4,53,6,8,2,8,4,40,1,6,5,12,1,9,8,36,2,1,6,14,2,10,4,1,4,18,14,1,1,1,3,19,1,12,2,1,2,1,2,18,1,5,3,1,1,4
DATA 1,1,2,20,1,15,6,18,2,12,1,1,2,1,2,17,1,15,2,4,1,2,1,5,2,7,2,4,3,5,1,2,3,18,1,13,1,1,7,1,3,4,3,8,2,2,1,1,1,5,1,2,2,18,2,12
DATA 1,2,6,2,1,1,1,3,1,1,2,9,4,1,2,4,1,3,1,17,1,2,1,11,9,1,2,1,1,2,2,1,1,12,2,2,2,2,2,3,1,17,1,2,1,10,4,2,1,1,1,2,2,1,1,2,1,2
DATA 1,12,2,3,1,1,3,3,2,16,1,2,2,7,4,4,1,2,1,1,1,1,2,1,2,1,2,7,3,3,1,3,3,1,2,3,1,15,1,4,3,2,4,2,1,2,1,1,1,2,1,1,1,1,1,2,1,2,1
DATA 8,1,1,2,2,2,3,2,1,2,3,2,14,2,1,8,1,1,4,1,1,2,2,3,2,1,1,1,3,1,8,1,2,2,2,1,4,1,2,1,4,1,14,4,13,2,1,1,2,2,2,3,3,2,8,2,2,2,1
DATA 2,3,2,1,1,4,2,12,2,17,2,3,2,2,2,3,2,10,2,2,2,1,1,4,2,1,1,4,2,11,1,19,3,1,1,2,1,5,1,12,1,3,2,1,1,4,3,5,2,9,2,1,1,8,2,9,3,2
DATA 2,3,2,7,4,2,1,3,4,4,3,5,2,8,1,4,17,2,6,1,3,8,2,1,6,4,2,4,3,5,2,6,2,18,5,2,6,11,1,3,5,4,2,4,3,5,5,2,1,24,7,13,2,4,5,3,2,4
DATA 1,11,1,46,4,5,17,4,2,46,13,11,7,47,7,2483,0
' Bird 5
DATA 3784,14,60,5,4,1,5,6,52,6,7,2,9,4,47,5,11,1,12,5,20,1,19,6,13,2,12,2,1,4,18,9,3,10,17,2,12,8,17,1,4,10,24,2,13,8,16,2,17
DATA 2,17,3,12,6,2,1,17,2,16,1,18,1,1,1,12,9,18,2,12,1,1,2,18,1,1,1,12,5,1,2,19,3,10,4,19,1,1,1,12,3,26,4,5,3,2,1,19,1,2,1,9,3
DATA 30,7,5,2,18,1,2,1,6,4,43,2,18,2,5,6,43,4,18,9,3,1,43,3,19,2,1,1,4,1,3,2,44,1,19,2,7,1,2,2,43,2,19,2,7,1,3,2,41,3,19,2,8,1
DATA 3,1,39,3,1,2,18,2,9,1,2,2,38,3,1,2,18,2,9,1,3,1,38,5,19,1,1,4,6,1,2,2,40,1,20,1,2,3,6,1,3,1,40,1,20,1,4,1,7,2,1,2,39,1,20
DATA 1,5,1,7,1,2,2,38,1,20,1,6,1,10,1,37,1,20,2,6,1,10,2,58,1,7,2,4,1,4,1,36,1,20,3,7,2,3,1,4,1,37,1,19,1,1,1,8,5,4,2,36,1,18
DATA 2,1,2,12,2,2,2,36,2,17,2,2,2,2,1,9,6,35,2,17,1,4,5,13,1,35,2,16,2,5,4,2,2,2,1,6,2,34,3,15,1,9,1,1,3,2,1,7,2,32,5,13,2,9,1
DATA 1,3,1,2,5,1,2,1,10,1,17,1,3,2,1,2,12,2,10,3,1,1,1,2,2,1,2,2,1,2,4,2,3,2,15,3,1,1,1,2,1,1,12,1,12,2,1,1,2,2,1,2,2,2,1,7,2
DATA 2,16,1,2,2,1,2,1,2,10,2,15,2,1,2,2,2,2,2,2,9,11,7,1,2,1,2,1,2,9,2,17,2,1,2,1,3,2,3,1,8,11,7,2,2,1,1,2,2,7,2,19,1,2,2,1,4
DATA 2,9,12,8,2,4,1,3,5,2,24,4,1,10,15,2,1,5,2,3,3,3,2,2,26,3,3,3,21,2,1,12,1,5,59,18,75,2,906,0
' Bird 6
DATA 3785,10,63,7,2,3,2,5,56,5,7,2,6,4,50,5,10,2,9,6,42,6,13,2,11,7,33,8,17,2,11,4,1,3,19,17,20,3,11,9,17,4,1,2,13,2,16,3,13,4
DATA 2,2,17,3,12,2,1,2,17,3,12,2,1,4,1,2,17,3,12,4,17,3,12,9,20,2,10,4,18,3,13,4,2,1,22,4,4,4,1,2,18,3,11,3,30,7,4,1,19,4,6,5
DATA 35,1,7,1,20,1,1,2,3,5,45,1,20,2,1,8,46,1,21,2,3,1,3,1,46,3,19,1,5,1,2,2,46,1,20,2,4,1,3,1,45,2,20,2,5,1,2,2,44,2,21,2,8,1
DATA 44,1,22,2,8,2,43,1,23,1,9,1,43,1,23,2,8,2,42,2,22,2,9,2,42,1,23,1,10,1,42,1,23,1,10,2,41,1,23,2,10,2,41,2,22,1,11,1,41,2
DATA 22,1,11,2,41,1,21,2,12,1,41,2,20,2,1,1,10,2,41,2,19,2,1,1,11,1,40,2,4,2,14,2,2,1,10,1,39,1,5,2,15,1,4,1,9,1,38,1,3,4,16,1
DATA 4,1,4,1,4,2,37,7,4,2,11,1,5,2,2,2,1,4,38,1,2,2,4,3,11,1,7,6,2,1,40,2,4,3,12,1,15,1,39,2,3,4,5,1,6,2,15,2,37,2,3,2,1,2,4,1
DATA 7,2,15,2,36,2,1,4,1,2,4,2,7,2,1,1,2,1,11,1,37,3,3,2,4,2,8,2,1,1,2,1,11,2,41,2,4,3,4,1,2,5,2,1,3,1,4,1,3,1,41,2,3,2,1,1,3,2
DATA 2,5,2,2,2,2,3,2,2,2,39,2,3,2,1,2,3,1,3,1,2,3,1,2,3,1,3,2,2,2,38,2,3,2,1,2,3,2,2,2,3,2,1,2,3,2,3,1,3,2,37,1,2,2,3,2,2,3,2,2
DATA 4,1,1,2,3,2,3,2,2,2,36,5,3,2,3,3,2,1,5,5,2,3,3,2,2,2,36,3,4,1,3,3,2,2,5,5,2,3,3,2,3,1,42,2,2,1,1,2,2,1,7,2,1,2,1,1,1,2,3,2
DATA 2,2,40,2,2,2,1,2,1,2,11,4,1,1,3,3,2,2,39,1,2,2,2,1,2,2,11,4,1,2,2,1,1,2,2,1,39,4,2,2,2,1,13,3,2,2,2,1,1,2,1,2,38,3,3,2,1,2
DATA 14,1,4,2,1,1,2,2,1,2,43,1,1,2,21,4,2,4,43,3,24,2,3,3,43,2,37,0
' Bird 7
DATA 3788,7,66,16,59,5,4,1,7,5,53,4,7,2,10,5,47,4,10,1,12,2,1,5,19,2,18,5,13,1,13,2,4,1,19,7,3,3,1,7,16,2,13,8,19,2,1,13,2,2,1
DATA 1,14,2,14,4,2,2,18,3,14,1,2,1,15,1,14,2,3,2,1,1,20,2,12,1,2,1,16,2,13,9,21,3,10,1,1,2,16,2,13,6,26,3,7,1,1,2,16,1,1,1,13
DATA 3,30,5,1,2,1,3,3,1,13,1,2,1,9,4,35,1,6,2,2,1,14,1,3,1,5,4,2,1,42,1,2,2,14,1,4,6,5,2,40,2,1,2,2,1,11,9,9,1,40,1,2,2,2,1,2
DATA 1,8,3,5,1,10,1,38,2,1,2,2,1,3,1,4,1,3,1,8,1,3,1,5,1,37,2,2,2,2,1,2,1,4,2,3,1,9,4,5,2,35,6,2,2,2,1,4,2,3,1,13,1,5,1,36,5,2
DATA 1,2,2,4,2,2,2,14,2,3,1,37,4,1,2,2,2,3,2,3,2,3,1,2,1,9,4,39,2,1,2,2,2,3,2,3,5,2,1,2,1,9,2,39,1,2,2,1,3,3,3,2,1,1,3,1,2,1,2
DATA 2,1,7,1,39,1,1,2,2,3,3,3,2,2,1,1,2,1,2,1,2,2,3,1,2,2,39,1,1,2,2,3,3,3,2,1,2,1,1,2,1,2,2,2,2,2,2,2,39,1,1,2,2,1,1,1,2,4,2,1
DATA 2,1,1,1,2,2,1,3,2,2,2,2,39,1,1,2,1,2,1,1,2,1,1,2,2,6,1,2,2,2,3,2,2,2,39,4,1,2,1,1,2,1,1,2,2,2,1,3,1,2,1,3,3,2,2,2,39,4,1,1
DATA 2,1,2,1,1,2,2,2,1,2,1,3,1,1,1,1,3,2,3,1,39,4,1,1,2,1,2,1,2,1,3,1,2,4,2,1,1,1,3,2,3,1,41,2,1,1,2,1,2,1,2,1,3,1,2,4,1,2,1,1
DATA 5,1,2,1,42,1,1,1,2,1,2,1,2,1,3,1,2,4,1,2,1,1,2,1,2,1,2,1,42,1,1,1,2,1,2,1,2,2,2,1,2,2,1,1,1,1,2,1,2,1,2,1,2,1,42,1,1,1,2,2
DATA 1,1,2,2,2,1,3,1,1,1,1,1,2,1,2,1,2,1,2,2,42,2,2,2,1,1,3,1,2,2,4,1,1,1,2,1,2,1,2,2,1,2,42,2,3,1,1,1,3,1,2,2,4,3,2,1,2,1,3,1
DATA 2,1,47,1,1,2,2,2,2,1,4,2,3,1,2,1,3,1,2,1,47,2,1,1,3,1,2,1,5,1,3,1,2,1,3,1,2,1,47,2,1,1,3,1,2,2,8,2,1,2,2,2,1,2,47,3,3,2,1
DATA 2,9,1,1,1,4,1,2,1,47,3,4,2,1,1,9,1,1,2,3,2,1,1,48,2,4,2,1,1,9,1,1,2,4,1,1,2,54,1,2,1,9,3,4,2,1,1,55,1,1,1,9,2,6,1,1,2,54
DATA 4,16,2,1,1,55,3,17,4,55,2,18,3,713,0
' Bird 8
DATA 2460,6,68,13,62,6,9,1,59,7,10,2,58,5,13,1,56,5,13,1,1,2,54,5,14,2,1,1,54,5,14,2,1,2,53,4,3,2,11,1,2,1,54,2,3,3,3,2,6,2,1
DATA 2,5,10,38,2,3,2,4,2,6,2,2,2,1,5,7,3,36,1,3,3,4,2,7,1,2,2,1,3,8,2,1,2,35,1,2,4,4,2,7,2,2,4,8,3,1,2,35,1,2,5,3,2,4,1,3,1,3
DATA 2,8,3,3,1,35,2,1,2,1,2,3,2,4,1,3,2,3,1,8,2,4,2,35,1,1,2,1,2,3,2,4,2,3,1,3,2,7,2,4,2,35,4,2,1,3,3,4,1,3,2,3,2,6,2,5,1,36,2
DATA 3,2,3,2,4,2,3,2,3,5,2,2,5,2,36,2,3,1,3,3,3,3,3,1,4,2,1,6,5,1,41,2,2,3,3,3,3,2,4,4,3,5,1,2,41,1,2,2,1,1,3,3,3,1,6,2,8,4,40
DATA 2,2,1,1,1,3,4,2,2,6,2,9,7,36,1,2,2,1,1,3,1,1,1,3,2,6,1,10,4,1,3,19,14,1,2,2,1,1,2,2,2,1,1,3,1,7,1,11,1,1,6,18,2,8,4,1,2,1
DATA 2,1,2,2,2,1,1,3,1,6,2,11,6,1,2,18,2,12,2,1,1,2,1,3,1,1,2,2,2,7,1,12,6,1,1,19,3,10,1,1,1,3,1,2,2,1,2,2,2,7,2,10,9,21,2,9,4
DATA 1,2,2,1,2,2,2,1,8,2,10,5,2,1,23,3,5,9,1,2,2,1,2,2,9,1,9,3,31,6,5,1,1,2,1,1,3,1,3,1,9,2,5,4,44,3,2,5,2,2,11,6,1,2,41,6,1,2
DATA 1,3,2,4,7,6,1,1,1,2,40,7,1,6,2,2,1,9,1,1,4,1,1,2,40,2,2,6,3,1,2,2,8,1,2,3,2,1,1,2,42,7,4,1,2,2,8,2,2,2,2,1,1,2,41,3,1,4,4
DATA 1,2,1,10,1,2,3,1,4,39,2,1,2,1,1,1,2,4,1,2,1,14,2,1,4,38,2,1,2,1,4,5,1,2,1,14,2,2,3,38,3,2,4,6,2,1,1,19,2,39,1,3,2,9,1,1,1
DATA 19,1,55,3,76,2,2538,0
' Bird 9
DATA 1665,13,62,7,6,2,1,2,56,5,3,2,5,3,3,1,55,4,4,2,4,4,4,1,53,3,1,1,4,2,3,3,1,3,3,2,9,2,1,11,28,2,2,2,3,2,3,3,1,1,6,2,7,8,5,4
DATA 25,3,1,3,2,3,3,2,3,1,6,2,5,6,8,3,1,2,23,2,1,4,2,3,3,2,3,2,6,2,4,4,10,2,3,2,22,2,1,4,2,4,2,2,2,4,6,1,4,4,10,2,1,1,3,1,22,4
DATA 1,1,2,4,2,2,2,2,2,1,6,1,3,2,12,2,1,2,2,2,21,4,1,1,2,2,1,1,2,2,3,1,7,1,2,1,2,2,12,3,1,2,2,2,21,2,2,2,1,2,1,2,1,2,3,2,7,1,2
DATA 1,1,2,12,4,1,3,1,2,25,4,2,2,1,2,3,1,8,1,2,3,12,2,1,1,2,2,2,2,25,3,2,2,1,2,3,2,8,1,2,2,13,4,2,3,1,2,25,2,3,4,4,1,9,1,2,1,13
DATA 2,1,2,1,4,1,2,30,3,5,1,9,1,2,1,13,5,1,1,1,2,1,2,30,1,7,1,9,1,2,1,12,8,1,2,1,1,31,1,7,1,9,1,2,1,12,1,3,3,2,1,1,2,31,1,7,1,8
DATA 2,2,1,11,2,3,3,2,3,32,1,7,2,7,2,2,1,11,1,5,1,4,1,33,1,7,2,7,2,2,2,9,2,44,2,5,4,6,2,2,2,9,2,45,1,5,1,2,1,6,2,2,2,9,1,46,2,4
DATA 1,2,1,6,2,2,2,8,2,46,2,4,2,8,2,2,2,8,2,47,1,4,2,8,2,3,1,8,1,48,1,5,1,9,1,3,2,6,2,48,1,5,1,9,1,3,11,47,1,5,2,8,2,3,1,1,2,4
DATA 5,44,2,5,1,8,2,5,1,8,3,44,1,5,1,9,1,4,2,10,5,40,1,6,1,8,1,4,1,12,7,18,4,15,3,3,1,1,1,11,2,12,3,3,2,17,22,3,4,10,2,13,8,16
DATA 2,7,7,6,3,2,3,9,1,15,4,2,2,16,2,26,1,9,2,13,1,1,7,17,2,14,3,19,1,13,8,20,2,11,4,19,1,13,4,25,4,4,4,2,2,1,1,17,2,10,4,30,6
DATA 5,1,2,4,3,3,9,2,7,4,41,3,3,12,7,1,4,4,43,14,3,7,2,7,44,3,2,3,1,2,10,8,48,4,2,6,69,1,1,4,1,1,69,1,2,3,1,2,68,6,1,2,68,9,68
DATA 3,2,3,2783,0

Là, tu frappes fort, Marc ! king

Mais pourquoi tu postes dans les inutilitaires ?
Ce n'est pas si inutile que ça, à moins que tu ignores l'utilité de l'inutile ! Wink

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Oui Marc, pas mal du tout !
Et comme dit papydall, pas si inutile que ça, au moins pour se distraire, et surtout pour donner des idées !

Merci de vos encouragements !

Papydall a écrit:: Mais pourquoi tu postes dans les inutilitaires ?

Dur de savoir où poser la frontière entre utilitaire et inutilitaire...

De nombreux sujets contenant des mines d'informations sont dans cette rubrique.

Je poste ci-dessous, mon petit source qui m'a permis de convertir une image en lignes de DATAs.
Il est fait et adapté uniquement pour mon application d'animation. Mais si ça peut donner des ~~ailes~~ idées à d'autres... j'en serai ravi.

Pour résumer, j'entre une image comme celle-ci :

et en sortie j'ai un fichier texte comme celui-ci :

Code:: ' ------------------------------------------------------------------------------
' PANORAMIC Data Generator
' MARC - February 2018 - Panoramic v0.9.28.i14
' http://panoramic-language.pagesperso-orange.fr/French/index.html
' http://panoramic.top-forum.net
' ------------------------------------------------------------------------------
' format images 78x105 en bichromie
' chaque image commence obligatoirement par un blanc

Init()

FOR k% = 1 to 9
   FILE_LOAD 1,STR$(k%)+".bmp"
   FOR i%= 0 to 800
   dat(i%)=0
   NEXT i%
   n%=0
   x%=0
   y%=0
   i%=0
   couleur%=0
   i%=x% + 78 * y%
   WHILE i% < 78*105
   Couleur%= COLOR_PIXEL_BLUE(1,x%,y%)
   WHILE Couleur%=255 AND i% < (78*105)
   dat(n%)=dat(n%)+1
   x%=x%+1
   IF x% = 78
   x%=0
   y%=y%+1
   END_IF
   i%=x% + 78 * y%
   Couleur%= COLOR_PIXEL_BLUE(1,x%,y%)
   END_WHILE
   n%=n%+1
   WHILE Couleur%=0 AND i% < (78*105)
   dat(n%)=dat(n%)+1
   x%=x%+1
   IF x% = 78
   x%=0
   y%=y%+1
   END_IF
   i%=x% + 78 * y%
   Couleur%= COLOR_PIXEL_BLUE(1,x%,y%)
   END_WHILE
   n%=n%+1
   END_WHILE

Record(k%)

' verif
' PRINT_LOCATE 0,0
' FOR i%=0 to 50
' PRINT STR$(dat(i%))+" "
' NEXT i%

   n%=0
   x%=0
   y%=0
   i%=0
   couleur%=0
   WHILE dat(n%) <> 0
   IF MOD(n%, 2) = 0
   2D_PEN_COLOR 0,0,0
   ELSE
   2D_PEN_COLOR 255,251,1
   END_IF
   FOR i%=0 to dat(n%)-1
   2D_POINT x%,y%
   x%=x%+1
   IF x% = 78
   x%=0
   y%=y%+1
   END_IF
   NEXT i%
   n%=n%+1
   END_WHILE
NEXT k%
END
' ------------------------------------------------------------------------------
SUB Record(name%)
   DIM_LOCAL n%,nb%,i%
   FILE_OPEN_WRITE 100,STR$(name%)+".txt"
   nb%=0
   n%=dat(nb%)
   WHILE n%<>0
   FOR i%=0 to 50
   IF i%=0
   FILE_WRITE 100,CHR$(13)+CHR$(10)+"DATA "+STR$(n%)+","
   ELSE
   IF i% = 50
   FILE_WRITE 100,STR$(n%)
   ELSE
   FILE_WRITE 100,STR$(n%)+","
   END_IF
   END_IF
   nb%=nb%+1
   n%=dat(nb%)
   IF n%=0
   FILE_WRITE 100,STR$(n%)
   EXIT_FOR
   END_IF
   NEXT i%
   END_WHILE
FILE_CLOSE 100
END_SUB
' ------------------------------------------------------------------------------
SUB Init()
   DIM couleur%,n%,x%,y%,i%,k%
   DIM dat(800)
   HEIGHT 0,800
   PICTURE 1
   left 1,100
   PICTURE 2
   LEFT 2,100
   TOP 2 , 300
   WIDTH 2,800
   HEIGHT 2,800
   2D_TARGET_IS 2
END_SUB

Pardonnez-moi, le source est brut de fonderie.

Bonjour à tous,

@Marc,
C'est à la fois beau et génial, je te dis BRAVO ! cheers

Je n'ai pas copier ton code de transformation "PANORAMIC Data Generator", (pour l'instant), mais éffectivement, il serait super de pouvoir en faire un programme pour tous les dessins...

A+

» Une petite animation
» Petite animation Forum
» Animation de courbe de Bézier cubique
» Une animation
» Montrer une animation GIF