$taille_image = 500;
$nombre1 = 450;
$nombre_additione = 150;
$image = imageCreateTrueColor($taille_image, $taille_image);

$blanc = imageColorAllocate($image, 255, 255, 255);
$noir = imageColorAllocate($image, 0, 0, 0);
imageFilledRectangle($image, 0, 0, $taille_image, $taille_image, $blanc);

for ($x = 0; $x < $taille_image; $x++)
{
        for ($y = 0; $y < $taille_image; $y++)
        {
                if (($x*$y)%$nombre1 == $nombre1%($x+$nombre_additione)
                                OR ($x*$y)%$nombre1 == $nombre1%($y+$nombre_additione)
                                OR (($taille_image-$x)*($taille_image-$y))%$nombre1 == $nombre1%($taille_image-$x+$nombre_additione)
                                OR (($taille_image-$x)*($taille_image-$y))%$nombre1 == $nombre1%($taille_image-$y+$nombre_additione))
                {
                        imageSetPixel($image, $x, $y, $noir);
                }
        }
}

# include <stdio.h>
# include <stdlib.h>
# include <SDL/SDL.h>
# include <math.h>

void pause()
{
    int continuer = 1;
    SDL_Event event;

    while (continuer)
    {
        SDL_WaitEvent(&event);
        switch(event.type)
        {
            case SDL_QUIT:
                continuer = 0;
        }
    }
}



int main ()
{
SDL_Surface *pixel=NULL, *ecran=NULL;
SDL_Rect position;
int x,y;
position.x=0;
position.y=0;
if (SDL_Init(SDL_INIT_VIDEO)==-1)                           
{
fprintf(stderr,"Erreur d'initialisation de la SDL");
exit(EXIT_FAILURE);
}
ecran=SDL_SetVideoMode(510,510,32,SDL_HWSURFACE);
if (ecran==NULL)
{
fprintf(stderr,"Erreur d'inialisation du mode vidéo %s",SDL_GetError());
exit(EXIT_FAILURE);
}
pixel=SDL_CreateRGBSurface(SDL_HWSURFACE,1,1,32,0,0,0,0);
for (y=1;y<510;y++)
for (x=0;x<510;x++)
{
position.x=x;
position.y=y;
SDL_FillRect(pixel,NULL,SDL_MapRGB(ecran->format,x%y,x%y,x%y));
SDL_BlitSurface(pixel,NULL,ecran,&position); 
}
SDL_Flip(ecran);
pause();
SDL_FreeSurface(pixel);
SDL_Quit;
return 0;
}

open Graphics;;
(* Dessine un ensemble de Mandelbrot *)
(* Prend en paramètre la taille de l'écran et deux constantes (hyper sensibles) *)
let mandelbrot taille a b =
  (* Définit si fait partie de l'ensemble ou pas, et choisit la couleur en conséquence *)
  let couleur x y =
    let norme x y =
      let rec norme acc x y =
        if x *. x +. y *. y > 1000. then acc
        else if acc > 256 then 0
        else norme (acc+1) (x *. x -. y *. y +. a) (2. *. x *. y +. b)
  in norme 0 x y
    in
    let c = (norme x y) * 20 in
      rgb c c c
  in
    (* Vérifie tous les points, les colorie *)
    for x = 0 to taille - 1 do
      for y = 0 to taille - 1 do
        let x2 = 4. *.  float_of_int (x - taille / 2) /. (float_of_int (taille))in
        let y2 = 4. *. float_of_int (y - taille / 2) /. (float_of_int (taille)) in
        set_color (couleur x2 y2);
        plot x y
      done
    done
;;
auto_synchronize false;
open_graph " 800x800";
mandelbrot 800 0.29 (-0.45);
(* Sync l'affichage *)
synchronize ();
(* Pause *)
ignore (read_key ());;
 

/*******************************************************************************
Titre :         Effet graphique en C avec OpenGL
Sous titre :             BitMAP Logique

By Tix.                                                     tixlegeek@gamil.com
http://www.tixlegeek.sup.fr                               (c) TRANSISTERIX 2007
*******************************************************************************/
#include <SDL/SDL.h>
#include <GL/gl.h>
#include <GL/glu.h>
#define pi 3.14159265358979323846
#include <math.h>


typedef struct COLOR {
    GLbyte r;
    GLbyte v;
    GLbyte b;
} COLOR ;

/*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*/
/*::  This function converts decimal degrees to radians             :*/
/*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*/
double deg2rad(double deg) {
  return (deg * pi / 180);
}

/*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*/
/*::  This function converts radians to decimal degrees             :*/
/*:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*/
double rad2deg(double rad) {
  return (rad * 180 / pi);
}

void assign(COLOR *variable, GLbyte r, GLbyte v, GLbyte b)
{
    variable->r = r;
    variable->v = v;
    variable->b = b;
}

int main(int argc, char *argv[])
{
    SDL_Init(SDL_INIT_VIDEO);
    SDL_WM_SetCaption("Fractal ?",NULL);
    SDL_SetVideoMode(255, 255, 32, SDL_OPENGL);
    // Definitions de l'environnement //
    gluOrtho2D(255,0,255,0);
    glPointSize(2);
    //********************************//
    bool continuer = true;
    SDL_Event event;
    double i;
    COLOR pixelcolor;
    int x,y;

        glClear(GL_COLOR_BUFFER_BIT);
        glBegin(GL_POINTS);

            for(x=0; x<=255; x++)
            {
                for(y=0; y<=255; y++)
                {
                    i++;
                    assign(&pixelcolor,y|x&42,x|y&42,int(cos(deg2rad(x&y))*255));
                    glColor3ub(pixelcolor.r , pixelcolor.v, pixelcolor.b);
                    glVertex2d(x,y);
                }
            }
        glEnd();
        glFlush();
        SDL_GL_SwapBuffers();

    while (continuer)
    {
        SDL_WaitEvent(&event);
        switch(event.type)
        {
            case SDL_QUIT:
                continuer = false;
        }

    }

    SDL_Quit();

    return 0;
}

 

            for(x=0; x<=255; x++)
            {
                for(y=0; y<=255; y++)
                {
                    i++;
                    assign(&pixelcolor,255-int(cos(deg2rad(x&y))*255),255-int(sin(deg2rad(x&y))*255),255-int(tan(deg2rad(x&y))*255));
                    glColor3ub(pixelcolor.r , pixelcolor.v, pixelcolor.b);
                    glVertex2d(x,y);
                }
            }

<?php
header ('Content-type: image/png');
$hauteur = 1000;
$largeur = 1000;

$R = 0;
$V = 180;
$B = 255;

$image = imagecreatetruecolor($largeur,$hauteur); // Création de l'image vide
ImageFilledRectangle($image, 0, 0, $hauteur, $largeur, imagecolorallocate($image, 255, 255, 255)); // On rempli l'arrière de blanc

for($i=0;$i<($largeur);$i++)
{
  // Ci desous le code pour larc en ciel
  if($R == 255)
    if($B >= 1)
      $B--;
    elseif($G == 255)
      $R--;
    else
      $G++;
  elseif($G == 255)
    if($B == 255)
      $G--;
    elseif($R == 0)
      $B++;
    else
      $R--;
  elseif($B == 255)
    if($R == 255)
      $B--;
    elseif($G == 0)
      $R++;
  else
      $G--;
 
  $coul = imagecolorallocate($image, $R, $G, $B); // Récupère la couleur
  ImageEllipse($image, $largeur/2, $largeur/2, $i, $i, $coul); // On fait notre piti rond =]
}

imagepng($image);
?>