home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / B_L_GAUNT / SHADOWTEXT.AMOS / SHADOWTEXT.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  896 b   |  26 lines
  1. '******************************************  
  2. '*** SHADOW TEXT PROCEDURE BY B.L.GAUNT ***    
  3. '**************************************************************      
  4. '*** HOW TO USE _SHADOWTEXT X Y=Text pos, SC=Shadow colour, ***    
  5. '*** TC=Text colour, T$=Your text                           ***
  6. '**************************************************************  
  7. Screen Open 0,320,256,4,Lowres
  8. Flash Off 
  9. Colour 1,$44
  10. Curs Off : Hide On : Cls 1 : Wait Vbl 
  11. _SHADOWTEXT[75,100,0,2,"Shadowtext by B.L.G"]
  12. _SHADOWTEXT[10,130,0,2,"AMOS PRO where your dreams come true."]
  13. Clear Key : Wait Key : Edit 
  14.  
  15. Procedure _SHADOWTEXT[X,Y,SC,TC,T$]
  16.    Gr Writing 0
  17.    For A=0 To 1
  18.       Ink SC
  19.       If A=1
  20.          'By changing the values of X and Y you can increase the depth and, 
  21.          'direction of the shadow. Try x=0 y=2
  22.          X=X+3 : Y=Y-3 : Ink TC
  23.       End If 
  24.       Text X,Y,T$
  25.    Next A
  26. End Proc