Convertisseur image en BASIC...

Cette catégorie traite de développements récents pour nos vieilles machines, applications, jeux ou démos... Amis programmeurs, c'est ici que vous pourrez enfin devenir célèbres!

Modérateurs : Papy.G, fneck, Carl

Avatar de l’utilisateur
Falkor
Messages : 1701
Inscription : 28 juin 2010 12:09
Localisation : Cluny, Saône et Loire

Convertisseur image en BASIC...

Message par Falkor »

Bonjour à tous,

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
Je suis obligé de mettre une pause en fin de programme sinon le système quitte le mode graphique immédiatement pour revenir au basic !
Pièces jointes
Vue du soft... Bon aucun paramètre modifiable pour le moment.
Vue du soft... Bon aucun paramètre modifiable pour le moment.
vb.jpg (77.97 Kio) Consulté 5008 fois
vue du code sur l'émulateur
vue du code sur l'émulateur
emu.jpg (31.48 Kio) Consulté 5008 fois
...et exécution sur le dragon !
...et exécution sur le dragon !
DSC_2566-1.jpg (18.48 Kio) Consulté 5008 fois
Xavier

Re: Convertisseur image en BASIC...

Message par Xavier »

Salut,
Pas mal !
Je voulais faire la même chose pour CPC, car les images bitmap prennent pas mal de place pour les jeux d'aventure.
Avec Transylvania, j'ai déjà converti le code ASM pour le décodage des données...
http://forum.system-cfg.com/viewtopic.p ... 535#p95535
Projet toujours en attente d'inspiration...
Un gros problème de mémoire en fait!
__sam__
Messages : 7923
Inscription : 18 sept. 2010 12:08
Localisation : Brest et parfois les Flandres

Re: Convertisseur image en BASIC...

Message par __sam__ »

Si le basic supporte la notion de DATA (tous les basics issus de chez microsoft le font), tu peux gagner pas mal de place en remplaçant toutes les instructions LINE par une boucle qui lit (READ) les coordonnées depuis la partie DATA et fait les LINEs qui vont bien

Code : Tout sélectionner

10 READ X1,X2,Y
20 if Y=-1 THEN GOTO 50 
30 LINE (X1,Y)-(X2,Y), PSET
40 GOTO 10
50 REM SUITE: BOUCLAGE pour ne pas revenir au basic
60 GOTO 60
1000 DATA 172,175,0,172,176,1
1010 DATA 171,178,2,...
...
2000 DATA 0,0,-1
A partir de là on peut même travailler en mode "delta", c'est à dire ne mettre dans les data que la différence entre les X/Y juste avant. Cela fait des nombres plus petit, et donc un programme basic plus court.
Samuel.
A500 Vampire V2+ ^8^, A1200 (030@50mhz/fpu/64mb/cf 8go),
A500 GVP530(MMU/FPU) h.s., R-Pi, TO9, TO8D, TO8.Démos
Xavier

Re: Convertisseur image en BASIC...

Message par Xavier »

Salut,
Même méthode de tracé linéaire avec incrémentations en Y, donc line par ligne:
Image
JO ~Hyper Sport~ Hebdo73 pour Spectrum.

Code : Tout sélectionner

204 RESTORE 9005
205 PAPER 5:BORDER 0 :CLS
206 INK 0
207 FOR I=1 TO 222:READ A,B,C:PLOT B,A: DRAW C,0:NEXT I
210 FOR I=1 TO 22:READ A,B,C,D:PLOT B,A: DRAW D,C:NEXT I
213 PLOT 165,73: DRAW 13,-12,-PI/3
9000 REM =====================
9001 REM ====== DATAS ========
9002 REM =====================
9003:
9005 DATA 100,141,2,99,137,3,98,112,3
9006 DATA 98,136,5,98,144,2,97,108,8
9007 DATA 97,136,10,96,107,12,96,135,12,95,106,2
9008 DATA 95,110,9,95,135,14,94,105,1
9009 DATA 94,111,9,94,134,15,93,110,11
9010 DATA 93,133,17,92,110,11,92,133,18
9011 DATA 91,109,12,91,131,9,91,144,8
9012 DATA 90,109,13,90,125,16,90,145,8
9013 DATA 89,106,1,89,109,4,89,115,7
Ce code est perfectible, car la ligne Y y est redondante et que seule le nombre de pixels en x est nécessaire.
exemple: décalage nouvelle ligne+2 points noirs+5 points blanc +2 points noirs+ changement de ligne en Y... Y=Y+1.
56blanc+2noirs+5blancs+2noirs+ nouvelle ligne >>> 56,2,5,2,-1... au lien de X,Y, taille ligne noire, X,Y, taille ligne noire...
Avatar de l’utilisateur
Falkor
Messages : 1701
Inscription : 28 juin 2010 12:09
Localisation : Cluny, Saône et Loire

