home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 2 / sauce-n-code-02.adf / ASCII_Source / Darken.asc < prev    next >
Text File  |  1995-07-02  |  1KB  |  65 lines
  1. '* darken picture routine project x styleeee 
  2. '* its smoother when compiled................. 
  3. '* written by andy dobinson on 15 october 1993 
  4.  
  5. ' *************************************************************
  6. ' * Just load in an picture and this routine will darken it   *
  7. ' * a little bit for you. A brilliant effect for use with the *
  8. ' * scrolling text over picture routines!                     *
  9. ' *************************************************************
  10.  
  11. If Length(10)=0
  12.    Load Iff Fsel$(""),0
  13.    Spack 0 To 10
  14.    Screen Close 0
  15. End If 
  16.  
  17. If Length(10)>0
  18.    Unpack 10 To 0
  19. End If 
  20.  
  21. Hide : Wait Vbl 
  22.  
  23.  
  24.  
  25. _DARKENSCREEN[32,6]
  26.  
  27.  
  28.  
  29. Procedure _DARKENSCREEN[G,Q]
  30.    '
  31.    ' G= THE NUMBER OF COLOURS 
  32.    ' Q= HOW DARK THE PICTURE YOU WANT 
  33.    
  34.    Dim RGB(2)
  35.    AD=0
  36.    For Y=1 To Q
  37.       ST:
  38.       '
  39.       '* the next 3 lines find out what the rgb's are set to 
  40.       '
  41.       RGB(0)=(Colour(AD)/256)
  42.       RGB(1)=(Colour(AD)/16 mod 16)
  43.       RGB(2)=(Colour(AD) mod 16)
  44.       '
  45.       '* this bit subtracts 1 from r,g,b * 
  46.       '
  47.       For X=0 To 2
  48.          RGB(X)=RGB(X)-1
  49.          If RGB(X)<0 Then RGB(X)=0
  50.       Next X
  51.       '
  52.       '* this bit now displays the darker colour 
  53.       '
  54.       Colour AD,RGB(0)*256+RGB(1)*16+RGB(2)
  55.       Inc AD
  56.       If AD<G Then Goto ST
  57.       AD=0
  58.    Next Y
  59. End Proc
  60.  
  61.  
  62.  
  63.  
  64.  
  65.