Sur le CD-ROM :
le site web "Pour une vision globale"
le programme "Autoportrait" au format Shockwave
le programme "Pour en finir " au format Shockwave
le programme "La question que je me pose " au format Shockwave

 

 

Gérard Giachi,
17/09/99, 08: 42 + 0100, Doc[k]s


Mime-Version: 1.0
X-Sender: ggia000l_l_fnac@pop.fnac.net (Unverified)
Date: Thu, 17 Sep 1999 08:42:42 +0200 To:
AKENATON DOCKS@sitec.fr
From: GERARD GIACHI <gerard@giachi.com>
Subject: Doc[k]s

Salut

Bon, ca y est j'ai regroupé les infos pour le Do[k]s j'y ai mis l'entête de mon site qui renvoie sur l'en-tête des sites internes (700 ko).
Par contre j'aimerais en profiter pour placer un boulot récent http://www.visionsglobales.com/medias/sites/auto html qui se déroule sur 30 mn (et donc qui demande normalement 30 mn de connection) et qui pèse 4,7 Mo avant de l'envoyer dites moi si c'est du jeu et s'il y a de la place sur le CD.
Pour le papier si c'est terminé je montrerai le début d'un boulot que je développerai en décembre en Russie(Institut de système de programme) qui traite de l'écriture informatique et écriture poétique. Sinon fin octobre on innaugure notre site avec RealVidéo et chat j'espère que vous serez avec nous (je vous préciserai).

bisous, GG

GERARD GIACHI
POUR UNE VISION GLOBALE
MARSEILLE/FRANCE
http://www.visionsglobales.com/
mailto:giachi@iname.com

 

on startMovie

global nombre_de_lettres, ecrire, parles, couleur
cursor 200
set ecrire = 1
set parles = 1
set couleur = 2
set the mouseDownScript to "quelle_phrase_ecrire"
set the keyDownScript to "change_couleur"

end startMovie

on quelle_phrase_ecrire

global nombre_de_lettres, ecrire
if ecrire = 1 then
put "La question que je me pose :" into field "la_phrase"
set ecrire = 2
else if ecrire = 2 then
put "Une écriture génératrice de poésie," into field "la_phrase"
set ecrire = 3
else if ecrire = 3 then
put "Égale la poésie ?..." into field "la_phrase"
set ecrire = 1
end if
set nombre_de_lettres = the number of chars in field ¬
"la_phrase"

end quelle_phrase_ecrire

on change_couleur

on keyDown

global couleur
puppetPalette "palette"&couleur
set the stageColor = random(255)
if couleur < 7 then
set couleur = couleur + 1
else if couleur = 7 then
set couleur = 1
end if

end keyDown

end change_couleur

 

1 - Gérard Giachi

 

on exitFrame

go the frame

end exitFrame

on enterFrame

global nombre_de_lettres, parles
if the mediaReady of member "parle_" & parles + 20 then
puppetSound 2, "parle_" & parles + 20
if parles < 38 then
set parles = parles +1
else
set parles = 1
end if
end if
repeat with x = (the mouseChar) to (the mouseChar + 5)
set the forecolor of char(x) of field "la_phrase" to¬
240 - (40 * (x - the mouseChar))
set the fontSize of char(x) of field "la_phrase" to¬
90 - (8 * (x - the mouseChar))
end repeat
repeat with x = (the mouseChar - 5) to (the mouseChar)
set the forecolor of char(x) of field "la_phrase" ¬
to 240 - (40 * (the mouseChar - x))
set the fontSize of char(x) of field "la_phrase" to¬
90 - (8 * (the mouseChar - x))
end repeat
repeat with x = (the mouseChar + 6) to nombre_de_lettres
set the forecolor of char(x) of field "la_phrase" to 20
set the fontSize of char(x) of field "la_phrase" to 30
end repeat
repeat with x = 1 to (the mouseChar - 6)
set the forecolor of char(x) of field "la_phrase" to 20
set the fontSize of char(x) of field "la_phrase" to 30
end repeat

end enterFrame

on exitFrame

set the forecolor of field "la_phrase" to 170
go the frame

on mouseDown

put "Gérard Giachi - 1999" into field ¬
"copyright"
put "Sans Titre" into field "titre"

end mouseDown

end exitFrame

 


<<-

bibliographie

->>