[Thomson] Nouveaux livres scannés

Les bouquins, les scans, les pdf ou les liens qui vont bien... ici c'est la bibliothèque.

Modérateurs : Papy.G, fneck, Carl

Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Daniel »

Pour compléter la réponse sur l'OCR, j'ai tenté d'extraire un programme Basic du livre "Jeux d'Action pour MO5". Comme je m'y attendais il n'y a pas de miracle : les 0 et les O sont confondus, de même que les S, les $ et les 5 (et j'en passe). Il faut reprendre les instructions une à une pour les corriger.

Pour une meilleure efficacité il faudrait un programme d'OCR paramétrable, avec la possibilité de définir la police de caractère du texte à analyser. Et encore, dans le cas du O et du 0 la différence est très subtile et difficile à détecter automatiquement.

Voici le premier programme du livre après correction manuelle :

Code : Tout sélectionner

10 REM ********** 
20 REM * SQUASH * 
30 REM ********** 
40 CLEAR ,,2 
50 GOSUB 620 
60 GOTO 180 
70 D=2*((STICK(0)=7)-(STICK(0)=3)) 
80 IF D<>0 THEN D0=D 
90 IF STICK(0)=0 THEN D0=0 
100 RX=RX+D0 
110 RETURN 
120 D$=INKEY$ 
130 D=2*((D$=F1$)-(D$=F2$))
140 IF D<>0 THEN D0=D 
150 IF D$=N$ THEN D0=0 
160 RX=RX+D0 
170 RETURN 
180 LOCATE BX,BY:COLOR 3,2:PRINT N$; 
190 BX=BX+DX:BY=BY+DY 
200 LOCATE BX,BY 
210 PRINT B$; 
220 IF BY=21 AND ABS(BX-RX-3)>1 THEN 320 
230 IF BY=21 THEN S=S+1:BEEP:DY=-DY 
240 IF BY=1 THEN BEEP:DY=-DY 
250 IF BX=2 OR BX=37 THEN BEEP:DX=-DX 
260 ON JS GOSUB 70,120 
270 IF RX<0 THEN RX=0 
280 IF RX>33 THEN RX=33 
290 LOCATE RX,RY 
300 COLOR 0:PRINT R$ 
310 GOTO 180 
320 NB=NB+1 
330 IF NB=11 THEN 440 
340 LOCATE BX,BY 
350 PRINT N$; 
360 FOR I=1 TO 3
370 BEEP 
380 FOR J=1 TO 100 
390 NEXT J 
400 NEXT I 
410 D0=0 
420 GOSUB 900 
430 GOTO 180 
440 LOCATE 13,5 
450 COLOR 0 
460 PRINT "SCORE :";S; 
470 IF S>R1 THEN R1=S 
480 LOCATE 13,10 
490 PRINT "RECORD :";R1; 
500 LOCATE 13,15 
510 PRINT "UNE AUTRE ?"; 
520 NB=0 
530 S=0 
540 D$=INKEY$ 
550 IF D$<>"" THEN 540 
560 D$=INKEY$ 
570 IF D$="" THEN 560 
580 IF D$<>"N" THEN 50 
590 SCREEN 4,6,6 
600 CLS 
610 END 
620 CLS 
630 SCREEN 7,2,4 
640 ATTRB 1,1 
650 DEFINT A-Z 
660 DEFGR$(0)=255,255,255,0,0,0,0,0 
670 DEFGR$(1)=24,126,126,255,255,126,126,24
680 N$=CHR$(32) 
690 LOCATE 1,10,0 
700 PRINT "JOYSTICK (O ou N) ?"; 
710 D$=INKEY$ 
720 IF D$="" THEN 710 
730 IF D$="O" THEN JS=1 ELSE JS=2 
740 CLS 
750 ATTRB 0,0 
760 COLOR 2, 1 
770 FOR BX=1 TO 38 
780 LOCATE BX,0 
790 PRINT N$; 
800 NEXT BX 
810 FOR BY=1 TO 21 
820 LOCATE 1,BY 
830 PRINT N$; 
840 LOCATE 38,BY 
850 PRINT N$; 
860 NEXT BY 
870 R$=N$+N$+GR$(0)+GR$(0)+GR$(0)+N$+N$ 
880 B$=GR$(1) 
890 RX=16 
900 RY=22 
910 BY=21 
920 BX=INT(RND*34)+3 
930 DY=-1 
940 DX=(INT(RND*2)-0.5)*2 
950 F1$=CHR$(8) 
960 F2$=CHR$(9) 
970 RETURN 
Dernière modification par Daniel le 08 sept. 2021 09:53, modifié 1 fois.
Daniel
L'obstacle augmente mon ardeur.
Avatar de l’utilisateur
ZamZam
Messages : 195
Inscription : 09 nov. 2020 16:10
Localisation : TOUL (54200) Meurthe & Moselle

