Janilabo

Untitled

Aug 29th, 2013
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.51 KB | None | 0 0
  1. const
  2.   ZOOM = 2;
  3.   ANTIALIASING = True;
  4.  
  5. var
  6.   bmp: TSCARBitmap;
  7.  
  8. begin
  9.   bmp := TSCARBitmap.Create('deNrtWu1tazEIvZv0b7fIKJmgM' +
  10.     '2SUjJJRMkqLhGRZgPHh41ZNFf94qvSMwcd8HLj5Oj6P7/d6rz+zPrCVEBFSoRO' +
  11.     '0yPP5vFwux3HQv/S3f6nH43G73Xh/C0pb7Qe2EiLOFRKCfAte9Ld50/v9Pm/zb' +
  12.     'QitrXZ+O62d1/V6NcFnm00R8iX6r63D8Am0eZYlM8gYBHnt3tGnDC38TEJM2+C' +
  13.     'jYSK5BVC84Pxk4EVW/kCq9S3aYVxpHzboN91iot04BONsoS9IuY7T5ipAxi3Og' +
  14.     'BHUPjYLG8jfcHcCRcxb+654UgCetPRT+g5s5iVERKeFVUp8RRjNDLn1YZ0h8bh' +
  15.     'mdQ41elEYdZBSpEctR0RmQXz/q8CogxRxFeHDoHcNN45WpZeAUReabeLSPozkO' +
  16.     'q7yjcXlT8GYKDRaZAvOEIkWF+btaRjTDSyovcIGtQNv3YBFQsVl7vXSMKYbWFC' +
  17.     '7X3z9KmD2Yv6rsQhSXOicUG+y3ak7WcJn1cBGtfvGOG4zEiNOIIeI7+SrTr8I4' +
  18.     '5xSnC4+p31LIFfqBvfThWaFEosgKZdPaPdGJBZy2rfFd1U1ZpOEQ67sjLaNoU7' +
  19.     'Z3zkwxEtbsU/XGW8bnqLWmKlg5KWTaIyzk6zlcpyenyQsRyYVIjz1w+lHz9HFO' +
  20.     'oz84sjwvBfGLYEcG2Z4RWYWcKXpYhFGDoE01S9Sep9Amt2cP6lI0MU6jGxSpXM' +
  21.     'vwqgxmR90fOXxlc6+itPFLhhbOvd6g7kikGZEm2Rp4AzSxV4YZ8vTSNZh1KyJc' +
  22.     'RsFCCFLMwHLTRfTMM6FMjRS7oVRY8LGcHj6ZFIQyMp0sZIb5wyfqzItUyNNILf' +
  23.     'Df00gizmqAqP4WndqZo4OcPzw1GSJL/ILYWXuFDEV+u7WBaPGBHlWs7WP2t9Iv' +
  24.     'wXrCBHXrlGwiYlvSf3HAO3N4FwuQ4W7C0Yd18igOPG59lQYRZ7HkeyCUWOCJGp' +
  25.     'BltIR3QijuAj4so3fd0RcI+8o4rqxj3COwqdSOJJdqUlggofnCKJKRCODI5/5+' +
  26.     'znKH/vg2qMugYfniOtKROtOSl/c/KXfim+b3IN2mvgg2nPXwQ+p9NE8YvU/5HG' +
  27.     'lA7eBx44zQ8dGG8NoeCLff0NDBp39Qj/9bTyz0hhGw5N8uPdXOu/1X9cPxuLfF' +
  28.     'A==');
  29.   bmp.ResizeEx((bmp.Width * ZOOM), (bmp.Height * ZOOM), ANTIALIASING);
  30.   DebugBitmap(bmp);
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment