home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / extensions / jd / procs / _screen_drehen_spiegeln.amos / _screen_drehen_spiegeln.amosSourceCode
AMOS Source Code  |  1994-02-02  |  884b  |  46 lines
  1. '
  2. ' Screen um 90 Grad drehen 
  3. '
  4. Screen Open 0,320,200,32,Lowres
  5. Load Iff "dh0:__pics/error-soft",0
  6. Wait 5
  7. Screen Open 1,320,200,32,Lowres
  8. Cls 0
  9. Screen Hide 1
  10. Screen 0
  11. Change Mouse 3
  12. For X=0 To Screen Width-1
  13.    For Y=0 To Screen Height-1
  14.       Screen Copy 0,X,Y,X+1,Y+1 To 1,319-Y,X
  15.       Plot X,Y,0
  16.    Next 
  17. Next 
  18. Screen Copy 1,0,0,Screen Width,Screen Height To 0,0,0
  19. Screen Close 1
  20. Change Mouse 1
  21. Wait Key 
  22. Screen Open 0,320,200,32,Lowres
  23. Flash Off : Curs Off : Hide 
  24. Locate 0,12 : Centre "Screen um 180 Grad drehen"
  25. Get Block 1,0,0,320,200
  26. Hrev Block 1
  27. Vrev Block 1
  28. Wait Key 
  29. Put Block 1,0,0
  30. Del Block 1
  31. Wait Key 
  32. Cls 
  33. Locate 0,12 : Centre "Screen horizontal spiegeln"
  34. Get Block 1,0,0,320,200
  35. Hrev Block 1
  36. Wait Key 
  37. Put Block 1,0,0
  38. Del Block 1
  39. Wait Key 
  40. Cls 
  41. Locate 0,12 : Centre "Screen vertikal spiegeln"
  42. Get Block 1,0,0,320,200
  43. Vrev Block 1
  44. Wait Key 
  45. Put Block 1,0,0
  46. Del Block 1