|
|
http://www.huffingtonpost.jp/2013/08/21/10_optical_illusions_that_will_blow_your_mind_n_3766354.html
http://www.kecl.ntt.co.jp/IllusionForum/index.html?sl=jastrow
CALL GINIT(600,600)
LET S=1
LET ST=40
FOR Y=0 TO 600 STEP ST
LET C=7
FOR X=XX TO 600 STEP ST
CALL BOXFULL(X,Y,X+ST,Y+ST,C)
LET C=7-C
NEXT X
LET XX=XX+20*S
IF XX=40 OR XX=0 THEN LET S=-S
NEXT Y
SET LINE WIDTH 3
FOR Y=0 TO 600 STEP ST
CALL LINE(0,Y,600,Y,1)
NEXT Y
END
EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET POINT STYLE 1
SET COLOR MODE "REGULAR"
SET COLOR MIX(0) 0,0,0
SET COLOR MIX(1) .5,.5,.5
SET COLOR MIX(2) 1,0,0
SET COLOR MIX(3) 1,0,1
SET COLOR MIX(4) 0,1,0
SET COLOR MIX(5) 0,1,1
SET COLOR MIX(6) 1,1,0
SET COLOR MIX(7) 1,1,1
CLEAR
END SUB
EXTERNAL SUB LINE(XS,YS,XE,YE,C)
SET COLOR C
PLOT LINES
PLOT LINES:XS,YS;XE,YE
END SUB
EXTERNAL SUB BOX(XS,YS,XE,YE,C)
CALL LINE(XS,YS,XE,YS,C)
CALL LINE(XE,YS,XE,YE,C)
CALL LINE(XE,YE,XS,YE,C)
CALL LINE(XS,YE,XS,YS,C)
END SUB
EXTERNAL SUB BOXFULL(X1,Y1,X2,Y2,C)
SET COLOR C
PLOT AREA:X1,Y1;X2,Y1;X2,Y2;X1,Y2;X1,Y1
END SUB
|
|