Re: [Thomson] Nouveaux livres scannés

Message par ZamZam »

Salut Daniel,

Utilises-tu l'OCR Tesseract ? Je ne l'ai jamais mis en œuvre techniquement mais j'avais étudié ces possibilités pour reconnaitre une langue particulière.
Il y a des possibilités d'apprentissage de nouvelles polices.

https://pretius.com/how-to-prepare-trai ... cognition/

https://github.com/tesseract-ocr/tesseract
Jean-Luc
Zebulon
Messages : 2788
Inscription : 02 nov. 2020 14:03

Re: [Thomson] Nouveaux livres scannés

Message par Zebulon »

J'ai lu plusieurs fois que les listings dans les livres/revues étaient publiés sur un mode photographie des impressions pour éviter les erreurs de recopies ce qui se tient en effet mais du coup leur lisibilité (même parfois pour un humain) en prend un coup.
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Daniel »

Pour "Squash" j'ai utilisé l'OCR très rudimentaire du site any2djvu. Il a nécessité ensuite de nombreuses corrections manuelles.
Pour les professionnels de la saisie des listings (je pense à Xavier) un OCR comme Tesseract est certainement mieux adapté.
D'autres facteurs entrent en jeu : la qualité des scans, la qualité d'impression du livre, la qualité de l'imprimante ayant produit le listing.

Dans le livre "Jeux d'action pour MO5" la qualité des scans est parfaite (merci boris !), le livre est bien imprimé, l'imprimante est bonne (sauf qu'elle ne barre pas les zéros). C'est pourquoi j'ai tenté l'expérience. Malheureusement l'OCR n'est pas bon. Le premier listing publié ci-dessus avait encore quelques erreurs, je viens de l'éditer.
Daniel
L'obstacle augmente mon ardeur.
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Daniel »

Optique, Thermodynamique, Chimie, Programmes de Physique en Basic MO5 - Sybex, 1985
(Scans de boris)
http://dcmoto.free.fr/documentation/livres.html

optique-thermodynamique-chimie.png
optique-thermodynamique-chimie.png (434.26 Kio) Consulté 3770 fois
Daniel
L'obstacle augmente mon ardeur.
Avatar de l’utilisateur
KailoKyra
Messages : 19
Inscription : 24 févr. 2021 10:41

Re: [Thomson] Nouveaux livres scannés

Message par KailoKyra »

Pour de l'OCR, je ne peux que conseiller celui de ABBYY (logiciel commercial toutefois), c'est ce que j'utilise, il est tres bon, et supporte des pages avec plusieurs langues (Anglais + francais pour ces livres avec plein de listings par exemple).
Tres efficace egalement avec des scripts non latins (japonais / cyrillique ect), et caracteres speciaux (accents...).

Tesseract fonctionne aussi tres bien pour le Francais. Il suffit de lui preciser la langue. C'est ce qui est utilise chez archive.org par exemple (ils utilisaient aussi ABBYY il y a quelques temps)

Bien entendu, les listings ne passent pas tous sans erreur, a cause de la difference de police, parfois particuliere, ou qualite d'impression comme enonce precedemment.
Cadencé a 3.25Mhz
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Daniel »

S'il y a des amateurs ils peuvent tenter l'OCR sur les dizaines de programmes Basic dans les livres scannés par Boris.

