Pour tester les fonctionnalités de transfert de programme et les possibilités graphiques de mon Dragon 32, j'ai adapté un ancien code que j'avais en un convertisseur d'image -> code basic, le but étant d'obtenir un code testable en premier sur émulateur puis sur le dragon. (Je n'avais pas encore récupéré d'images de jeux à l'époque...)
Concrètement, le programme balayage l'image (ici cette image de loup) et remplace les pixels contigus par des lignes ou des points. (Je ne cherche pas à faire de compression pour le moment...)
Bon ça n'a pas une grande prétention, mais ça fonctionne : passage par l'émulateur, génération du fichier WAV correspondant et envoi/exécution sur le dragon.
J'ai besoin de faire des tests supplémentaires, j'ai en effet l'impression que les différents modes graphiques et les résolutions qui vont avec ne collent pas vis à vis de la doc que j'ai et (plus grave) avec l'émulateur. A suivre...
Prochaine étape : je suis en train de modifier l'algorithme pour isoler le contour du sujet et tracer les contours avec la fonction DRAW que propose le BASIC. Quelques PAINT ensuite permettrons d'obtenir l'image finale. Je testerai également les différentes palettes de couleur !
Bon ce bricolage n'a pas le niveau d'autres développements que j'ai pu voir ici, mais bon on commence petit pour arriver au final à quelque chose de plus gros ^^
Code : Tout sélectionner
5 PMODE 2: PCLS 1
10 SCREEN 1,1
15 COLOR 0,5
16 LINE (172,0)-(175,0),PSET
17 LINE (172,1)-(176,1),PSET
18 LINE (171,2)-(178,2),PSET
19 LINE (171,3)-(179,3),PSET
20 LINE (170,4)-(180,4),PSET
21 LINE (169,5)-(180,5),PSET
22 LINE (168,6)-(180,6),PSET
23 LINE (167,7)-(180,7),PSET
24 LINE (166,8)-(183,8),PSET
25 LINE (166,9)-(183,9),PSET
26 LINE (165,10)-(184,10),PSET
27 LINE (165,11)-(183,11),PSET
28 LINE (164,12)-(183,12),PSET
29 LINE (164,13)-(183,13),PSET
30 LINE (163,14)-(182,14),PSET
31 LINE (161,15)-(182,15),PSET
32 LINE (160,16)-(182,16),PSET
33 LINE (159,17)-(182,17),PSET
34 LINE (158,18)-(182,18),PSET
35 LINE (157,19)-(182,19),PSET
36 LINE (156,20)-(182,20),PSET
37 LINE (156,21)-(182,21),PSET
38 LINE (155,22)-(182,22),PSET
39 LINE (155,23)-(182,23),PSET
40 LINE (154,24)-(182,24),PSET
41 LINE (154,25)-(182,25),PSET
42 LINE (154,26)-(182,26),PSET
43 LINE (153,27)-(182,27),PSET
44 LINE (152,28)-(181,28),PSET
45 LINE (152,29)-(181,29),PSET
46 LINE (151,30)-(181,30),PSET
47 LINE (150,31)-(181,31),PSET
48 LINE (149,32)-(181,32),PSET
49 LINE (149,33)-(181,33),PSET
50 LINE (148,34)-(181,34),PSET
51 LINE (148,35)-(181,35),PSET
52 LINE (147,36)-(181,36),PSET
53 LINE (147,37)-(182,37),PSET
54 LINE (147,38)-(182,38),PSET
55 LINE (149,39)-(183,39),PSET
56 LINE (148,40)-(184,40),PSET
57 LINE (148,41)-(184,41),PSET
58 LINE (148,42)-(185,42),PSET
59 LINE (147,43)-(185,43),PSET
60 LINE (146,44)-(185,44),PSET
61 LINE (145,45)-(185,45),PSET
62 LINE (144,46)-(185,46),PSET
63 LINE (143,47)-(185,47),PSET
64 LINE (143,48)-(185,48),PSET
65 LINE (142,49)-(185,49),PSET
66 LINE (140,50)-(185,50),PSET
67 LINE (138,51)-(185,51),PSET
68 LINE (137,52)-(184,52),PSET
69 LINE (136,53)-(184,53),PSET
70 LINE (135,54)-(185,54),PSET
71 LINE (134,55)-(185,55),PSET
72 LINE (133,56)-(186,56),PSET
73 LINE (132,57)-(185,57),PSET
74 LINE (130,58)-(185,58),PSET
75 LINE (127,59)-(186,59),PSET
76 LINE (125,60)-(183,60),PSET
77 LINE (124,61)-(183,61),PSET
78 LINE (122,62)-(184,62),PSET
79 LINE (121,63)-(184,63),PSET
80 LINE (120,64)-(184,64),PSET
81 LINE (118,65)-(184,65),PSET
82 LINE (117,66)-(184,66),PSET
83 LINE (115,67)-(183,67),PSET
84 LINE (114,68)-(183,68),PSET
85 LINE (111,69)-(184,69),PSET
86 LINE (108,70)-(183,70),PSET
87 LINE (99,71)-(104,71),PSET
88 LINE (105,71)-(182,71),PSET
89 LINE (93,72)-(182,72),PSET
90 LINE (91,73)-(182,73),PSET
91 LINE (88,74)-(183,74),PSET
92 LINE (86,75)-(182,75),PSET
93 LINE (85,76)-(182,76),PSET
94 LINE (83,77)-(182,77),PSET
95 LINE (82,78)-(181,78),PSET
96 LINE (81,79)-(180,79),PSET
97 LINE (80,80)-(180,80),PSET
98 LINE (78,81)-(180,81),PSET
99 LINE (76,82)-(180,82),PSET
100 LINE (74,83)-(179,83),PSET
101 LINE (73,84)-(178,84),PSET
102 LINE (72,85)-(177,85),PSET
103 LINE (71,86)-(175,86),PSET
104 LINE (70,87)-(175,87),PSET
105 LINE (69,88)-(175,88),PSET
106 LINE (68,89)-(175,89),PSET
107 LINE (68,90)-(175,90),PSET
108 LINE (67,91)-(174,91),PSET
109 LINE (66,92)-(173,92),PSET
110 LINE (65,93)-(173,93),PSET
111 LINE (65,94)-(171,94),PSET
112 LINE (63,95)-(170,95),PSET
113 LINE (62,96)-(166,96),PSET
114 LINE (61,97)-(166,97),PSET
115 LINE (60,98)-(166,98),PSET
116 LINE (59,99)-(166,99),PSET
117 LINE (59,100)-(166,100),PSET
118 LINE (57,101)-(165,101),PSET
119 LINE (57,102)-(165,102),PSET
120 LINE (55,103)-(165,103),PSET
121 LINE (55,104)-(165,104),PSET
122 LINE (53,105)-(164,105),PSET
123 LINE (53,106)-(164,106),PSET
124 LINE (51,107)-(163,107),PSET
125 LINE (50,108)-(121,108),PSET
126 LINE (122,108)-(163,108),PSET
127 LINE (49,109)-(120,109),PSET
128 LINE (122,109)-(162,109),PSET
129 LINE (23,110)-(28,110),PSET
130 LINE (47,110)-(118,110),PSET
131 LINE (130,110)-(162,110),PSET
132 LINE (22,111)-(32,111),PSET
133 LINE (45,111)-(118,111),PSET
134 LINE (130,111)-(161,111),PSET
135 LINE (23,112)-(38,112),PSET
136 LINE (40,112)-(117,112),PSET
137 LINE (130,112)-(144,112),PSET
138 LINE (145,112)-(147,112),PSET
139 LINE (148,112)-(160,112),PSET
140 LINE (24,113)-(116,113),PSET
141 LINE (130,113)-(144,113),PSET
142 LINE (147,113)-(160,113),PSET
143 LINE (24,114)-(116,114),PSET
144 LINE (130,114)-(143,114),PSET
145 LINE (147,114)-(160,114),PSET
146 LINE (24,115)-(116,115),PSET
147 LINE (131,115)-(144,115),PSET
148 LINE (148,115)-(160,115),PSET
149 LINE (25,116)-(115,116),PSET
150 LINE (131,116)-(143,116),PSET
151 LINE (148,116)-(159,116),PSET
152 LINE (27,117)-(71,117),PSET
153 LINE (72,117)-(115,117),PSET
154 LINE (131,117)-(143,117),PSET
155 LINE (148,117)-(159,117),PSET
156 LINE (29,118)-(71,118),PSET
157 LINE (72,118)-(115,118),PSET
158 LINE (131,118)-(143,118),PSET
159 LINE (148,118)-(159,118),PSET
160 LINE (29,119)-(70,119),PSET
161 LINE (71,119)-(114,119),PSET
162 LINE (131,119)-(143,119),PSET
163 LINE (148,119)-(159,119),PSET
164 LINE (30,120)-(69,120),PSET
165 LINE (70,120)-(114,120),PSET
166 LINE (131,120)-(143,120),PSET
167 LINE (149,120)-(159,120),PSET
168 LINE (31,121)-(67,121),PSET
169 LINE (70,121)-(114,121),PSET
170 LINE (131,121)-(143,121),PSET
171 LINE (148,121)-(159,121),PSET
172 LINE (32,122)-(34,122),PSET
173 LINE (35,122)-(66,122),PSET
174 LINE (69,122)-(113,122),PSET
175 LINE (131,122)-(143,122),PSET
176 LINE (149,122)-(159,122),PSET
177 LINE (35,123)-(65,123),PSET
178 LINE (69,123)-(113,123),PSET
179 LINE (131,123)-(143,123),PSET
180 LINE (149,123)-(159,123),PSET
181 LINE (34,124)-(64,124),PSET
182 LINE (68,124)-(113,124),PSET
183 LINE (131,124)-(143,124),PSET
184 LINE (149,124)-(159,124),PSET
185 LINE (35,125)-(63,125),PSET
186 LINE (67,125)-(112,125),PSET
187 LINE (131,125)-(142,125),PSET
188 LINE (149,125)-(159,125),PSET
189 LINE (41,126)-(50,126),PSET
190 LINE (51,126)-(55,126),PSET
191 LINE (57,126)-(59,126),PSET
192 LINE (66,126)-(112,126),PSET
193 LINE (131,126)-(143,126),PSET
194 LINE (149,126)-(159,126),PSET
195 LINE (43,127)-(46,127),PSET
196 LINE (65,127)-(112,127),PSET
197 LINE (130,127)-(142,127),PSET
198 LINE (149,127)-(159,127),PSET
199 LINE (64,128)-(111,128),PSET
200 LINE (131,128)-(142,128),PSET
201 LINE (149,128)-(159,128),PSET
202 LINE (63,129)-(111,129),PSET
203 LINE (130,129)-(142,129),PSET
204 LINE (149,129)-(159,129),PSET
205 LINE (62,130)-(89,130),PSET
206 LINE (90,130)-(110,130),PSET
207 LINE (131,130)-(142,130),PSET
208 LINE (149,130)-(159,130),PSET
209 LINE (62,131)-(87,131),PSET
210 LINE (89,131)-(110,131),PSET
211 LINE (130,131)-(142,131),PSET
212 LINE (149,131)-(160,131),PSET
213 LINE (62,132)-(85,132),PSET
214 LINE (89,132)-(109,132),PSET
215 LINE (130,132)-(142,132),PSET
216 LINE (149,132)-(160,132),PSET
217 LINE (62,133)-(83,133),PSET
218 LINE (89,133)-(108,133),PSET
219 LINE (130,133)-(142,133),PSET
220 LINE (150,133)-(160,133),PSET
221 LINE (62,134)-(81,134),PSET
222 LINE (89,134)-(107,134),PSET
223 LINE (130,134)-(142,134),PSET
224 LINE (149,134)-(160,134),PSET
225 LINE (164,134)-(172,134),PSET
226 LINE (62,135)-(79,135),PSET
227 LINE (88,135)-(107,135),PSET
228 LINE (130,135)-(142,135),PSET
229 LINE (150,135)-(174,135),PSET
230 LINE (62,136)-(78,136),PSET
231 LINE (87,136)-(106,136),PSET
232 LINE (130,136)-(142,136),PSET
233 LINE (150,136)-(175,136),PSET
234 LINE (62,137)-(77,137),PSET
235 LINE (87,137)-(105,137),PSET
236 LINE (130,137)-(142,137),PSET
237 LINE (151,137)-(177,137),PSET
238 LINE (62,138)-(75,138),PSET
239 LINE (85,138)-(103,138),PSET
240 LINE (131,138)-(143,138),PSET
241 LINE (149,138)-(179,138),PSET
242 LINE (62,139)-(75,139),PSET
243 LINE (85,139)-(102,139),PSET
244 LINE (132,139)-(144,139),PSET
245 LINE (147,139)-(181,139),PSET
246 LINE (61,140)-(74,140),PSET
247 LINE (84,140)-(101,140),PSET
248 LINE (132,140)-(144,140),PSET
249 LINE (145,140)-(182,140),PSET
250 LINE (62,141)-(74,141),PSET
251 LINE (84,141)-(99,141),PSET
252 LINE (133,141)-(184,141),PSET
253 LINE (61,142)-(73,142),PSET
254 LINE (85,142)-(98,142),PSET
255 LINE (134,142)-(186,142),PSET
256 LINE (61,143)-(73,143),PSET
257 LINE (85,143)-(97,143),PSET
258 LINE (133,143)-(188,143),PSET
259 LINE (61,144)-(73,144),PSET
260 LINE (85,144)-(96,144),PSET
261 LINE (129,144)-(190,144),PSET
262 LINE (61,145)-(73,145),PSET
263 LINE (86,145)-(96,145),PSET
264 LINE (126,145)-(192,145),PSET
265 LINE (61,146)-(72,146),PSET
266 LINE (86,146)-(96,146),PSET
267 LINE (122,146)-(194,146),PSET
268 LINE (60,147)-(72,147),PSET
269 LINE (86,147)-(95,147),PSET
270 LINE (120,147)-(197,147),PSET
271 LINE (60,148)-(72,148),PSET
272 LINE (86,148)-(95,148),PSET
273 LINE (117,148)-(198,148),PSET
274 LINE (60,149)-(72,149),PSET
275 LINE (86,149)-(95,149),PSET
276 LINE (115,149)-(200,149),PSET
277 LINE (60,150)-(71,150),PSET
278 LINE (86,150)-(96,150),PSET
279 LINE (114,150)-(201,150),PSET
280 LINE (59,151)-(71,151),PSET
281 LINE (86,151)-(96,151),PSET
282 LINE (112,151)-(202,151),PSET
283 LINE (59,152)-(70,152),PSET
284 LINE (86,152)-(96,152),PSET
285 LINE (103,152)-(203,152),PSET
286 LINE (58,153)-(70,153),PSET
287 LINE (86,153)-(96,153),PSET
288 LINE (97,153)-(204,153),PSET
289 LINE (58,154)-(69,154),PSET
290 LINE (86,154)-(205,154),PSET
291 LINE (57,155)-(69,155),PSET
292 LINE (86,155)-(206,155),PSET
293 LINE (57,156)-(68,156),PSET
294 LINE (86,156)-(207,156),PSET
295 LINE (56,157)-(68,157),PSET
296 LINE (86,157)-(208,157),PSET
297 LINE (55,158)-(67,158),PSET
298 LINE (84,158)-(208,158),PSET
299 LINE (54,159)-(67,159),PSET
300 LINE (80,159)-(209,159),PSET
301 LINE (55,160)-(66,160),PSET
302 LINE (76,160)-(210,160),PSET
303 LINE (55,161)-(66,161),PSET
304 LINE (73,161)-(210,161),PSET
305 LINE (55,162)-(66,162),PSET
306 LINE (71,162)-(210,162),PSET
307 LINE (55,163)-(66,163),PSET
308 LINE (67,163)-(211,163),PSET
309 LINE (55,164)-(211,164),PSET
310 LINE (55,165)-(211,165),PSET
311 LINE (53,166)-(211,166),PSET
312 LINE (50,167)-(211,167),PSET
313 LINE (46,168)-(211,168),PSET
314 LINE (43,169)-(211,169),PSET
315 LINE (39,170)-(211,170),PSET
316 LINE (34,171)-(36,171),PSET
317 LINE (37,171)-(211,171),PSET
318 LINE (30,172)-(211,172),PSET
319 LINE (27,173)-(211,173),PSET
320 LINE (22,174)-(24,174),PSET
321 LINE (25,174)-(211,174),PSET
322 LINE (17,175)-(211,175),PSET
323 LINE (13,176)-(211,176),PSET
324 LINE (10,177)-(211,177),PSET
325 LINE (6,178)-(211,178),PSET
326 LINE (4,179)-(211,179),PSET
327 LINE (2,180)-(211,180),PSET
328 LINE (1,181)-(211,181),PSET
329 LINE (0,182)-(211,182),PSET
330 LINE (0,183)-(211,183),PSET
331 LINE (0,184)-(211,184),PSET
332 LINE (0,185)-(211,185),PSET
333 LINE (0,186)-(211,186),PSET
334 LINE (0,187)-(211,187),PSET
335 LINE (0,188)-(211,188),PSET
336 LINE (0,189)-(211,189),PSET
337 LINE (0,190)-(211,190),PSET
20000 IF INKEY$= "" THEN GOTO 20000