home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / jdlib4_6.lha / Procs / _Screen_Convert.AMOS / _Screen_Convert.amosSourceCode
AMOS Source Code  |  2008-12-10  |  2KB  |  67 lines
  1. Load Iff "SYS:Bild",1 : Rem            Bild laden    
  2. Multi Wait : Rem                       mu�, um Bild anzeigen zu lassen
  3. Screen Open 2,640,512,16,Hires : Rem   Screen mit gew�nschter Aufl�sung 
  4. Flash Off : Curs Off : Rem             zur Sicherheit 
  5. Get Palette 1 : Rem                    Original-Palette ï¿½bernehmen 
  6. LOW_TO_HI[1,2] : Rem                   Bild-Konvertierung[Quell-,Ziel-Screen]   
  7. Wait Key : Edit : Rem                  Taste und Aus 
  8.  
  9. Rem                                    Konvertierung von Low-Res to Hi-Res:  
  10. Rem                                    1. Low-Res to Med-Res 
  11. Rem                                    2. Med-Res to Hi-Res  
  12. Rem                                    ist schneller als in einem Schritt! 
  13. Rem                                    Assembler-Routine ist nur unwesentlich
  14. Rem                                    schneller 
  15.  
  16. ' Low-Res to Med-Res 
  17. Procedure LOW_TO_HI[S,D]
  18.    For X=0 To 320
  19.       Screen Copy S,X,0,X+1,256 To D,2*X,0
  20.       Screen Copy S,X,0,X+1,256 To D,2*X+1,0
  21.    Next 
  22. End Proc
  23. ' Med-Res to Low-Res 
  24. Procedure HI_TO_LOW[S,D]
  25.    For X=0 To 640
  26.       Screen Copy S,2*X,0,2*X+1,256 To D,X,0
  27.    Next 
  28. End Proc
  29. ' Low-Res to Interlace 
  30. Procedure LOW_TO_LOW_INTER[S,D]
  31.    For Y=0 To 256
  32.       Screen Copy S,0,Y,320,Y+1 To D,0,2*Y
  33.       Screen Copy S,0,Y,320,Y+1 To D,0,2*Y+1
  34.    Next 
  35. End Proc
  36. ' Interlace to Low-Res 
  37. Procedure LOW_INTER_TO_LOW[S,D]
  38.    For Y=0 To 512
  39.       Screen Copy S,0,2*Y,320,2*Y+1 To D,0,Y
  40.    Next 
  41. End Proc
  42. ' Med-Res to Hi-Res
  43. Procedure HI_TO_HI_INTER[S,D]
  44.    For Y=0 To 256
  45.       Screen Copy S,0,Y,640,Y+1 To D,0,2*Y
  46.       Screen Copy S,0,Y,640,Y+1 To D,0,2*Y+1
  47.    Next 
  48. End Proc
  49. ' Hi-Res to Med-Res
  50. Procedure HI_INTER_TO_HI[S,D]
  51.    For Y=0 To 512
  52.       Screen Copy S,0,2*Y,640,2*Y+1 To D,0,Y
  53.    Next 
  54. End Proc
  55. ' Interlace to Hi-Res
  56. Procedure LOW_INTER_TO_HI_INTER[S,D]
  57.    For X=0 To 320
  58.       Screen Copy S,X,0,X+1,512 To D,2*X,0
  59.       Screen Copy S,X,0,X+1,512 To D,2*X+1,0
  60.    Next 
  61. End Proc
  62. ' Hi-Res to Interlace
  63. Procedure HI_INTER_TO_LOW_INTER[S,D]
  64.    For X=0 To 640
  65.       Screen Copy S,2*X,0,2*X+1,256 To D,X,0
  66.    Next 
  67. End Proc