Rasters (STE)

Une petite routine qui affiche des rasters, il faut un STE au moins.
Elle m'a été envoyée par KGB/Arsenic il y a fort longtemps.

[Vous devez être inscrit et connecté pour voir ce lien] :

Code:


' Rasters
' Swapped by KGB/Arsenic
SPOKE &HFFFF820A,254
DIM col%(300)
HIDEM
FOR i%=-15 TO 30
  couleur%=ABS(i%)
  col%(i%+15)=(SHL&(couleur%,3) AND &H8) OR (SHR(couleur%,1))
NEXT i%
OUT 4,18
VSETCOLOR 2,12,2,2
DEFTEXT 2,0,0,6
@centre(10,"R A S T E R S")
@centre(30,"OnlY STE MakEs It PoSSiblE !")
VSETCOLOR 3,10,0,12
DEFTEXT 3,0,0,6
@centre(170,"ThIS OlD StUff WaS SwaPPeD bY")
@centre(190,"- KGB/ARSENIC -")
DO
  VSYNC
  FOR c|=0 TO 31
    SETCOLOR 0,7,6,col%(c|/2)
  NEXT c|
  VSYNC
  FOR c|=1 TO 31
    SETCOLOR 0,7,6,col%(c|/2)
  NEXT c|
LOOP UNTIL LEN(INKEY$)
CLS
OUT 4,8
CLEAR
DATA 0,2,3,6,4,7,5,8,9,10,11,14,12,15,13
DATA 13,15,12,14,11,10,9,8,5,7,4,6,3,2,0
'
PROCEDURE centre(y%,a$)
  l%=LEN(a$)
  x%=160-(l%*4)
  TEXT x%,y%,a$
  CLR a$
RETURN