Cartoon

rem ============================================================================
rem                      Façon cartoon
rem                 Papydall le 27 / 12 / 2020
rem ============================================================================
dim data$,char$,i%,j%
picture 10 : full_space 10 : 2d_target_is 10
for j%  = 0 to 99
    read data$
    for i%  = 0 to 71
        char$ = mid$(data$,i%+1,1)
        if char$ = "1"
            2d_pen_color 200,100,20
        else
            2d_pen_color 255,255,255
        end_if
        2d_point 100+i%,100+j% : 2d_point 200+i%,100+j%
        2d_point 300+i%,100+j% : 2d_point 400+i%,100+j%
        2d_point 100+i%,250+j% : 2d_point 200+i%,250+j%
        2d_point 300+i%,250+j% : 2d_point 400+i%,250+j%
    next i%
    display : ' pour visualiser le tracé
next j%

rem ============================================================================
DATA "000000000000000000000001111110000000000000000000000000000000000000000000"
DATA "000000000000000000001110000001100000000000000000000000000111111111000000"
DATA "000000000000000000011000000000011000000000000000000000011000000000100000"
DATA "000000000000000000100000000000000100000000000000000000010000000000100000"
DATA "000000000000000001100000000000000010000000000000000000010000110000010000"
DATA "000000000000000001001111111000000010000000000000000000011111010000001000"
DATA "000000000000000001001000000000000001000000000000000000111000101000001000"
DATA "000000000000000001000000000000000001000000000000000000100000111010000100"
DATA "000000000000000011000000000000000000100000000000000001000000001010000100"
DATA "000000000000000010100111111111000000100000000000000001100000001011000100"
DATA "000000000000000010100000000000000000100000000000000000100000011001000010"
DATA "000000000000000111010000010000000000100000000000000000100000111100000010"
DATA "000000000000001001111100001111000000100000000000000000100001100110000010"
DATA "000000000000000100000110000001111000100000000000000000011111100011000010"
DATA "000000000000000100000011110000000000100000000000000000000001000001110001"
DATA "000000000000000010000000011000000000100000000000000000000001000000010011"
DATA "000000000000000001000000001100001110100000000000000000000011100011001100"
DATA "000000000000000001000000000110111000100000000000000000000100000000100100"
DATA "000000000000000001100000111111100000100000000000000000001100000000010100"
DATA "000000000000000010011111000001001100100000000000000000011100000000010010"
DATA "000000000000000100011110000001011001000000000000000000100100000000010010"
DATA "000000000000000100000000000001000010000000000000000001000010000000010010"
DATA "000000000000001000000000000001001110000000000000000001000010000000010010"
DATA "000000000000001000000000000001110001000000000000000010000010000000010010"
DATA "000000000000001000000000000000000001000000000000000010000100000000100010"
DATA "000000000000010000000000000000000001000000000000000011000100000000100100"
DATA "000000000000010000000000000010000011000000000000000010110100000000100100"
DATA "000000000000010000000000000110000011000000000000000010000100000000100100"
DATA "000000000000110000000000000000000011000000000000000010000100000000101000"
DATA "000000000001110000010000000000000011000000000000000010000100000001001000"
DATA "000000000010010000010000000000000011000000000000000010000100000001001000"
DATA "000000001100010000010001111100000011000000000000000010001111000001110000"
DATA "000000010000011000010000000000000011000000000000000010010001100011100000"
DATA "000000100000011000011000000000000011000000000000000011100000000011100000"
DATA "000001000000011100001000000000010011000000000000000001000000000111000000"
DATA "000001001000010110011000000000010010000000000000000010000000001101000000"
DATA "000010001110010011110000000000011010000000000000000100000000110010000000"
DATA "000010011101110000010000000000001110000000000000000100000001000010000000"
DATA "000010010010010000010000000000001100000000000000001000000010000010000000"
DATA "000001000100010000010000000000001000000000000000001000000100000010000000"
DATA "000000111000010000010000000000001000000000000000001100001111111110000000"
DATA "000000000000011000110000000000011000000000000000010110011111111110000000"
DATA "000000000000001000100000000000010000000000000000111011111111111111000000"
DATA "000000000000001000100000000000110000000000000001001111111111111111100000"
DATA "000000000000000100100000000000111000000000000010000111111111111111100000"
DATA "000000000000001100100000000000111000000000001100000101111111111111100000"
DATA "000000000000001110100000000000111000000000110000001001100000000111110000"
DATA "000000000000001111100000000001111000000001000000001001000000000001110000"
DATA "000000000000001111100000000001111000000001000000010001000000000001110000"
DATA "000000000000001111100000000001111000000001000000010001000000000001110000"
DATA "000000000000001111100000000011111000000001100011100001000000000001100000"
DATA "000000000000001111100000000011111000000000011100000010000000000001100000"
DATA "000000000000001111111000000111111000000000000000000010000000000001000000"
DATA "000000000000001111001000000111111000000000000000000010000000000001000000"
DATA "000000000000000100000000000111111000000000000000000110000000000001000000"
DATA "000000000000001000000000001111110000000000000000000111000000000001000000"
DATA "000000000000001000000000001111110000000000000000000100111000000001000000"
DATA "000000000000010000000000011111110000000000000000000100000110000010000000"
DATA "000000000000010000000000110000110000000000000000000100000001100010000000"
DATA "000000000000100000000001000000100000000000000000000111100000011100000000"
DATA "000000000001000000000010000001000000000000000000000100011000000100000000"
DATA "000000000010000000000100000001000000000000000000000100000111000100000000"
DATA "000000000110000000011000000011000000000000000000000100000000111100000000"
DATA "000111111110000001100000000011000000000000000000000100000000000100000000"
DATA "001000001111000010000000000111000000000000000000000100000000000100000000"
DATA "010000001111101100000000000111000000000000000000000100000000000100000000"
DATA "010000000111111000000000000110000000000000000000000010000000000100000000"
DATA "010000000011110100000000001110000000000000000000000010000000000100000000"
DATA "010000000001010100000000001110000000000000000000000010000000000010000000"
DATA "010000000110010010000000001100000000000000000000000001000000000010000000"
DATA "001100001000001001100000011000000000000000000000000001000000000010000000"
DATA "000011100000001000011111100100000000000000000000000001000000000001000000"
DATA "000000000000000100000000000100000000000000000000000000100000000001000000"
DATA "000000000000000100000000000100000000000000000000000000100000000001000000"
DATA "000000000000001100000000000110000000000000000000000000100000000001000000"
DATA "000000000111111110000000000110000000000000000000000000100000000001000000"
DATA "000000001111000010000000000110000000000000000000000000100000000001000000"
DATA "000000001100000010000000000110000000000000000000000000100000000001000000"
DATA "000000001111100010000000000110000000000000000000000000111111111111000000"
DATA "000000000111110010000000000110000000000000000000000000110001111101000000"
DATA "000000000001111111000000000110000000000000000000000000010000011001000000"
DATA "000000000000000001110000011110000000000000000000000000010000011001000000"
DATA "000000000000000001011111111110000000000000000000000000010000110001000000"
DATA "000000000000000001000111100010000000000000000000000000010000110001000000"
DATA "000000000000000001110000000110000000000000000000000000010000110001000000"
DATA "000000000000000001111111111110000000000000000000000000010000110010000000"
DATA "000000000000000001011111111110000000000000000000000000001000110010000000"
DATA "000000000000000001000001000100000000000000000000000000010000110010000000"
DATA "000000000000000001000001110100000000000000000000000000010000110010000000"
DATA "000000000000000001100000010100000000000000000000000000110000100010000000"
DATA "000000000000000111100000010100000000000000000000000001000000100110000000"
DATA "000000000001111101100000110100000000000000000000000010010001100100000000"
DATA "000000011111000001100001100100000000000000000000000100010001100110000000"
DATA "000000110110000001000001100100000000000000000000001100001110011011000000"
DATA "000000110110000000000001100100000000000000000111111000000011110001000000"
DATA "000000110011000000000011001100000000000000001000011000000000000001000000"
DATA "000000111011000000000000111000000000000000011111111100000000000011000000"
DATA "000000001111111111111111100000000000000000011110000000000000000111000000"
DATA "000000000011111000111111000000000000000000000111111111111111111110000000"
DATA "000000000000001111100000000000000000000000000000000000000000000000000000"
rem ============================================================================