Je ne pratique pas ce sport moi-même, car quand je vois les listings je n'ai qu'une envie : tout réécrire. D'abord pour optimiser, ensuite pour améliorer l'interface utilisateur. Les auteurs de ces programmes sont particulièrement mauvais sur ces deux points. Il suffit de lire le listing de "Squash" ou d'essayer d'y jouer au clavier pour s'en convaincre. Utiliser des entiers de préférence à des nombres en virgule flottante, supprimer le beep lors de l'appui sur les flèches, supprimer la répétition automatique, tester les touches sans passer par la routine Basic extrêmement longue, et une quantité d'autres points plus ou moins subtils, pourraient rendre le jeu presque agréable.
Daniel
L'obstacle augmente mon ardeur.
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Daniel »

Programmation en Assembleur MO5 - Sybex, 1984 (Scans de boris)
http://dcmoto.free.fr/documentation/livres.html

programmation-en-assembleur-mo5.png
programmation-en-assembleur-mo5.png (519.61 Kio) Consulté 3709 fois


Programmation en Assembleur TO7 - Sybex, 1984 (Scans de boris)
http://dcmoto.free.fr/documentation/livres.html


programmation-en-assembleur-to7.png
programmation-en-assembleur-to7.png (498.68 Kio) Consulté 3709 fois
Daniel
L'obstacle augmente mon ardeur.
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Daniel »

Changement de Programme - Minipuce, 1984 (Scans de boris)
http://dcmoto.free.fr/documentation/livres.html

changement-de-programme.png
changement-de-programme.png (597.92 Kio) Consulté 3687 fois


Gestion de Fichiers TO7/MO5 - Sybex, 1984 (Scans de boris)
http://dcmoto.free.fr/documentation/livres.html

gestion-de-fichiers.png
gestion-de-fichiers.png (454.91 Kio) Consulté 3687 fois
Daniel
L'obstacle augmente mon ardeur.
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Daniel »

Jeux en Basic sur TO7 - Sybex, 1984 (Scans de boris)
http://dcmoto.free.fr/documentation/livres.html

jeux-en-basic-sur-to7.png
jeux-en-basic-sur-to7.png (727.86 Kio) Consulté 3643 fois


MO5, votre Micro-Ordinateur - Nathan, 1984 (Scans de boris)
http://dcmoto.free.fr/documentation/livres.html

mo5-votre-micro-ordinateur.png
mo5-votre-micro-ordinateur.png (464.22 Kio) Consulté 3643 fois
Daniel
L'obstacle augmente mon ardeur.
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Daniel »

Jeux sur TO7 et MO5 - Sybex, 1985 (Scans de boris)
http://dcmoto.free.fr/documentation/livres.html

jeux-sur-to7-mo5.png
jeux-sur-to7-mo5.png (499.66 Kio) Consulté 3567 fois

Remarque : tous les programmes de ce livre ont été saisis et fonctionnent :
http://dcmoto.free.fr/programmes/jeux-s ... index.html

31.png
31.png (4.43 Kio) Consulté 3567 fois
Daniel
L'obstacle augmente mon ardeur.
Markerror
Messages : 2121
Inscription : 31 oct. 2011 19:21
Localisation : Orléans
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Markerror »

C'est quand même impressionnant le nombre de livres sortis sur les Thomson. Bon, je sais que le plan "Informatique pour Tous" a aidé à diffuser des titres qui n'auraient probablement pas existé sans (genre le bouquin sur les exervices de physique), mais quand même :-).

Bravo pour les scans et leur mise à disposition.
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Nouveaux livres scannés

Message par Daniel »

Jeux sur TO7 - Edimicro, 1983 (Scans de boris)
http://dcmoto.free.fr/documentation/livres.html

jeux-sur-to7.png
jeux-sur-to7.png (561.04 Kio) Consulté 3486 fois
Daniel
L'obstacle augmente mon ardeur.
Memphis
Messages : 536
Inscription : 25 janv. 2015 18:16
Localisation : Pont à Mousson (54)

Re: [Thomson] Nouveaux livres scannés

Message par Memphis »

:lol: C'est très rapide. Le scanner est un modèle industriel à haut débit.
Jérôme
CMO5
Messages : 39
Inscription : 25 janv. 2021 09:20

Re: [Thomson] Nouveaux livres scannés

Message par CMO5 »

Merci beaucoup pour tous ces livres scannés !
C'est une doc vraiment riche pour s'y remettre.
Répondre