SHARE
TWEET

Untitled

a guest Jun 7th, 2011 101 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. filedialog "Select image...", "*.bmp", file$
  2. open file$ for input as #file
  3. data$ = input$(#file, lof(#file))
  4. close #file
  5. header$ = right$(data$, 54)
  6. data$ = right$(data$, len(data$) - 54)
  7. length = len(data$)
  8. width = 600
  9. height = 400
  10. y = height
  11. x = 0
  12.  
  13. WindowWidth = width + 50
  14. WindowHeight = height + 50
  15. graphicbox #main.graphic, 0, 0, width, height - 1
  16. open "Image rapist" for window_nf as #main
  17. print #main, "trapclose [close]"
  18. print #main.graphic, "down"
  19. for i = 1 to length
  20.     pix = asc(left$(data$, 1))
  21.     data$ = right$(data$, len(data$) - 1)
  22.     print #main.graphic, "color ";255-pix;" ";255-pix;" ";pix
  23.     print #main.graphic, "set ";x;" ";y - 1
  24.     print #main.graphic, "set ";x;" ";y - 2
  25.     print #main.graphic, "set ";x;" ";y - 3
  26.     if x = width then
  27.         x = 0
  28.         y = y - 3
  29.         scan
  30.     else
  31.         x = x + 1
  32.     end if
  33.     if y < 0 then [end]
  34. next
  35.  
  36. [end]
  37. wait
  38.  
  39. [close]
  40. close #main
  41. end
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top