rem ============================================================================
rem                      Façon cartoon II
rem                 Papydall le 28 / 12 / 2020
rem ============================================================================
dim data$,char$,i%,j% ,n%
dim r,v,b
picture 10 : full_space 10 : 2d_target_is 10
for j%  = 0 to 67
    read data$
    for i%  = 0 to 36
        char$ = mid$(data$,i%+1,1)
        n% = val(char$)
        select n%
            case 0 : r = 255 : v = 255 : b = 255
            case 1 : r = 237 : v = 028 : b = 036
            case 2 : r = 255 : v = 174 : b = 201
            case 3 : r = 163 : v = 073 : b = 164
            case 4 : r = 000 : v = 162 : b = 232
            case 5 : r = 112 : v = 146 : b = 190
            case 6 : r = 063 : v = 072 : b = 204
            case 7 : r = 136 : v = 000 : b = 021
            case 8 : r = 094 : v = 086 : b = 065
            case 9 : r = 255 : v = 127 : b = 039
        end_select
        2d_pen_color r,v,b
        2d_point 100+i%,100+j% : 2d_point 200+i%,100+j%
        2d_point 300+i%,100+j% : 2d_point 400+i%,100+j%
        2d_point 100+i%,250+j% : 2d_point 200+i%,250+j%
        2d_point 300+i%,250+j% : 2d_point 400+i%,250+j%
    next i%
    display : ' pour visualiser le tracé
