pic

Comme il m'est difficile de vous donner des images au format TI, j'ai décidé de vous les transmettre à l'aide de matrices !

En effet, ce programme fait le dessin d'une matrice (1àpoint noir, 0àpoint blanc) puis enregistre l'image sous un nom de votre choix.

Ainsi pour utiliser le programme vous pouvez taper la matrice à la main, ou utiliser l'éditeur de matrices

pic(m)
Prgm
Local i,j,n
ClrDraw
For i,1,rowDim(m)
      For j,1,colDim(m)
            If m[i,j]¹0:PxlOn i-1,j-1
      EndFor
EndFor
Request "Nom",n
If n¹"":StoPic #n,0,0,colDim(m),rowDim(m)
EndPrgm