Psychlops.manual/sample_cpp_file/2��/2.2.6_�Ȃ̕`��7.cpp

   1 #include <psychlops.h>\r
   2 using namespace Psychlops;\r
   3 \r
   4 Psychlops::Rectangle rect1;\r
   5 Psychlops::Color col1;\r
   6 double width=200;\r
   7 double height=100;\r
   8 double lambda=60;\r
   9 double lmean=0.5, contrast=1.0, theta=0;\r
  10 \r
  11 void psychlops_main() {\r
  12 \r
  13         Canvas sampleA(Canvas::fullscreen);\r
  14         rect1.set(width,1);\r
  15         for(int j=0;j<height;j++){\r
  16                 col1.set(lmean*((contrast*sin((2*PI*j/lambda)+theta))+1));\r
  17                 rect1.centering().shift(0,(double)-1/2*height+j);\r
  18                 rect1.draw(col1);\r
  19         }\r
  20         sampleA.flip();\r
  21         while(!Input::get(Keyboard::spc));\r
  22 }