'**************************************
'                                     *
'     IntuiExtend.Lib 1.4/@1995-96    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
'Fonction utilisées
'Amos Rastport     Wb Roll Screen
'Pal Antiq()       Pal Filter()
'Pal Grey()        Pal Negativ() 
'
'Lecture d'une image 
Load Iff Fsel$(""),0
R0=Amos Rastport
'
'Copie de l'écran Amos 
Screen Open 1,Screen Width,Screen Height,Screen Colour,Screen Mode
Curs Off : Flash Off : Cls 0 : Get Palette(0)
R1=Amos Rastport
Screen Open 2,320,11,2,0
Curs Off : Flash Off : Cls 0 : Colour 1,$FFF
'
'L'attente et IMPERATIVE 
Wait Vbl 
'
Text 0,7,"Fonction: Wb Roll Screen - Press any key..."
Wait Key 
Screen To Back 2 : Cls 0
Wait Vbl 
Gosub ROLL
'
'Text 0,7,"Fonction: Pal Negativ() - Press any key..." 
'Screen To Front 2 
'Wait Key  
'Screen To Back 2 : Cls 0
'Screen 1 : Cls 0  
'Gosub NEGAT 
'Gosub ROLL
'
Text 0,7,"Fonction: Pal Antiq() - Press any key..."
Screen To Front 2
Wait Key 
Screen To Back 2 : Cls 0
Screen 1 : Cls 0
'Gosub NEGAT 
Gosub ANTIQ
Gosub ROLL
'
Text 0,7,"Fonction: Pal Grey() - Press any key..."
Screen To Front 2
Wait Key 
Screen To Back 2 : Cls 0
Screen 1 : Cls 0
Gosub GREY
Gosub ROLL
'
Text 0,7,"Fonction: Pal Filter() - Press any key..."
Screen To Front 2
Wait Key 
Screen To Back 2 : Cls 0
Screen 1 : Cls 0
Gosub FILTER
Gosub ROLL
'
Text 0,7,"Press any key to end..."
Screen To Front 2
Wait Key 
'
Screen Close 0
Screen Close 1
Screen Close 2
End 
'
ROLL:
Wb Roll Screen R0 To R1,6
Screen 2
Return 
'
ANTIQ:
Screen 1
For T=0 To Screen Colour-1
Colour T,Pal Antiq(Colour(T))
Next T
Return 
'
FILTER:
Screen 1
For T=0 To Screen Colour-1
Colour T,Pal Filter(Colour(T),$F0F)
Next T
Return 
'
GREY:
Screen 1
For T=0 To Screen Colour-1
Colour T,Pal Grey(Colour(T))
Next T
Return 
'
NEGAT:
Screen 1
For T=0 To Screen Colour-1
Colour T,Pal Negativ(Colour(T))
Next T
Return