40 строки
Без EOL
3,7 КиБ
HTML
40 строки
Без EOL
3,7 КиБ
HTML
<!DOCTYPE html>
|
|
<!-- Page generated by OCaml with Ocsigen.
|
|
See http://ocsigen.org/ and http://caml.inria.fr/ for information -->
|
|
<html class="ada2" lang="fr" id="h" xmlns="http://www.w3.org/1999/xhtml"><head><title>jpg.ads</title><meta content="text/html; charset=utf-8" http-equiv="content-type"/><link media="all" href="../../ystyle.css" rel="stylesheet"/><script src="../../Scripts/yfold.js"></script></head><body><div class="header" id="header"><h1 id="title">jpg.ads</h1></div><main><code class="page block"><span class="comment">--
|
|
</span><span class="comment">-- Ce package permet de lire une image contenue dans un fichier JPG
|
|
</span><span class="comment">-- ou d'écrire une image vers un fichier JPG.
|
|
</span><span class="comment">--
|
|
</span><span class="comment">-- (Utilise simple_jpeg_lib et libjpeg)
|
|
</span><span class="comment">--
|
|
</span>
|
|
<span class="kw">with</span> <span class="ident">GAda.Graphics</span> ;<span class="eols">
|
|
|
|
</span><span class="kw">package</span> <span class="fname">JPG</span> <span class="kw">is</span><span class="eols">
|
|
|
|
</span> <span class="comment">--
|
|
</span> <span class="comment">-- Une image est une matrice dont chaque case représente un point coloré.
|
|
</span> <span class="comment">--
|
|
</span> <span class="kw">type</span> <span class="type">T_Image</span> <span class="kw">is</span> <span class="kw">array</span>(<span class="ident">Natural</span> <span class="kw">range</span> <>, <span class="ident">Natural</span> <span class="kw">range</span> <>) <span class="kw">of</span> <span class="ident">GAda.Graphics.T_Couleur</span> ;<span class="eols">
|
|
|
|
|
|
</span> <span class="comment">--
|
|
</span> <span class="comment">-- Lit un fichier contenant une image JPEG et renvoie une matrice
|
|
</span> <span class="comment">-- contenant les pixels de l'image.
|
|
</span> <span class="comment">--
|
|
</span> <span class="comment">-- Les lignes et colonnes commencent à zéro.
|
|
</span> <span class="comment">-- L'origine de la matrice (0,0) est située en haut à gauche de l'image.
|
|
</span> <span class="comment">-- Comme d'habitude, le premier indice est le numéro de ligne, le deuxième indice le numéro de colonne.
|
|
</span> <span class="comment">--
|
|
</span> <span class="kw">function</span> <span class="fname">Lire_Image</span> (<span class="ident">Nom_Image</span> : <span class="type">String</span>) <span class="kw">return</span> <span class="type">T_Image</span> ;<span class="eols">
|
|
|
|
</span>
|
|
|
|
<span class="comment">--
|
|
</span> <span class="comment">-- Crée sur le disque dur un fichier JPG contenant l'image
|
|
</span> <span class="comment">-- Vous n'avez en principe pas besoin de cette procedure pendant les TPs.
|
|
</span> <span class="comment">--
|
|
</span> <span class="kw">procedure</span> <span class="fname">Ecrire_Fichier</span> (<span class="ident">Nom_Image</span> : <span class="type">String</span> ; <span class="ident">Matrice</span> : <span class="type">T_Image</span>) ;<span class="eols">
|
|
|
|
</span><span class="kw">end</span> <span class="fname">JPG</span> ;
|
|
</code></main><footer><small class="pcom"><a class="caml_c" href="../../yversion.html" data-eliom-c-onclick="2FnsmjHo+/iI">Version information</a></small><a target="_blank" href="http://www.insa-toulouse.fr"><img title="INSA Toulouse" style="width:73px;height:28px;" alt="INSA logo" src="../../Images/logo-insa-light.jpg"/></a><a target="_blank" href="http://jigsaw.w3.org/css-validator/check/referer"><img title="Validate css stylesheet" style="width:28px;height:32px;" alt="CSS3 logo" src="../../Images/css3.png"/></a><a target="_blank" href="http://validator.w3.org/check/referer"><img title="Validate html5 content" style="width:32px;height:32px;" alt="HTML5 logo" src="../../Images/html5.png"/></a></footer></body></html> |