|
TUNEL
May 27, 2021 15:19:41 GMT -6
Post by rosy on May 27, 2021 15:19:41 GMT -6
RC BASIC:
WindowOpen(0, "TUNEL", WINDOWPOS_CENTERED, WINDOWPOS_CENTERED, 640, 400, 0, 0) CanvasOpen(0, 640, 400, 0, 0, 640, 400, 0) SETCOLOR(-255) FOR T=1 TO 10 FOR R=1 TO 640 STEP 1 S=640/R CLEARCANVAS FOR I=0 TO 640 STEP S LINE (320,200,I,0) LINE (320,200,I,400) NEXT FOR I=0 TO 400 STEP S LINE (320,200,0,I) LINE (320,200,640,I) NEXT UPDATE 'WAIT (10) NEXT NEXT PRINT TIMER BASIC C:
#include "BASIC.h" #include "BasicSDL.h"
int S;
MAIN SDLOpenWin(640,400,0) FOR(T,1,10) FOR (R,1,640) S=640/R; Clear(Canvas0) Color(Canvas0,255,255,0,255) for(int I=0;I<=640;I+=S){ Line (Canvas0,320,200,I,0) Line (Canvas0,320,200,I,400) NEXT for(int I=0;I<=400;I+=S){ Line (Canvas0,320,200,0,I) Line (Canvas0,320,200,640,I) NEXT Update(Canvas0) NEXT NEXT PRINT SDLTime NL //Pause(1000) SDLQuit ENDMAIN
|
|
|
TUNEL
May 27, 2021 15:55:32 GMT -6
Post by johnno56 on May 27, 2021 15:55:32 GMT -6
Cool... Nice effect.
Never come across using "-255" as yellow before... Good tip. Thanks for sharing...
J
|
|
|
TUNEL
Feb 16, 2022 17:41:49 GMT -6
Post by rosy on Feb 16, 2022 17:41:49 GMT -6
For comparison, I added versions in my BASIC C. For For...10 time = 5 s, in RCBasic 8 s.
|
|