SineCube

rem ============================================================================
rem                        SineCube
rem ============================================================================

dim blox(40,40,40)
dim l,b$,c$,x,y,z,c, mm,bx,by
caption 0,"Veuillez patienter ... Tracé en cours ... <ESC> pour sortir ..."
picture 10 : width 10,420 : height 10,420 : 2d_target_is 10 : color 10,0,0,0
top 10,(height_client(0)-height_client(10))/2
left 10,(width_client(0)-width_client(10))/2
' ------------------------------------------------------------------------------
l = 8
B$ = B$ + "00000000..."
B$ = B$ + "llnnnnnnl.."
B$ = B$ + "l8lnnnnnnl."
B$ = B$ + "l88llllllll"
B$ = B$ + "l88l000000l"
B$ = B$ + "l88l000000l"
B$ = B$ + "l88l000000l"
B$ = B$ + "l88l000000l"
B$ = B$ + ".l8l000000l"
B$ = B$ + "..ll000000l"
B$ = B$ + "...llllllll"
blox(2, 3, 32) = 1
FOR l = 8 * 32 TO 1 STEP -8
   FOR y = 4 TO 4 * 32 STEP 4
       FOR x = 8 * 32 TO 1 STEP -8
           mm = SIN(x * y * l * pi)
           if mm < 0 then mm = -1 : else : if mm > 0 then mm = 1
           IF blox(x / 8, y / 4, l /  = mm + 1
              FOR by = 1 TO 11
                  FOR bx = 1 TO 11
                      c$ = right$(left$(B$,(by - 1) * 11 + bx),1)
                      IF c$ <> "."
 z = 11
 c = mod(asc(c$), 16) + mod(y, 2)
 select c
     case 0 : 2d_pen_color 0, 0, 0
     case 8 : 2d_pen_color 128, 128, 128
     case 12: 2d_pen_color 128, 128, 100
     case 14: 2d_pen_color 255, 255, 200
 end_select
 2d_point x + bx - 1 + y - 3, by - 1 + y + l + 4
                      END_IF
                   NEXT bx
                   display : if scancode = 27 then terminate
               NEXT by
           END_IF
       NEXT x
   NEXT y
NEXT l
caption 0,"Terminé"
rem ============================================================================