next j%
rem ============================================================================
DATA "0000000000000000001111100000000000000"
DATA "0000000000000000011111110000000000000"
DATA "0000000000000000111111110000000000000"
DATA "0000000000000000111111220000000000000"
DATA "0000000000000000111122220000000000000"
DATA "0000000000000000111122220000000000000"
DATA "0000000000000000111122220000000000000"
DATA "0000000000000000022222200000000000000"
DATA "0000000000000000022222200000000000000"
DATA "0000000000000000333222000000000000000"
DATA "0000000000000003333330000000000000000"
DATA "0000000000000033333443000000000000000"
DATA "0000000000000033334444000000000000000"
DATA "0000000000000033344444000000000000000"
DATA "0000000000000333344444400000000000000"
DATA "0000000000000333344444400000000000000"
DATA "0000000000000333344444440000000000000"
DATA "0000000000005333344444444000000000000"
DATA "0000000000005333334444444400000000000"
DATA "0000000000005333333444444440000000000"
DATA "0000000000005333333444444444000000000"
DATA "0000000000005333333344444444400000000"
DATA "0000000000005333333344444444440000000"
DATA "0000000000005333333334444444444400000"
DATA "0000000000005333333333444444444440000"
DATA "0000000000055533333333334444444444000"
DATA "0000000000055533333333330004444444400"
DATA "0000000000055533333333330000044444420"
DATA "0000000000055533333333330000000442222"
DATA "0000000000055533333333330000000000222"
DATA "0000000000555533333333330000000000222"
DATA "0000000000555033333333330000000000000"
DATA "0000000000555033333333330000000000000"
DATA "0000000000222011111111110000000000000"
DATA "0000000002222011111111110000000000000"
DATA "0000000002220111111111110000000000000"
DATA "0000000000000111111111110000000000000"
DATA "0000000000000111111111110000000000000"
DATA "0000000000000111111111110000000000000"
DATA "0000000000001111111111166000000000000"
DATA "0000000000001111111111666000000000000"
DATA "0000000000001111111116666600000000000"
DATA "0000000000011111111116666600000000000"
DATA "0000000000011111111166666660000000000"
DATA "0000000000011111111666666660000000000"
DATA "0000000000111111111666666660000000000"
DATA "0000000000111111110666666666000000000"
DATA "0000000001111111100066666666000000000"
DATA "0000000001111111000006666666000000000"
DATA "0000000011111110000000666666600000000"
DATA "0000000111111100000000066666600000000"
DATA "0000000111111000000000066666600000000"
DATA "0000001111110000000000006666600000000"
DATA "0000011111110000000000006666660000000"
DATA "0000011111100000000000000666660000000"
DATA "0000111111000000000000000666660000000"
DATA "0000111110000000000000000066666000000"
DATA "0001111110000000000000000066666000000"
DATA "0001111100000000000000000066666600000"
DATA "0011111000000000000000000066666600000"
DATA "0011111000000000000000000006666600000"
DATA "0111111000000000000000000006666600000"
DATA "0771110000000000000000000000666899999"
DATA "7777770000000000000000000000669999999"
DATA "7777770000000000000000000000099999990"
DATA "7777777000000000000000000000099999000"
DATA "0777777700000000000000000000099900000"
DATA "0000777700000000000000000000000000000"
rem ============================================================================