GlobalMemoryStatus

dll_on "kernel32.dll"
' some colors
data  0,  0,  0
data 255,  0,  0
data 255,  0,255
data  0,  0,255
data 255,255,255
data 255,255,  0
data  0,255,255
data 128,128,  0


label tmr_service,frm_resize,frm_paint,get_mem_status

' data type
dim dwLength%        : ' sizeof(MEMORYSTATUS)
dim dwMemoryLoad%    : ' percent of memory in use
dim dwTotalPhys%    : ' bytes of physical memory
dim dwAvailPhys%    : ' free physical memory bytes
dim dwTotalPageFile% : ' bytes of paging file
dim dwAvailPageFile% : ' free bytes of paging file
dim dwTotalVirtual%  : ' user bytes of address space
dim dwAvailVirtual%  : ' free user bytes

' objects
dim frmMain%:width frmMain%,800:height frmMain%,240
dim pic%:pic%=number_objects+1:picture pic%
dim tmr%:tmr%=number_objects+1:timer  tmr%

' vars
dim cWidth%,cHeight%,dWidth%,dHeight%,oWidth%,oHeight%
dim ret%,ptr%,type$,i%,scale,x%,y%,s%,m%

dim KB%:KB% = 1024
dim MB%:MB% = KB% * KB%

' arrays
dim r%(7),g%(7),b%(7)
dim n%(7),o%(7)

' read colors
for i%=0 to 7
  read r%(i%)
  read g%(i%)
  read b%(i%)
next i%
 
full_space pic%
2d_target_is pic%

' client size
cWidth%=width(pic%)-1          :cHeight%=height(pic%)-1
dWidth%=width(frmMain%)-cWidth%:dHeight%=height(frmMain%)-cHeight%

gosub get_mem_status
scale = cHeight% / (dwTotalPhys%+1000)
for i%=0 to 6
  o%(i%) = n%(i%)
next i%

timer_interval tmr%,100
on_timer      tmr%,tmr_service

' go in main loop
end


tmr_service:
  gosub get_mem_status
  cWidth% =width(frmMain%) -dWidth%
  cHeight%=height(frmMain%)-dHeight%
  if (cWidth%<>oWidth%) or (cHeight%<>oHeight%)
    oWidth% =cWidth%
    oHeight%=cHeight%
    gosub frm_resize
  end_if
  gosub frm_paint
  return
 
frm_resize:
  width  pic%,cWidth%
  height pic%,cHeight%
  2d_pen_width 1
  2d_fill_color 0,128,0
  2d_rectangle 0,0,cWidth%,cHeight%
  2d_pen_color 0,255,0
  for i% = cHeight% to 0 step -10
    2d_line 0,i%,cWidth%,i%
  next i%
  for i%=0 to cWidth% step 10
    2d_line i%,0,i%,cHeight%
  next i%
  x%=0
  return
 
frm_paint:
  s%=x%+1
  scale = cHeight%/110
  2d_pen_width 3
 
  2d_pen_color r%(0),g%(0),b%(0)
  2d_line x%,cHeight%-o%(0)*scale,s%,cHeight%-n%(0)*scale
    o%(0)=n%(0)
   
  scale = cHeight%/m%
  for i%=1 to 6
    2d_pen_color r%(i%),g%(i%),b%(i%)
    2d_line x%,cHeight%-o%(i%)*scale,s%,cHeight%-n%(i%)*scale
    o%(i%)=n%(i%)
  next i%
  x%=s%
  if (x%>cWidth%) then gosub frm_resize
  return


get_mem_status:
  type$=string$(32," "):ptr%=adr(type$)
  ret%=DLL_CALL3("RtlMoveMemory",adr(ptr%),ptr%,4)
  ret%=DLL_CALL1("GlobalMemoryStatus",ptr%)
  ret%=DLL_CALL3("RtlMoveMemory",adr(dwLength%)      ,ptr%+ 0,4)
  ret%=DLL_CALL3("RtlMoveMemory",adr(dwMemoryLoad%)  ,ptr%+ 4,4)
  ret%=DLL_CALL3("RtlMoveMemory",adr(dwTotalPhys%)    ,ptr%+ 8,4)
  ret%=DLL_CALL3("RtlMoveMemory",adr(dwAvailPhys%)    ,ptr%+12,4)
  ret%=DLL_CALL3("RtlMoveMemory",adr(dwTotalPageFile%),ptr%+16,4)
  ret%=DLL_CALL3("RtlMoveMemory",adr(dwAvailPageFile%),ptr%+20,4)
  ret%=DLL_CALL3("RtlMoveMemory",adr(dwTotalVirtual%) ,ptr%+24,4)
  ret%=DLL_CALL3("RtlMoveMemory",adr(dwAvailVirtual%) ,ptr%+28,4)
  n%(0) = dwMemoryLoad%
  n%(1) = dwTotalPhys%    / MB%
  n%(2) = dwAvailPhys%    / MB%
  n%(3) = dwTotalPageFile% / MB%
  n%(4) = dwAvailPageFile% / MB%
  n%(5) = dwTotalVirtual%  / MB%
  n%(6) = dwAvailVirtual%  / MB%
  m%=0
  for i%=0 to 6
    if n%(i%)>m% then m%=n%(i%)
  next i%
  m%=m%+(m%/10)
  return
 
 

typedef struct _MEMORYSTATUS { // mst
    DWORD dwLength;        // sizeof(MEMORYSTATUS)
    DWORD dwMemoryLoad;    // percent of memory in use
    DWORD dwTotalPhys;    // bytes of physical memory
    DWORD dwAvailPhys;    // free physical memory bytes
    DWORD dwTotalPageFile; // bytes of paging file
    DWORD dwAvailPageFile; // free bytes of paging file
    DWORD dwTotalVirtual;  // user bytes of address space
    DWORD dwAvailVirtual;  // free user bytes
} MEMORYSTATUS, *LPMEMORYSTATUS;

extern "Windows-MS"

type Vector
  x as double
  y as double
end type

function Hypot(byref V as Vector) as double export
  return sqr(V.x * V.x + V.y * V.y)
end function   
   
end extern

extern "Windows-MS"

type Vector
  x as double
  y as double
end type

sub Hypot(byref result as double, byref V as Vector)
  result = sqr(V.x * V.x  V.y * V.y)
end sub 
 
end extern

extern "Windows-MS"

sub Hypot(byref result as double, byref x as double,byref y as double )
  result = sqr(x * x  y * y)
end sub 
 
end extern

extern "Windows-MS"

type Vector
  x as double
  y as double
end type

sub Hypot(byref result as double, byref V as Vector)
  result = sqr(V.x * V.x  V.y * V.y)
end sub 
 
end extern