Re: Convertisseur image en BASIC...

Message par Falkor »

Une autre méthode que j'avais utilisée pour "comprimer" des images consistait bêtement à compter sur un balayage horizontal le nombre de pixels contigus ayant la même couleur. A la lecture, j'incrémente ma position X avec toutes ces valeurs, et si ma valeur X est égale à la largeur de la ligne, X est remis à 0 et Y est incrémenté de 1.

Pour une image noir et blanc c'est encore plus simple, il n'y a même pas à donner le numéro de couleur... Juste 3 pixels blanc, 5 noirs, etc...

Ça ressemble beaucoup à ce que tu expliques, Xavier ! (Après je ne connais pas la syntaxe du DRAW du Spectrum...)
Xavier

Re: Convertisseur image en BASIC...

Message par Xavier »

Salut,
Le vectoriel est idéal, mais utilisable pour des figures non remplies!
A partir, du moment où l'on commence à faire des remplissages, on se retrouve avec un temps d'attente trop grand.
Il faut donc, soit utiliser la technique du changement d'échelle sur un axe de fuite, soit appliquer un masquage en caractères redéfini.
Je préfère donc le semi-bitmap, qui consiste à tracer des lignes en mode scan-line.
Par exemple:
Sur un octet, le bit 7 haut implique un redondance, et les autres la taille du trait en X.
hFF donne une ligne blanche/noire (obtenue par commutation en l'absence du bit7) de 127 points+les points suivants...
Ce système prend plus de place que le vectoriel pure, mais est plus rapide à l'affichage, car sans remplissage.
Pour le passage à la ligne 00 ou 128/h80 où 0 commute la couleur et remet X à zéro, puis incrémente Y. (le bit7 commute ou pas le latch/flag du pen).
Pour la couleur (plus de 2), il est toujours possible de faire plusieurs passages...ou bien utiliser un nombre négatif pour la couleur!
Dernière modification par Xavier le 19 nov. 2016 19:40, modifié 1 fois.
Avatar de l’utilisateur
Falkor
Messages : 1701
Inscription : 28 juin 2010 12:09
Localisation : Cluny, Saône et Loire

Re: Convertisseur image en BASIC...

Message par Falkor »

Mes différents essais sur machine et émulateur m'ont vraiment permis de mettre en évidence des différences de modes graphiques et de résolutions entre ce que donne le manuel / l'émulateur / la machine réelle. Ces différences sont peut-être dues au circuit graphique non standard qui équipe mon dragon.

Pour en savoir plus, je vais tenter de faire un dump de l'eprom contenant le basic et passer ça sur émulateur. Je ne suis pas équipé pour cela, mais il est possible de faire un dump sur cassette :

http://archive.worldofdragon.org/index. ... mping_ROMS

Je vais tenter ça. À suivre..
Avatar de l’utilisateur
6502man
Messages : 12286
Inscription : 12 avr. 2007 22:46
Localisation : VAR
Contact :

Re: Convertisseur image en BASIC...

Message par 6502man »

Falkor a écrit :... Ces différences sont peut-être dues au circuit graphique non standard qui équipe mon dragon. ....
Tu veux dires que ton Dragon 32 n'a pas le même composant que les autres Dragon 32 ???
Phil.

www.6502man.com

To bit or not to bit.
1 or 0.
Avatar de l’utilisateur
Falkor
Messages : 1701
Inscription : 28 juin 2010 12:09
Localisation : Cluny, Saône et Loire

Re: Convertisseur image en BASIC...

Message par Falkor »

6502man a écrit :Tu veux dires que ton Dragon 32 n'a pas le même composant que les autres Dragon 32 ???
Non ! Regarde une CM de dragon "normal"

http://archive.worldofdragon.org/index. ... on32-2.jpg

Le chip graphique est le composant vertical au dessus de la nappe clavier à gauche.

Le mien possède une carte qui vient s'enficher à la place de ce circuit (et cette carte possède elle aussi un chip). Je n'ai pas encore poussé les recherches sur les références de ces circuits. :oops:

Et mon dragon n'était pas équipé du modulateur HF initialement présent sur la carte d'alimentation !

Et je ne parle même pas des fils repiqués à droite à gauche un peu partout...?
Pièces jointes
La fameuse carte en plus, à droite
La fameuse carte en plus, à droite
DSC_2491.jpg (158.21 Kio) Consulté 4814 fois
Carte mère avec carte en plus
Carte mère avec carte en plus
DSC_2478.jpg (184.46 Kio) Consulté 4814 fois
Avatar de l’utilisateur
fneck
Site Admin
Messages : 17423
Inscription : 01 avr. 2007 12:03
Localisation : Drôme Provençale (26)
Contact :

Re: Convertisseur image en BASIC...

Message par fneck »

Falkor a écrit :Le mien possède une carte qui vient s'enficher à la place de ce circuit (et cette carte possède elle aussi un chip).
(...) Et je ne parle même pas des fils repiqués à droite à gauche un peu partout...?
Probablement l'adaptation SECAM pour la France, non ?
Fabien https://www.system-cfg.com
Les bonnes pratiques de l'utilisateur du forum viewtopic.php?f=14&t=3
Avatar de l’utilisateur
Papy.G
Modérateur
Messages : 3047
Inscription : 10 juin 2014 13:40
Localisation : Haute-Garonne/Gers

Re: Convertisseur image en BASIC...

Message par Papy.G »

Peut-être même que le chip est juste le même avec des tempos pour retarder à chaque blanking, ça s'est déjà vu, je ne sais plus dans quelle machines, si ce n'est pas déjà dans des TRS? :?:
Soyez exigeants, ne vous contentez pas de ce que l'on vous vend.
Demandez-en plus, ou faites-le vous-même.
Avatar de l’utilisateur
Falkor
Messages : 1701
Inscription : 28 juin 2010 12:09
Localisation : Cluny, Saône et Loire

Re: Convertisseur image en BASIC...

Message par Falkor »

fneck a écrit :Probablement l'adaptation SECAM pour la France, non ?
C'est ce que je pense, je serai fixé quand j'aurais comparé les références des circuits. :)
Avatar de l’utilisateur
6502man
Messages : 12286
Inscription : 12 avr. 2007 22:46
Localisation : VAR
Contact :

