rapporteur

[kernadec]

Bonjour
mise à jours du 25 avril 2022 pour PB 5.73 LTS 64bits
petit exemple de texte circulaire gradué avec choix d' impression avec ou sans
dessin de papier millimétré

les curseurs de réglages sont prévus pour adapter la sortie papier ou calque à la bonne dimmension
car les imprimantes ont des resolutions de sortie avec des différences suivant les marques modeles etc...

J' utilise ce programme pour étudié les dessins mystiques et tableaux de maitres
avec une impression sur calques afin de le superposer celui-ci sur les reproductions
avec un cercle gradué de 20cm de diamètre R=10cm pour obtenir des calculs trigonométriques
en lien avec le mode degrès de ma calculette ce qui donnera une lecture directe en R10 , exemple
la corde d'un coté de l'èquilatéral inscrit qui est égale à la racine de 3 avec R10 = (17.32 cm)
la corde du carré inscrit qui seras egal la racine racine de 2 avec R10 = (14.14 cm)
toutes mesures trigonometriques en degrès : corde, sinus, cosinus, tangente, flèche, etc.
seront lisible sur la calculette et sur le double decimètre avec un Rayon 10 cm.

Cordialement

Code : Tout sélectionner

;#######################################################################################
;###     Rapporteur  par kernadec  pb4 OS windows  01/07/2008 mis à jour en 2022/05 ####           
;###     pour les amateurs de tracer précis avec le compas sur papier ou calques    #### 
;#######################################################################################
Global cw.l,ch.l,rayon.l,rayonpixel.d,tfont.l,curseur.l,curseur1.l,x.d,y.d,x1.d,y1.d
Global wlargeur.l, whauteur.l,ImageNr,hdc,DC,r.RECT,rc,grille.d,grillepixel.d,u.d
Global Width.l,Color.l,wr.l,wb.l,cldm.l,clcm.l,clmm.l,wr,wb,wn,DepartNumTx

Declare init()
Declare ypage(x.f)
Declare xpage(x.f)
Declare papier(wr,wb,wn)
Declare dessin()
Declare fenetredessin()
Declare impression()
Declare MakeWinScreenshot(ImageNr,hwnd,Width,Height)
wlargeur=600
whauteur=600
rayonpixel=100 ;rayon du cercle en pixel 300 = rayon de 21cm /2 environ 
grillepixel=270
DepartNumTx = 0

