home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d634 / apig.lha / APIG / apig33.lzh / graphicsdb.rexx < prev    next >
OS/2 REXX Batch file  |  1992-02-20  |  3KB  |  101 lines
  1. /*  Reading graphics display database  */
  2.  
  3. call addlib('apig.library',0,-30,0)
  4.  
  5. call set_apig_globals()
  6.  
  7.  
  8.  id = -1 
  9.  
  10.  handle = null()
  11.  buf    = allocmem(200,MEMF_CLEAR)
  12.  
  13.  say ""
  14.  
  15. /*  I have no idea what this all means */
  16.  
  17.  do i = 1 to 20
  18.  
  19.    id = NEXTDISPLAYINFO(id)
  20.    if id = -1 then leave
  21.  
  22.    if MODENOTAVAILABLE(id) > 0 then iterate 
  23.  
  24.  
  25.    /* NameInfo */
  26.  
  27.    b = GETDISPLAYINFODATA(handle,buf,56,DTAG_NAME,id)
  28.  
  29.    nif_Name = offset(buf,16)
  30.    nifName  = import(nif_Name)
  31.  
  32.    if nifname = null() then iterate
  33.    if nifname = '' then iterate
  34.  
  35.    say  nifName   " Dimension Info "
  36.  
  37.    /* Dimension Info */
  38.  
  39.    b = GETDISPLAYINFODATA(handle,buf,48,DTAG_DIMS,id)
  40.  
  41.    dim_MaxDepth        = getvalue(buf,16,2,'n')
  42.    dim_MinRasterWidth  = getvalue(buf,18,2,'n')
  43.    dim_MinRasterHeight = getvalue(buf,20,2,'n')
  44.    dim_MaxRasterWidth  = getvalue(buf,22,2,'n')
  45.    dim_MaxRasterHeight = getvalue(buf,24,2,'n')
  46.    dim_Nominal         = offset(buf,26)
  47.    dim_MaxOScan        = offset(buf,34)
  48.    dim_VideoOScan      = offset(buf,42)
  49.    dim_TxtOScan        = offset(buf,50)
  50.    dim_StdOScan        = offset(buf,58)
  51.  
  52.    say "      dim_MaxDepth        = " dim_MaxDepth      
  53.    say "      dim_MinRasterWidth  = " dim_MinRasterWidth
  54.    say "      dim_MinRasterHeight = " dim_MinRasterHeight
  55.    say "      dim_MaxRasterWidth  = " dim_MaxRasterWidth
  56.    say "      dim_MaxRasterHeight = " dim_MaxRasterHeight
  57.  
  58.     /* DisplayInfo */
  59.  
  60.    b = GETDISPLAYINFODATA(handle,buf,size,DTAG_DISP,id)
  61.  
  62.    dis_NotAvailable     = getvalue(buf,16,2,'n')
  63.    dis_PropertyFlags    = getvalue(buf,18,4,'n')
  64.    dis_Resolution       = offset(buf,22)
  65.    dis_PixelSpeed       = getvalue(buf,26,2,'n')
  66.    dis_NumStdSprites    = getvalue(buf,28,2,'n')
  67.    dis_PaletteRange     = getvalue(buf,30,2,'n')
  68.    dis_SpriteResolution = getvalue(buf,32,2,'n')
  69.  
  70.    say "      dis_NotAvailable     = " dis_NotAvailable    
  71.    say "      dis_PropertyFlags    = " dis_PropertyFlags    
  72.    say "      dis_PixelSpeed       = " dis_PixelSpeed      
  73.    say "      dis_NumStdSprites    = " dis_NumStdSprites   
  74.    say "      dis_PaletteRange     = " dis_PaletteRange    
  75.    say "      dis_SpriteResolution = " dis_SpriteResolution
  76.  
  77.     /* MonitorInfo */
  78.  
  79.    b = GETDISPLAYINFODATA(handle,buf,size,DTAG_MNTR,id)
  80.  
  81.    mtr_Mspc              = getvalue(buf,16,4,'p')
  82.    mtr_ViewPosition      = offset(buf,20)
  83.    mtr_ViewResolution    = offset(buf,24)
  84.    mtr_ViewPositionRange = offset(buf,28)
  85.    mtr_TotalRows         = getvalue(buf,36,2,'n')
  86.    mtr_TotalColorClocks  = getvalue(buf,38,2,'n')
  87.    mtr_MinRow            = getvalue(buf,40,2,'n')
  88.    mtr_Compatibility     = getvalue(buf,42,2,'n')
  89.  
  90.    say "      mtr_TotalRows         = " mtr_TotalRows        
  91.    say "      mtr_TotalColorClocks  = " mtr_TotalColorClocks 
  92.    say "      mtr_MinRow            = " mtr_MinRow           
  93.    say "      mtr_Compatibility     = " mtr_Compatibility    
  94.    say ""
  95.  
  96.  end
  97.  
  98.  call freemem(buf,200)
  99.  
  100. exit
  101.