win32gl/package/trunk/CBAlpha/Program Files/Codeblocks/share/CodeBlocks/templates/wizard/PsychlopsGL/files/main.cpp

   1 #include <psychlops.h>\r
   2 using namespace Psychlops;      // Initially developed with Psychlops Win32 1.5.3 / 20110311\r
   3 \r
   4 \r
   5 \r
   6 void RectLuminance() {\r
   7         double rect_size = 100;\r
   8         double rect_lum  = 0.5;\r
   9         double bg_lum    = 0.2;\r
  10 \r
  11         Psychlops::Rectangle rect(rect_size,rect_size);\r
  12         rect.centering();\r
  13 \r
  14         Range rng;\r
  15         Independent << rect_size | "Rect Size"      |   1< rng< 500 | 10.0 | 2.0 ;\r
  16         Independent << rect_lum  | "Rect Luminance" | 0.0<=rng<=1.0 |  0.1 | 0.05;\r
  17         Independent << bg_lum    | "BG Luminance"   | 0.0<=rng<=1.0 |  0.1 | 0.05;\r
  18 \r
  19 \r
  20         while(!Input::get(Keyboard::esc)) {\r
  21                 Display::clear(Color(bg_lum));\r
  22                 rect.resize(rect_size,rect_size);\r
  23                 rect.draw(rect_lum);\r
  24                 Display::flip();\r
  25         }\r
  26 \r
  27 }\r
  28 \r
  29 \r
  30 void psychlops_main() {\r
  31 \r
  32         Canvas display(Canvas::fullscreen);\r
  33 \r
  34         Procedure p;\r
  35         p.setDesign(Procedure::DEMO);\r
  36         p.setProcedure(RectLuminance);\r
  37         p.run();\r
  38 \r
  39 }\r
  40 \r