Re: Convertisseur image en BASIC...

Message par 6502man »

Ah oui effectivement ca à tout l'air d'une modification SECAM :wink:

Sur ta photo j'arrive pas à lire les référence des composants !!!
Phil.

www.6502man.com

To bit or not to bit.
1 or 0.
Avatar de l’utilisateur
Falkor
Messages : 1701
Inscription : 28 juin 2010 12:09
Localisation : Cluny, Saône et Loire

Re: Convertisseur image en BASIC...

Message par Falkor »

Il faut que je rejoue du tournevis pour récupérer la référence du chip ! Je fais ça ce weekend.
Avatar de l’utilisateur
Falkor
Messages : 1701
Inscription : 28 juin 2010 12:09
Localisation : Cluny, Saône et Loire

Re: Convertisseur image en BASIC...

Message par Falkor »

J'ai ajouté à mon programme initial l'exportation en basic compatible amstrad pour mon 6128.

Pas de difficultés, si ce n'est que la fonction "line" ne semble pas exister en direct. Je dois positionner le curseur graphique avec l'instruction PLOT et tirer la ligne avec la fonction DRAW.

J'ai ajouté à l'image des étoiles placées aléatoirement et une lune obtenue avec une boucle for et des sinus-cosinus. Il ne semble pas exister encore une fois de fonction circle ? :?: (Bon je suis peut-être juste tombé sur la mauvaise page web...). Je vais voir pour ajouter des couleurs et augmenter un peu la résolution...

Le programme a été testé sur l'émulateur WinAPE en attendant de passer sur le vrai CPC...! :)
Pièces jointes
cpc2.png
cpc2.png (43.62 Kio) Consulté 4647 fois
Répondre