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

   1 #include <psychlops.h>\r
   2 using namespace Psychlops;\r
   3 \r
   4 Psychlops::Rectangle rect1;\r
   5 double 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(1,height);\r
  15         for(int i=0;i<width;i++){\r
  16                 col1=(lmean*contrast*sin((2*PI*i/lambda)+theta));\r
  17                 if(col1>0) col1=lmean+contrast*lmean;\r
  18                         else   col1=lmean-contrast*lmean;\r
  19                 rect1.centering().shift((double)-1/2*width+i,0);\r
  20                 rect1.draw(col1);\r
  21         }\r
  22         sampleA.flip();\r
  23         while(!Input::get(Keyboard::spc));\r
  24 }