home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / system / add36k / add36k.c < prev    next >
C/C++ Source or Header  |  1995-02-27  |  847b  |  50 lines

  1. /*
  2.     Add36k
  3.     
  4.     (c) 1991 Alexander Rawass
  5.  
  6.     Alexander Rawass
  7.     Wilhelminenstr. 44
  8.     6700 Ludwigshafen 15
  9.     Germany
  10.     0621/57 75 98
  11.     
  12.     E-Mail: rawass@sun.rhrk.uni-kl.de
  13. */
  14.  
  15. #include <exec/types.h>
  16. #include <exec/memory.h>
  17. #include <intuition/intuitionbase.h>
  18.  
  19. struct Library    *IntuitionBase;
  20. struct Screen    *scr;
  21. struct BitMap    *bm;
  22. struct Window    *win;
  23. ULONG        origheight;
  24.  
  25. VOID _main()
  26. {
  27. long pl0,pl1,plb,ple;
  28.  
  29.     IntuitionBase=OpenLibrary("intuition.library",0);
  30.     scr=IntuitionBase->ActiveScreen;
  31.     win=IntuitionBase->ActiveWindow;
  32.     origheight=scr->Height;
  33.     SizeWindow(win,0,-150);
  34.     Delay(1*50);
  35.     scr->Height=50;
  36.     scr->Depth=1;
  37.     bm=&scr->BitMap;
  38.     bm->Rows=50;
  39.     bm->Depth=1;
  40.     pl0=bm->Planes[0];
  41.     pl1=bm->Planes[1];
  42.     bm->Planes[1]=NULL;
  43.     plb=pl0+(640*50/8);
  44.     ple=pl1+(640*origheight/8);
  45.     RemakeDisplay();
  46.     FreeMem(plb,ple-plb);
  47.     CloseLibrary(IntuitionBase);
  48. }
  49.  
  50.