1717474418

En pratique

•Set Buffer 70 : Screen Open 0,320,256,32,Lowres : Curs Off    :    Cis 0    : Flash Off    :    Hide    On    :    For

CC=1 To    15    :    Colour    CC,CC¹$111    :    Next    CC    :    For

CC = 1 To    15    :    Colour    CC + 15,CC¹$1    :    Next    CC    :    For

T=1 To    7    :    Screen    Open T, 320,256,32 ,    Lowres :

Screen Hide T

•Curs Off : Cis 0 : Flash Off : Get Palette 0 : Next T : Dim XD(8000)    : Dim YD(8000)    : Degree :

Dim SYN(720)    : Dim CSYN(720)    : For T¹1 To 720 :

SYN(T)¹(100¹Sin(T))¹300    :

CSYN(T)=(100¹Cos(T))¹300 : Next T

•AD¹ 3 0    :    ANA--2 :    ZS-1550    :    For SC = 0 To 7    :

Screen SC : Screen To Front SC : C01«l : C02-16 : Add ANA.3 : T-0 : Add ZS,-10 : Z=ZS : For DE¹1 To 36    : CI-0 :    AN=0 :    If Z>0    :    COADD.Z/110 :    For

AN =1 To 360 Step 12    :    X - SYN(AN♦ANA)    :

Y«CSYN(AN+ANA) : Inc T

*XD(T)=X/Z :    YD(T)=Y/Z :    Add XD(T),160    :    Add

YD(T),128 : Inc CI : Swap C01.C02 : POT-COl+COADD : Ink POT : If DE>1 and CI>1 : CO-CI+((DE-1)¹AD)-AD-1

•Polygon XD(CO),YD(CO) To XD(CO+1),YD(CO+1) To XD(CO+AD+l),YD(CO+AD+l) To XD(CO+AD),YD(CO+AD) : End If : Next AN

•Inc CI : Swap C01.C02 : POT-COl+COADD : Ink POT : If DE>1 and CT>1 : C0=CI+((DE-1)¹AD)-AD-1

•Polygon XD(CO),YD(CO) To XD(CO-AD+1),YD(CO-AD+1) To    XD(CO-AD+1+AD),YD(CO-AD+1+AD)    To

XD(CO+AD),YD(CO+AD)

•End If : End If : Add Z. 4 0 : Next DE : Next SC : For T=0 To 7 : Screen Show T : Next T : Do : Add SC,1,0 To 7 : Screen To Front SC : Wait Vbl : Loop : Show On : Direct

Horloge

Pour ne plus etre en retard a ses rendez-vous galants a cause des heures acharnees passees sur votre Amiga, voici un petit program-me qui saura §tre au poił (pratique avant d'etre a ...).

HORLOGE A AIGUILLES____

by E. Cappannelli pour Dream

•Screen Open 1,640,256,8,Hires : Curs Off : Flash Off : Cis 0 : Screen Open 0,640,256,8, Hi res : Curs Off : Flash Off : Cis 0 : Palette $0,$F,$F00,$FFF,$FAF : Ink 1 : Circle 320,128,60 : Degree : Ink 2 : For N-271 To 640 Step 30

•Draw 320+Cos(N)¹119,128+Sin(N)¹59 To 320+Cos(N)¹120,128+Sin(N)¹60    :    Next N : Global

H, M, S

RIEN¹Doscali(-192)    :    MN-Leek{Varptr(T$)♦4)    :

SFC = I.eek (Varpr.r (T$) +8)    : H = MN/60 : M=MN mod 60 :

S=SEC/50

*If H>12 : H-H-12 : End If : Screen Copy 0 To 1 : Screen 0 : Every 50 Proc HORL : Do : Loop

*Procedurę HORL

*Inc S : If S>¹60 : S-0 : Inc M : End If : If M>-60 : M=0 : Inc H : End If : If H>12 : H=0 : End If :    Screen Copy 1 To 0    :    Ink 3    :    Draw

322,129    To

320+Cos(271+(S¹6))¹120,128+Sin(271+(S¹6))¹60    :

Ink 4

* Draw    321 , 128    To

3 2 0 + Cos(271+(M¹6))¹110,128 + Sin(271+<M¹6))¹50    :

Ink    5    :    Draw    321,128    To

320 + Cos(271+(H¹30))¹ 100,128+Sin(271♦(H¹30))¹40    :

Every On

•End Proc

Zoom in

I wanna zoom in with you... Apres avoir choisi un fichier image (IFF de preference), en deplaęant la souris on peut voir un bel effet de vagues sur 1'ecran...

LENS EFFECT RIPPLE TWO

By Malcolm Lavery 1994

*F$<-Fsel$    "LOAD A IFF PICTURE")    :    Load Iff

F$,0 : GRA¹Screen Colour : Double Buffer : Screen Open 1,320,100,GRA, Lowres : Get Palette 0 : Flash Off : Hi de On : Cis 0 : Screen Hide 1 : XSIZE-60 : YSIZE-60

•Do

*X=X Screen(X Mouse) :    Y=Y Screen(Y Mouse) :

Screen 1    :    Wait Vbł :    Bob Clear :    Screen Copy

0,X, Y,X + XSIZE, Y+YSIZE To 1,0,0    :    Bob Draw :    For

XP=0 To XSIZE : Screen Copy 1,XP,0,XP+1,YSIZE To 1,100 +XP,YP : If YP = 3 : DY=-1 : End If : If YP=0 * DY ¹1 : End If : Add YP,DY : Next XP : Box 100,0 TO 99+ XSIZE+INL,YSIZE+INL- 1 : Get Bob 1,100,0 To 100+XSIZE+INL,YSIZE+INL : Screen 0 : Bob 1,X,Y,1 : Wait Vbl

•Loop

Voila, c'est tout pour ce mois-ci. En attendant vos chefs-d'oeuvre, je me permets de vous signaler un petit truć dans 1'editeur Amos pro. Dans la serie "ces programmeurs, quels galopins", essayez de taper Lionet sur une nouvelle ligne, placez ensuite votre curseur au debut de la ligne et appuyez sur "help", une jolie anecdote appa-rait.

Erie Cappannelli

DREAM • N’25 - |ANVIER 1996

1

T$ >Space$ (12)    :    Dreg ( 1 )=Varptr(T$ )    :