Janilabo

Untitled

Aug 29th, 2013
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.72 KB | None | 0 0
  1. const
  2.   ZOOM = 5;
  3.   ANTIALIASING = True;
  4.  
  5. var
  6.   bmp: TSCARBitmap;
  7.  
  8. begin
  9.   bmp := TSCARBitmap.Create('deNrtm9kRwyAMBWkpVaZsp4B4GBukp4' +
  10.     'N93+bSIgxCfMdnXAghhBBCU40xotq9lUedAnlYJpyFyTAbQPFjbWgxoChxmHyc' +
  11.     'x/H1hgpBv1CwDRTXsWxCf1u8NJT/qlx3EYZ7qq5QbsdovojZVviwtgZQBJ7otC' +
  12.     '1pBmUyNENLOhmnPZQQ7t7OUhGKZgXQbLD7QfFrRXkUbQBFs9sHitM6b3LcA4p5' +
  13.     '2c14YJQpCkHZieytRauAkmfaA0VwakgbOW8DJe2f6DQo4pMgUDThjpzXGQ2gyN' +
  14.     'oFisBNcjpL3cOj390xUDYt43HHBJQ80zWJs8znW1oogtQUvZ8+7ENOKBqDRE2M' +
  15.     'otfB3r0KdJaiiROCHNQFZzk8xUjTJf0msG4yXkj+/Ct7Ku9Ms0HJHFs4KsG7UM' +
  16.     'znkKcQI1prM7/3o6EqUBZ6u/MDCjdCxWdlPERFCCGEEEL7+gFFwFLq');
  17.   bmp.ResizeEx((bmp.Width * ZOOM), (bmp.Height * ZOOM), ANTIALIASING);
  18.   DebugBitmap(bmp);
  19. end.
Advertisement
Add Comment
Please, Sign In to add comment