'===========================================================================
' Subject: RESIZING FONTS                    Date: 04-18-97 (19:24)       
' Author:  Matthew Pulley                    Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: GRAPHICS.ABC
'===========================================================================
'//** ROTATE.BAS
'//** Donated To The Public Domain
'//** Author - M@ Pulley
'//** Use At Your Own Risk!

SCREEN 13
DIM Word1(1056), Word2(2048), Word3(3040), Word4(4080)
DIM BackWord1(1056), BackWord2(2048), BackWord3(3040), BackWord4(4080)
DIM Block1(144)

LINE (0, 0)-(9, 16), 15, BF
GET (0, 0)-(9, 16), Block1
CLS

FOR GetPicture = 1 TO 4

'//** Scales different sizes of the word, "BoneHead", for GET

LOCATE 1, 1: PRINT "BoneHead"
 FOR X = 0 TO 63
  FOR Y = 0 TO 7
   IF POINT(X, Y) <> 0 THEN
    
    LINE ((X + 10) * GetPicture, (Y + 6) * 2)-((X + 11) * GetPicture, (Y + 5) * 2), POINT(X, Y), BF
    
    LINE ((-X + 72) * GetPicture, (Y + 14) * 2)-((-X + 73) * GetPicture, (Y + 13) * 2), POINT(X, Y), BF
   
   END IF
  NEXT
 NEXT

 IF GetPicture = 1 THEN
  GET (8, 9)-(74, 25), Word1
  GET (8, 26)-(74, 42), BackWord1     '66 LENGTH
 ELSEIF GetPicture = 2 THEN
  GET (18, 9)-(146, 25), Word2
  GET (18, 26)-(146, 42), BackWord2   '128 LENGTH
 ELSEIF GetPicture = 3 THEN
  GET (30, 9)-(220, 25), Word3
  GET (30, 26)-(220, 42), BackWord3   '190 LENGTH
 ELSEIF GetPicture = 4 THEN
  GET (38, 9)-(293, 25), Word4
  GET (38, 26)-(293, 42), BackWord4   '255 LENGTH
 END IF

 CLS
NEXT

PictureCount = 0

DO

''//** Spin "BoneHead" from the front

 PictureCount = PictureCount + 1
 IF PictureCount = 1 THEN PUT (158, 92), Block1
 IF PictureCount = 2 THEN PUT (127, 92), Word1
 IF PictureCount = 3 THEN PUT (96, 92), Word2
 IF PictureCount = 4 THEN PUT (65, 92), Word3
 IF PictureCount = 5 THEN PUT (33, 92), Word4
 IF PictureCount = 6 THEN PUT (65, 92), Word3
 IF PictureCount = 7 THEN PUT (96, 92), Word2
 IF PictureCount = 8 THEN PUT (127, 92), Word1
 IF PictureCount = 9 THEN PUT (158, 92), Block1

'//** Spin "BoneHead" from behind

 IF PictureCount = 10 THEN PUT (127, 92), BackWord1
 IF PictureCount = 11 THEN PUT (96, 92), BackWord2
 IF PictureCount = 12 THEN PUT (65, 92), BackWord3
 IF PictureCount = 13 THEN PUT (33, 92), BackWord4
 IF PictureCount = 14 THEN PUT (65, 92), BackWord3
 IF PictureCount = 15 THEN PUT (96, 92), BackWord2
 IF PictureCount = 16 THEN

 PUT (127, 92), BackWord1
 PictureCount = 0

END IF

FOR Delay = 1 TO 1000: NEXT

'** Help Needed Here! How can I get RID of this statement, which erases the
'** "BoneHead", but creates a flashing effect, and still have a smooth
'** transition between each picture switch?
'**      

LINE (33, 92)-(287, 108), 0, BF

LOOP WHILE INKEY$ <> CHR$(27)
END