Gray Test.c 581 B

1234567891011121314151617181920212223242526
  1. // Grayscale test program for TIGCC
  2. #define USE_TI89
  3. #define USE_TI92PLUS
  4. #define USE_V200
  5. #define MIN_AMS 100
  6. #define SAVE_SCREEN
  7. #include <tigcclib.h>
  8. void _main(void)
  9. {
  10. if (!GrayOn ())
  11. return;
  12. GraySetAMSPlane (LIGHT_PLANE);
  13. ClrScr ();
  14. ScrRectFill (&(SCR_RECT){{20,20,40,40}}, ScrRect, A_NORMAL);
  15. ScrRectFill (&(SCR_RECT){{80,20,100,40}}, ScrRect, A_NORMAL);
  16. GraySetAMSPlane (DARK_PLANE);
  17. ClrScr ();
  18. ScrRectFill (&(SCR_RECT){{50,20,70,40}}, ScrRect, A_NORMAL);
  19. ScrRectFill (&(SCR_RECT){{80,20,100,40}}, ScrRect, A_NORMAL);
  20. ngetchx ();
  21. GrayOff ();
  22. }