Procedure Ligne(x,y,x1,y1,Width,Color) 
  GetWindowRect_(WindowID(0),r.RECT)
  pen=CreatePen_(#PS_SOLID,Width,Color)  ; style : #Ps_dash, #Ps_dot,etc
  penOld=SelectObject_(DC,pen) 
  MoveToEx_(DC,x,y,0):LineTo_(DC,x1,y1) 
  DeleteObject_(pen) 
  DeleteObject_(penOld) 
EndProcedure  

Procedure Cercle(x,y,x1,y1,Width,Color) 
  GetWindowRect_(WindowID(0),r.RECT)
  pen=CreatePen_(#PS_DASH,Width,Color)    ;style : #Ps_dash, #Ps_dot, etc
  penOld=SelectObject_(DC,pen) 
  Ellipse_(DC,x,y,x1,y1)
  DeleteObject_(pen) 
  DeleteObject_(penOld) 
EndProcedure 

Procedure DrawRText(DC.l,x,y,Text.s,fFont.s,fangle.l,fHeight) 
  ;#####################################################################
  ; Procedure DrawRText  Author: Andreas
  ; Date: 14. June 2003
  ;#####################################################################
  Font = CreateFont_(fHeight,0,fangle*10,0,0,0,0,0,0,0,0,0,0,fFont) 
  GetWindowRect_(WindowID(0),r.RECT) 
  OldFont = SelectObject_(DC,Font) 
  SetTextAlign_(DC,#TA_BASELINE) 
  SetBkMode_(DC,#TRANSPARENT) 
  SetTextColor_(DC,RGB(0,0,255))
  ExtTextOut_(DC, x,y,0 ,r,Text,Len(Text),0 ) 
  SelectObject_(DC,OldFont) 
  DeleteObject_(Font) 
EndProcedure

init()   ; depart et boucle recursive
End

Procedure init()
  If OpenWindow(1, 710, 50, 260,180, "Utiliser les Flèches pour Règler la Taille du Tracer",#PB_2DDrawing_Default)
    cw=300
    ch=300  
    grille=grillepixel
    rayon=rayonpixel 
    tfont=rayonpixel/35
    
    CreateImage(10, 78, 23)
    StartDrawing(ImageOutput(10))
    Box(0, 0, 80, 25 ,RGB(0,255,0))
    DrawText(10, 3, "Imprimer" ,RGB(100,100,100),RGB(0,255,0))
    StopDrawing() 
    
    CreateImage(11, 78, 23)
    StartDrawing(ImageOutput(11))
    Box(0, 0, 80, 25 ,RGB(255,0,0))
    DrawText(17, 3, "Quitter" ,RGB(255,255,255),RGB(255,0,0))
    StopDrawing() 
    
    StartDrawing(WindowOutput(1))
    ButtonImageGadget(0,35, 140, 80, 25,ImageID(10))
    ButtonImageGadget(3,150, 140, 80, 25,ImageID(11))
    TrackBarGadget(1, 10, 25, 240, 20, 0,300, #PB_TrackBar_Ticks)
    SetGadgetState(1, 286)
    SetActiveGadget(1)
    GadgetToolTip(1, "->Flèche<--Résolution d'Impression")
    TrackBarGadget(6, 10, 80, 240, 20, 0,300, #PB_TrackBar_Ticks)
    SetGadgetState(6, 286)
    GadgetToolTip(6, "->Flèche<--Résolution d'Impression")
    CheckBoxGadget(8, 50, 110, 80, 20, "Rapporteur")
    SetGadgetState(8, 1)
    GadgetToolTip(8, "Affiche Cercle Gradué")
    CheckBoxGadget(9, 140, 110, 80, 20, "Quadrillage")
    SetGadgetState(9, 0)
    GadgetToolTip(9, "Affiche Papier millimétré")
    curseur=GetGadgetState(1)
    rayonpixel=curseur
    rayon=rayonpixel 
    DrawText(15, 5,"Diamètre  du  Rapporteur : "+StrD((rayonpixel*0.035)*2,2)+"cm",RGB(0,0,0),RGB(224,223,227))
    curseur1=GetGadgetState(6)
    grillepixel=curseur1:
    grille=grillepixel
    DrawText(16, 60,"Dimension du Cadrillage : "+StrD((grillepixel*0.035001)*2,2)+"cm",RGB(0,0,0),RGB(224,223,227))
    StopDrawing() 
    
    OpenWindow(0, 100, 50, wlargeur,whauteur, "Rapporteur    -    Kernadec 7/2008", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget) 
    DC=StartDrawing(WindowOutput(0))
    If DC
      DrawingMode(1)
      If GetGadgetState(8)=1
        dessin()               
      EndIf
      If GetGadgetState(9)=1
        papier(2,2,1)               
      EndIf
      StopDrawing() 
      hShotWindow = FindWindow_(0,"Rapporteur    -    Kernadec 7/2008")   
      If hShotWindow 
        hWinBmp  = MakeWinScreenshot(0,hShotWindow, wlargeur, whauteur) 
        ImageGadget(20,0,0, wlargeur, whauteur, hWinBmp) 
      EndIf 
    EndIf 
    StickyWindow(0, 1) 
    SetActiveWindow(1)
    
    Repeat
      EventID = WaitWindowEvent() 
      Select EventID 
        Case #PB_Event_Gadget 
          Select EventGadget() 
            Case 0  
              impression()
              init()
            Case 1
              StartDrawing(WindowOutput(1)) 
              curseur=GetGadgetState(1)
              rayonpixel=curseur
              rayon=rayonpixel 
              DrawText(15, 5,"Diamètre  du  Rapporteur :"+StrD((rayonpixel*0.035)*2,2)+"cm",RGB(0,0,0),RGB(224,223,227))
              StopDrawing()
            Case 3  
              CloseWindow(0)
              CloseWindow(1)
              End
            Case 6
              StartDrawing(WindowOutput(1))
              curseur1=GetGadgetState(6)
              grillepixel=curseur1:
              grille=grillepixel
              DrawText(15, 60,"Dimension du Cadrillage :"+StrD((grillepixel*0.035)*2,2)+"cm",RGB(0,0,0),RGB(224,223,227))
              StopDrawing()    
            Case #PB_Event_CloseWindow
              CloseWindow(0)
              CloseWindow(1)
              End
          EndSelect 
          
          tfont=rayonpixel/35
          DC=StartDrawing(WindowOutput(0))
          If DC
            Box(0,0,600,600,RGB(255,255,255))
            If GetGadgetState(8)=1
              dessin()               
            EndIf
            If GetGadgetState(9)=1
              papier(2,2,1)
            EndIf
            StopDrawing()
            hShotWindow = FindWindow_(0,"Rapporteur    -    Kernadec 7/2008")   
            If hShotWindow 
              hWinBmp  = MakeWinScreenshot(0,hShotWindow, wlargeur, whauteur) 
              ImageGadget(20,0,0, wlargeur, whauteur, hWinBmp) 
            EndIf
          EndIf            
      EndSelect  
    Until EventID = #PB_Event_CloseWindow
  EndIf
  
EndProcedure

Procedure impression()
  If PrintRequester()
    If StartPrinting("Rapporteur")
      hDCl = StartDrawing(PrinterOutput()) 
      w = GetDeviceCaps_ (hDCl, #HORZRES ) 
      h = GetDeviceCaps_ (hDCl, #VERTRES ) 
      If w/h > h/w                    ;definir otientation
        rc=2                          ;rapport page avec la racine de 2 
      Else 
        rc=1
      EndIf 
      StopDrawing()
      cw=xpage(300*0.035)                ; =21cm /2 
      ch=ypage(425*0.035)                ; =29.7cm /2 
      rayon=xpage((rayonpixel*0.035)/Sqr(rc))      ;rayon en cm
      grille=xpage((grillepixel*0.035)/Sqr(rc))
      tfont=rayon/37  ;taille police proportionelle a l'echelle de la page a imprimer
      DC = StartDrawing(PrinterOutput()) 
      If DC   
        DrawingMode(#PB_2DDrawing_Outlined | #PB_2DDrawing_XOr)
        DrawingMode(4|1)
        If GetGadgetState(8)=1
          dessin()               
        EndIf
        If GetGadgetState(9)=1
          papier(4,3,2)              
        EndIf
        StopDrawing()
      EndIf
    EndIf
    StopPrinting()
  EndIf
EndProcedure
Procedure papier(wr,wb,wn)
  x=cw:y=ch
  x1=cw*2:y1=ch*2
  u=0
  cldm=RGB(175,125,5)  ;  RGB(255,0,0)
  clcm=RGB(175,125,5)  ;  RGB(0,0,255)
  clmm=RGB(175,125,5)  ;  jaune  
  Ligne(x,y1, x,0-y1,wr,cldm)     ;axe v
  Ligne(x1,y, 0-x1,y,wr,cldm)     ;axe h
  For i=1 To cw 
    u=u+(grille/100)
    If i=0 Or i-Int(i/50)*50=0 Or i-Int(i/100)*100=0 Or i-Int(i/150)*150=0 Or i-Int(i/200)*200=0
      Ligne(x+u,y, x+u,y1,wr,cldm)     
      Ligne(x,y+u, x1,y+u,wr,cldm)     
      Ligne(x-u,y, x-u,y1,wr,cldm)     
      Ligne(x,y+u, 0-x1,y+u,wr,cldm)   
      Ligne(x+u,y, x+u,0-y1,wr,cldm)   
      Ligne(x,y-u, x1,y-u,wr,cldm)     
      Ligne(x-u,y, x-u,0-y1,wr,cldm)   
      Ligne(x,y-u, 0-x1,y-u,wr,cldm)   
    ElseIf i-Int(i/10)*10=0 
      Ligne(x+u,y, x+u,y1,wb,clcm)    
      Ligne(x,y+u, x1,y+u,wb,clcm)    
      Ligne(x-u,y, x-u,y1,wb,clcm)    
      Ligne(x,y+u, 0-x1,y+u,wb,clcm)  
      Ligne(x+u,y, x+u,0-y1,wb,clcm)  
      Ligne(x,y-u, x1,y-u,wb,clcm)    
      Ligne(x-u,y, x-u,0-y1,wb,clcm)  
      Ligne(x,y-u, 0-x1,y-u,wb,clcm)  
    ElseIf i-Int(i/5)*5=0 
      Ligne(x+u,y, x+u,y1,wn,clcm)    
      Ligne(x,y+u, x1,y+u,wn,clcm)    
      Ligne(x-u,y, x-u,y1,wn,clcm)    
      Ligne(x,y+u, 0-x1,y+u,wn,clcm)  
      Ligne(x+u,y, x+u,0-y1,wn,clcm)  
      Ligne(x,y-u, x1,y-u,wn,clcm)    
      Ligne(x-u,y, x-u,0-y1,wn,clcm)  
      Ligne(x,y-u, 0-x1,y-u,wn,clcm) 
    Else
      Ligne(x+u,y, x+u,y1,0,clmm)    
      Ligne(x,y+u, x1,y+u,0,clmm)    
      Ligne(x-u,y, x-u,y1,0,clmm)    
      Ligne(x,y+u, 0-x1,y+u,0,clmm)  
      Ligne(x+u,y, x+u,0-y1,0,clmm)  
      Ligne(x,y-u, x1,y-u,0,clmm)    
      Ligne(x-u,y, x-u,0-y1,0,clmm)  
      Ligne(x,y-u, 0-x1,y-u,0,clmm)  
    EndIf
  Next
EndProcedure
Procedure dessin()
  tfont=rayon/37  ;taille police proportionelle a l'echelle de la page a imprimer
  FillArea(0,0,RGB(255,255,255), RGB(255,255,255))
  DrawingMode(1)
  FrontColor(RGB(255, 255, 255))
  For n = 0 To 355 Step 5 
    If n>95  And n<180 ; n+90(Depart du 0) et 1.1 calage graduation avec et les nombres 
      x = cw + (rayon-tfont*3.5) * Sin(((n+DepartNumTx-1.5)+1.1) / 180 * #PI)
      y = ch + (rayon-tfont*3.5) * Cos(((n+DepartNumTx-1.5)+1.1) / 180 * #PI)
      DrawRText(DC,x,y,Str(n),"Arial",n+270,tfont) ;
    ElseIf n<100 
      x = cw + (rayon-tfont*3) * Sin(((n+DepartNumTx-1)+0.55) / 180 * #PI)
      y = ch + (rayon-tfont*3) * Cos(((n+DepartNumTx-1)+0.55) / 180 * #PI)
      DrawRText(DC,x,y,Str(n),"Arial",n+270,tfont) ;
    Else
      x = cw + (rayon-tfont*2) * Sin(((n+DepartNumTx)+0.55) / 180 * #PI)
      y = ch + (rayon-tfont*2) * Cos(((n+DepartNumTx)+0.55) / 180 * #PI)
      DrawRText(DC,x,y,Str(n),"Arial",n+90,tfont) ;
    EndIf
  Next n 
  For o = 0 To 359 Step 30
    x = cw+ rayon * Sin(o / 180 * #PI)
    y = ch+ rayon * Cos(o / 180 * #PI)
    xx = cw+ (rayon-rayon/17) * Sin(o / 180 * #PI)
    yy = ch+ (rayon-rayon/17) * Cos(o / 180 * #PI)
    LineXY(xx, yy , x, y,RGB(0, 0, 0))
    x = cw+ (rayon-rayon/11) * Sin(o / 180 * #PI)
    y = ch+ (rayon-rayon/11) * Cos(o / 180 * #PI)
    xx = cw+ (rayon-rayon/3.414213562) * Sin(o / 180 * #PI)
    yy = ch+ (rayon-rayon/3.414213562) * Cos(o / 180 * #PI)
    LineXY(xx, yy , x, y,RGB(0, 0, 0))
    For i = 1 To 29
      If  i = 5 Or  i = 15 Or i = 25
        x = cw+ rayon * Sin((i + o) / 180 * #PI)
        y =ch+ rayon * Cos((i + o) / 180 * #PI)
        xx = cw + (rayon-rayon/22) * Sin((i + o) / 180 * #PI)
        yy = ch + (rayon-rayon/22) * Cos((i + o) / 180 * #PI)
        LineXY(x, y , xx, yy, RGB(0, 0, 0))
      ElseIf  i = 10 Or i = 20
        x = cw + rayon * Sin((i + o) / 180 * #PI)
        y = ch+ rayon * Cos((i + o) / 180 * #PI)
        xx = cw+ (rayon - rayon/16) * Sin((i + o) / 180 * #PI)
        yy = ch+ (rayon - rayon/16) * Cos((i + o) / 180 * #PI)
        LineXY(xx, yy , x, y,RGB(0, 0, 0))
      Else
        x = cw+rayon * Sin((i + o) / 180 * #PI)
        y = ch+rayon * Cos((i + o) / 180 * #PI)
        xx = cw+(rayon - rayon/33) * Sin((i + o) / 180 * #PI)
        yy = ch+(rayon - rayon/33) * Cos((i + o) / 180 * #PI)
        LineXY(xx, yy , x, y,RGB(0, 0, 0))
      EndIf
    Next i
  Next o
  LineXY(cw-rayon/20, ch , cw+rayon/20, ch,RGB(0, 0, 0))
  LineXY(cw, ch-rayon/20 , cw, ch+rayon/20,RGB(0, 0, 0))
  DrawingMode(4)
  Ellipse(cw,ch, rayon, rayon, RGB(0,0,0))
  Ellipse(cw,ch, rayon/Sqr(2), rayon/Sqr(2), RGB(0,0,0))
  
EndProcedure

Procedure MakeWinScreenshot(ImageNr,hwnd,Width,Height) 
  ;######  appel place  en amont pour l' utilisation de       ######################
  ;######  la routine de sauvegarde du contenu de la fenetre  ######################
  ; hShotWindow = FindWindow_(0,"Rapporteur")   ; enter the right name here!
  ; If hShotWindow 
  ; hWinBmp  = MakeWinScreenshot(0,hShotWindow, wlargeur, whauteur) 
  ; ImageGadget(2,0,0, wlargeur, whauteur, hWinBmp) 
  ; EndIf 
  ;#####realisee par l'auteur cd dessous a qui j'adresse aussi mes remerciements ###
  ; Auteur: Danilo (updated for PB 4.00 by Andre)
  ; Date: 22. April 2003
  hImage = CreateImage(ImageNr,Width,Height) 
  hdc = StartDrawing(ImageOutput(ImageNr)) 
  BitBlt_(hdc,0,0,Width,Height,GetDC_(hwnd),0,0,#SRCCOPY) 
  StopDrawing() 
  ProcedureReturn hImage 
EndProcedure 

Procedure xpage(x.f)
  x = x * (PrinterPageWidth()/21) ; 21cm A4
  ProcedureReturn x
EndProcedure


Procedure ypage(x.f)
  x = x * (PrinterPageHeight()/29.7) ; 29,7cm A4
  ProcedureReturn x
EndProcedure

[kernadec]

je n'avais tester ce programme qu"avec acrobat distiller en impression PDF.
mais apres essai sur une imprimante la resolution de l'ecriture n'est
stable et difficile de tester sur toutes les impimantes desole!
pour reduire la taille des caracteres il suffit d'aller a la ligne 81
de passer a 4/2 etc suivant le modele d'imprimante
280 pixel de rayon donne environ 10cm de rayon

[comtois]

C'est sympa tout ça.

Je n'ai pas d'imprimante pour tester, mais c'est bon de savoir où trouver un code sur l'impression le jour où j'en aurai besoin.

[Backup]

oui ! c'est cool en effet

[kernadec]

bonjour et merci pour les ptits mots
mais voila une modif pour ne plus avoir de compte a regler avec la police
j'avais été distrait sur ce point !
il suffit de modifier la ligne 81 par ce code

Code : Tout sélectionner

tfont=rayon*36  ; taille de la police reglée sur l'echelle de la page

[kernadec]

desole decidement je suis distrait ne pas multiplier mais diviser lol !!!

Code : Tout sélectionner

   
tfont=rayon/37  

[kernadec]

1er code mis a jours en novembre 2018

[Ollivier]

Salut ! Avec EPSON « Stylus 42UX », la taille et le centrage sont ok ! Excellent travail !

Ollivier

[kernadec]

bonjour à tous
petite mise à jours du code en début de post
J'ai tout simplement sur la demande d'un ami changé et mis le zéro du cercle dans l'axe du bas de page
et mis des couleurs aux boutons et quelques "GadgetToolTip" pour le fun

Cordialement

[Kwai chang caine]

Il est splendide ton petit rapporteur
J'étais passé à trave... erreur corrigée désormais
J'ai adoré aussi ton papier millimétré....tout ça me rappelle des mauvais souvenir d'école, détestant le dessin industriel

Perso je suis pas assez bien monté "neuronatiquement" parlant, pour que ton super code me serve un jour
Mais je le garde parce qu'il est super beau

Pour essayer de te donner une idée de l'étendue des dégâts
Un petit rapporteur pour moi ça n'évoque que ça :



dans ce qui me sert de cerveau
En tout cas merci pour le partage d'une partie de tes monstrueuses connaissances "intergalactiques" et historiques

[kernadec]

bjr kcc
merci de flatter mon ego
mais je doit dire que tu est est toi aussi d'une modestie à toutes épreuves
car j'ai bien compris que tu cache derrière toutes ces phrases
malicieuses une personne qui a beaucoup de talent pour la programmation et beaucoup
plus d'expériences sur ce sujet que tu veux bien nous le faire croire..
en tous cas merci d'être passé par là
à plus
Cordialement

[Kwai chang caine]

Cela me touche sincèrement, surtout venant de toi
Mais j'ai bien peur que pour une fois tu te trompes...comme quoi .... j'suis vraiment pas une étoile pour que tu fasses une erreur
J'aimerais tellement que tu ai raison mais en parlant d'égo, pouvoir lire ou parler avec un certain nombre de membres des forums PB, cela n'a pas flatté le miens. Jamais je n'aurais pu imaginer ce que certains de vous puissent avoir dans la caboche

Alors bien sûr, je suis pas le dernier des cons...(quoi que des fois je me demande ) j'ai quelques sujets ou je ne me vautre pas comme une merde.
Mais je suis indéniablement en admiration pour tous ceux qui peuvent parler profondément de Sciences, Mathématiques, Planétologie, Programmation de haut niveau, Histoire, Français, etc....bref une grande partie des choses que je ne comprends même pas le titre, et c'est là que je me rends compte que si j'avais eu les capacités de retenir la moitié de ce qu'on a vainement essayé de m'apprendre et ne cesser de ce fait, de fuir devant le savoir, j'aurais pu croiser le fer avec des personnes comme toi sur certains sujets, au lieu de boire tes paroles, les yeux aussi grands ouverts que ma bouche, sans pouvoir émettre un son afin de transformer ce délicieux monologue, en un dialogue tout aussi savoureux
Mais si je tentais d'interrompre certaines hautes discussions que je lis sur les forums PB, ce ne serait que pour emmètre un son onomatopéique, si ce n'en est pas un provenant des profondeurs méandriques de mon appareil gastro intestinal

Mais bon...on sera surement jamais d'accord , un proverbe indien dit que pour pouvoir comprendre quelqu'un, il faut vivre dans ses mocassins.
Apparemment au regard de cette conversation, être cultivé et/ou intelligent, c'est bien souvent un peu comme en être dénué....tout le monde s'en rends compte, sauf l’intéressé

En tout cas..je suis fier d'avoir croisé ton chemin, comme celui de beaucoup de membres des forums...et surtout de ne pas avoir eu l'impression de ne pas faire partie de votre bande ou ressentit ne serait-ce qu'une seule seconde, cette différence dont je souffre le plus silencieusement possible bien souvent

A bientôt et vive le nord !!!

[kernadec]

bjr Kcc
Merci, perso je n'ai pas ta maitrise du verbe car tu est vraiment très bon et surprenant dans cet exercice.
D'ailleurs, je ne connaissais l’existence de ce mot : "onomatopéique" avant que tu ne l' utilise ici
je me cultive beaucoup en lisant les traductions de tes messages sur les forums.
merci beaucoup
Cordialement

[Kwai chang caine]

D'ailleurs, je ne connaissais l’existence de ce mot : "onomatopéique" avant que tu ne l' utilise ici

Moi non plus

Parce que je t'aime beaucoup, je vais te donner une de mes nombreuses petites combines pour pouvoir élever autant que faire se peut mon langage ECRIT d'origine CM2
Mais je te fais confiance, si ça sort d'ici je saurais que c'est toi
Car ce qui est le plus fort, c'est que j'ai toujours détesté les cours de français, toujours été nul en classe dans cette matière (et si y'avait qu'elle ), je faisais presque une faute par mot.

J'ai même essayé d'écrire "La dictée de Pivot".... un must dans ce domaine
https://www.nouvelobs.com/culture/20001 ... pivot.html
et ben j'ai été étonné de ne faire que 3 fautes
Une faute à "Dicté" et deux fautes à "Deux Pivaux" alors c'est pour te donner le niveau

En fait, GOOGLE est mon ami, je sais que j'en ai au moins un
J'ai remarqué que l'apport "ostentatoire" (Un de plus ) d'adjectifs dans un texte, même s'ils servent à quedal, élevait son niveau à un minimum de déférence.
Alors fort de cette constatation j'en fourre de partout, je créé mon texte de base,..... c'est à dire d'une valeur proche d'une roupie de sansonet, puis je les rajoute par ci et par là, et ça donne un texte assez surprenant, j'en reviens des fois pas moi-même

Donc, pas compliqué, je connaissais le mot "onomatopée" et je me demande immédiatement si l'adjectif n'éxiste pas
MONGOL me dit que si alors la phrase banale

ce ne serait que pour emmètre une onomatopée,

se transforme en

ce ne serait que pour emmètre un son onomatopéique,

Et là ...paf !!!! ça la pète !!!!

Alors de la poudre aux yeux, un correcteur orthographique, du blabla de pipelette qui a toujours été au coin car pas moyen de lui faire fermer sa gueule tout du long de sa pénible scolarité, la passion des blagues que l'on peut aussi intégrer dans un texte même parfois sérieux..et la magie opère bien souvent.
Voilà pourquoi je suis en admiration devant les VRAIS comme toi qui peuvent ORALEMENT, en autre tenir en haleine un auditoire et les faire voyager dans les couloirs du temps



C'est ça qui est triste dans ce monde, c'est qu'avec les moyens de maintenant, l'on peut faire passer un cancre pour un écrivain, un piètre chanteur pour une diva, un mauvais zicos pour un virtuose, etc ...
C'est un des danger d'internet, et pourquoi tant de gens se font avoir par les innombrables fakes qui le compose ...

[kernadec]

Bjr Kcc
Eh ben, ne faire que 3 fautes dans une dictée de Pivot, chapeau
pour ma part c' est même pas la peine que je participe à un test de ce genre.

Désolé, je suis un peu radin dans le verbe, pour ne pas prendre trop de risques avec la grammaire
Merci pour toutes ces astuces, voici la mienne.
Quand je fais une lettre pour une administration, avocat, etc.
j'utilise un programme de correction de grammaire.

Voici des liens de correcteurs en ligne
https://bonpatron.com/fr/ Gratuit
https://www.scribens.fr/ Une version gratuite est disponible
https://languagetool.org/fr Version gratuite limitée à 20 000 caractères
https://addons.mozilla.org/fr/firefox/a ... guagetool/

Cordialement