nous permettra de faire face a tous les problemes śventuels el d’appliquer toutes sortes d'effets a notre image
TEL : 30 42 77 77
22. ROUTE NAllOSALE m / AX . 30 42 77 33
7R440 ISSOU EMAIL SERELE@wanadoo.fr
Nos premiers effets !
lis ne sont pas formidables ;-)
Le premier est un effel de base: le degradć en niveaux de gris Pour cela. nous allons utiliser une boucle forl simple. En partant de la couleur 0 jusqu'£ la dernićre couleur de notre palette, nous allons faire la moyenne des trois composanles pour chaque registre de couleurs et ensuite copier celle ci a la place des trois composantes de notre registre couleur. Je sais, ęa parait compliquś, mais regardez * l'exemple et vous vous apercevrez que c est en realitć enfantin. II ne reste plus qu’a faire un petit Use Palette et le tour est joue. Un autre effet est la rotation (Barrou en a donnś les explications dans Amiga News numśro 96 page 58. je ne vais donc pas y revenir) dont je me suis contente de recopier 1'algorithme ;-) II est un peu plus complexe que le precódent dans le sens ou il fait intervenir deux bitmaps : 1’image originale plus un bitmap temporaire. Nous effectuons toutes nos transformations sur le bitmap temporaire que nous recopions lorsque 1'eftet est fini sur le bitmap original. Bon, allez, on va se ra-jouter un troisićme effet pour la formę ! il s’agit cette fois-ci d un effet dit de "nśgatif. II transforme la palette pour faire apparaTtre le negatif de l’image comme sur vos photographies. II suffit de soustraire notre couleur a la derniere couleur de la palette et comme precśdemment de faire un Use Palette umPal.
DEPANNAGE DE TOUT AMIGA
INTERVENTION RAPIDE StJR RENDEZ VOUS. OU EXPEDIFR I F.
MATER1EL DF.YIS GRATUITS.
A500 A2000
CHAOUE COMPOSANT SUPER DENISE ECS ALIMENTATION externe DRIVE INTERNE 880 K SOURIS COMMODORE
19C F 250 F 350 F 350 F 250 F
ROMS ET KIC KSTARTS
Le source
II est je pense suffisamment commentć pour qu'il soit a la portee de tous. Dćsole pour le peu d’explications techniques. mais la place me manque. De toutes manićres, nous y reviendrons le mois prochain. S’il y a un quelconque probleme d'ici la. n'hesitez pas a me contacter a ma nouvelle adrcsse EMail (matc999@spidernet.tmfr) ou au journal qui transmettra.
Le mois prochain donc, on continue ce programme tout en abordant de nouveaux sujets : localisation, Undo, aide en Ugnę ...
KICKSTART 1.3................ 150 F
KICKSTART 2.04 37 175 ... 190 F KICKSTART 2.05 37 350 ... 25C F
KICK 37 175 A3000 ........... 39C F
COMPOSANTS ct ACC FSSOIRKS
Wndow#FX, 0.11.100, WHFX.S140E.'Out>łsM .2
Window iPPRE,101.11.SLaręeiir 102 WHFX.$140E.*Preview‘.1.2
MenuTWe 0.0.’Projet* ; crśalion du menu prncipal
Menullem 0.0,0.0/Chnrger'
Menullem 0.0,0.1 / Sauvor MenuMem 0.0.0,2.'Sauver Sous*
Menullem 0.0.0.3.*’Voif'
Menullem 0,0.0.4.*lnfos"
Menułtem O.O.O.S.YJuitter Yq‘
For motfM To #PRE Use Windo** m
SotMenu 0 ; on rattache le menu et les appels des requesterc> ser chague fenńtie CatchDosErrs Next
GTUsMew #GTTOOLS. 1 .-2,-11.105.WHFX-11 .".O.oulilsO AttachGTbst #GTTOOLS.#FX
Repeat : roubne pnncipnle de gestion des ńvoremerts
evl-Evenl
VWa:t
II ev-1200
Gosub Gurt : ferrrołure dune lenńtre = quitter Endłf
llev=$100 M MenuHUO
II ItemHit^O , charnemert d‘une image
chemin$=ASLFiTeRequest$('Cho<S’Sse* une image".LdCh$.LdNom$) IfcheminSo-If E*ists(chemin$)
Gosub Lock . Voir plus bas {tr£s prabque !)
imago{gen)\Acces=chemin$ ; on ir*tlalise maimenanl nolre table en 'entrant
ses champs • id Ic edemin
ILBMlnfo image(gen)'Acces
image (gen)\Ncm=gen .gen. 11BM Depth.2 AIŁ BM Deptti. I LBMHosght.
iLBMWk*h.)LBMV1ewMode: el d tom le
USEPATH imaoe(gen)
Use Window WCis
BrtMap \Num .\Lar geur,\Hauteur, \Plans LoadBilMap \Num \Acces,7^umPal BitMaptoWmdow \Num #PRE Use Paledc \NumPal \Nom-LdNomS
Gosub Rel oshGTLisi; voir plus bas commenco--1 sei=gen gerul
Gosub UnLock Endlf Endlf Endlt
II HerrHit=1 ; roiAne simple de sauvegarde - on se contento de ródchre par dossus ...
If E»sts{image(sGl)'Acces)
Gosub Lock
Sa veBitma p image(seiyN um.i mage(sel )\Accos. image{sei )\N umPal
CABLF PERITEL AMIGA 70 F
CABI E DIN/DB23 ............ 100 F
CABI F DB9/DB23 ........... 100 F
NAPPE 2.572.5".............. 90 F
NAPPE 2.572 573.5"....... 190 F
Acaptateur SC1438/VGA 100 F Adaptateur AMIGA/VGA 100 F
- TTI 74FCT24C................. 50 F
- VFNTILATEUR miniaturę 90 F
- VFNTILATELR standard 100 F
- SUPPORT 44 PINS PLCC 40 F
- SUPPORT 84 PINS PLCC 50 F
- CARTE RESEAU A500 .... 200 F
- THT de moniteur 1083/84 290 F
• Interface A1200 clavier PC490 F
• Interf. A1200 Clav. 2/3000 290 F
- DISOUE DUR 3.5 850 MO1390 F
- DISOUE DUR 3.5 1 GIGA 1590 F
RACK 19 POUCES 3U special A1200 pour video professionnel nu 1290 F
toutes options .... NC
tous
d'aor0s
msle
ENFIN, PA W 1200 le seal portable AMIGA KIT complet sans carte 1200 matrice active I0p4
15990 E
A 1200 4000
CIA 8520 PLCC............... 290 F
DFNISE 8373 PLCC......... 250 F
FAT GARY -02 ................. 25C F
HAMSFY-07 .................... 250 F
CARTF CPU 040 /25Mh? 1800 F
GAYLE AA. A120C.......... 25C F
ALICE 8374 .................... 250 F
CLAVIER A40C0 ............ 500 F
ALIM 200 W genre PC ... 49C F
TOWER 1200 .................. 129C F
CLAN/IER A1200 ............ 250 F
CARTE MERĘ A1200 ..... 20C0 F
- MANUEL Workbench 3.1 . 250 F
- KIT DISGUETTES 2 05......150 F
- KIT DISOUETTES 3 0........290 F
-KIT DISOUETTFS 3.1 ........290 F
-OS 3 1 A5C0/A200C ........... 990 F
avec Super Denise ECS
TOURS AMIGA 4000
BOITIER BIG TOWER CARTE 7 SLOTS. dont 2 VIDEO NOTICE. en Franęais (disquette) 2990 FRANCS
TOURS AMIGA 1200
- BOITIER MEDIUM TOWER
- INTERFACE CLAVIER PC
- CLAVIER 102 TOUCHES PCAT
1290 FRANCS CARTE ZORRO II nouvelle generation pour A1200 1890 F
VESTF. SL R PtACE Dl I.UNDI AU N ENDREDI. de 9H00 j I2H30 tl de 14H.MI a I8H30
CO.MMANDE Sl K PAPIER L1RRF. joindre le rćglemenl par chegut-nu par mandat Forfait wpediliun : ajuult-r 85 L nu cnnlre-renihnurscment el appareils. ajouler 125 F