2_10_color_shapes_and_functions

labs/2_graphics/2_10_color_shapes_and_functions/01_clean.bash

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -Eeuo pipefail  # See the meaning in scripts/README.md
+
+script=$(basename "$0")
+source_script=${script/\.bash/.source_bash}
+dir_source_script=../scripts/steps/$source_script
+
+for i in {1..5}
+do
+    [ -f $dir_source_script ] && break
+    dir_source_script=../$dir_source_script
+done
+
+if ! [ -f $dir_source_script ]; then
+    printf "$script: cannot find \"$source_script\"\n" 1>&2
+    exit 1
+fi
+
+dir_source_script=$(readlink -f $dir_source_script)
+. "$dir_source_script"

labs/2_graphics/2_10_color_shapes_and_functions/02_simulate_rtl.bash

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -Eeuo pipefail  # See the meaning in scripts/README.md
+
+script=$(basename "$0")
+source_script=${script/\.bash/.source_bash}
+dir_source_script=../scripts/steps/$source_script
+
+for i in {1..5}
+do
+    [ -f $dir_source_script ] && break
+    dir_source_script=../$dir_source_script
+done
+
+if ! [ -f $dir_source_script ]; then
+    printf "$script: cannot find \"$source_script\"\n" 1>&2
+    exit 1
+fi
+
+dir_source_script=$(readlink -f $dir_source_script)
+. "$dir_source_script"

labs/2_graphics/2_10_color_shapes_and_functions/03_synthesize_for_fpga.bash

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -Eeuo pipefail  # See the meaning in scripts/README.md
+
+script=$(basename "$0")
+source_script=${script/\.bash/.source_bash}
+dir_source_script=../scripts/steps/$source_script
+
+for i in {1..5}
+do
+    [ -f $dir_source_script ] && break
+    dir_source_script=../$dir_source_script
+done
+
+if ! [ -f $dir_source_script ]; then
+    printf "$script: cannot find \"$source_script\"\n" 1>&2
+    exit 1
+fi
+
+dir_source_script=$(readlink -f $dir_source_script)
+. "$dir_source_script"

labs/2_graphics/2_10_color_shapes_and_functions/04_configure_fpga.bash

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -Eeuo pipefail  # See the meaning in scripts/README.md
+
+script=$(basename "$0")
+source_script=${script/\.bash/.source_bash}
+dir_source_script=../scripts/steps/$source_script
+
+for i in {1..5}
+do
+    [ -f $dir_source_script ] && break
+    dir_source_script=../$dir_source_script
+done
+
+if ! [ -f $dir_source_script ]; then
+    printf "$script: cannot find \"$source_script\"\n" 1>&2
+    exit 1
+fi
+
+dir_source_script=$(readlink -f $dir_source_script)
+. "$dir_source_script"

labs/2_graphics/2_10_color_shapes_and_functions/05_run_gui_for_fpga_synthesis.bash

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -Eeuo pipefail  # See the meaning in scripts/README.md
+
+script=$(basename "$0")
+source_script=${script/\.bash/.source_bash}
+dir_source_script=../scripts/steps/$source_script
+
+for i in {1..5}
+do
+    [ -f $dir_source_script ] && break
+    dir_source_script=../$dir_source_script
+done
+
+if ! [ -f $dir_source_script ]; then
+    printf "$script: cannot find \"$source_script\"\n" 1>&2
+    exit 1
+fi
+
+dir_source_script=$(readlink -f $dir_source_script)
+. "$dir_source_script"

labs/2_graphics/2_10_color_shapes_and_functions/06_choose_another_fpga_board.bash

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -Eeuo pipefail  # See the meaning in scripts/README.md
+
+script=$(basename "$0")
+source_script=${script/\.bash/.source_bash}
+dir_source_script=../scripts/steps/$source_script
+
+for i in {1..5}
+do
+    [ -f $dir_source_script ] && break
+    dir_source_script=../$dir_source_script
+done
+
+if ! [ -f $dir_source_script ]; then
+    printf "$script: cannot find \"$source_script\"\n" 1>&2
+    exit 1
+fi
+
+dir_source_script=$(readlink -f $dir_source_script)
+. "$dir_source_script"

labs/2_graphics/2_10_color_shapes_and_functions/07_synthesize_for_asic.bash

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -Eeuo pipefail  # See the meaning in scripts/README.md
+
+script=$(basename "$0")
+source_script=${script/\.bash/.source_bash}
+dir_source_script=../scripts/steps/$source_script
+
+for i in {1..5}
+do
+    [ -f $dir_source_script ] && break
+    dir_source_script=../$dir_source_script
+done
+
+if ! [ -f $dir_source_script ]; then
+    printf "$script: cannot find \"$source_script\"\n" 1>&2
+    exit 1
+fi
+
+dir_source_script=$(readlink -f $dir_source_script)
+. "$dir_source_script"

labs/2_graphics/2_10_color_shapes_and_functions/08_visualize_asic_synthesis_results_1.bash

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -Eeuo pipefail  # See the meaning in scripts/README.md
+
+script=$(basename "$0")
+source_script=${script/\.bash/.source_bash}
+dir_source_script=../scripts/steps/$source_script
+
+for i in {1..5}
+do
+    [ -f $dir_source_script ] && break
+    dir_source_script=../$dir_source_script
+done
+
+if ! [ -f $dir_source_script ]; then
+    printf "$script: cannot find \"$source_script\"\n" 1>&2
+    exit 1
+fi
+
+dir_source_script=$(readlink -f $dir_source_script)
+. "$dir_source_script"

labs/2_graphics/2_10_color_shapes_and_functions/09_visualize_asic_synthesis_results_2.bash

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -Eeuo pipefail  # See the meaning in scripts/README.md
+
+script=$(basename "$0")
+source_script=${script/\.bash/.source_bash}
+dir_source_script=../scripts/steps/$source_script
+
+for i in {1..5}
+do
+    [ -f $dir_source_script ] && break
+    dir_source_script=../$dir_source_script
+done
+
+if ! [ -f $dir_source_script ]; then
+    printf "$script: cannot find \"$source_script\"\n" 1>&2
+    exit 1
+fi
+
+dir_source_script=$(readlink -f $dir_source_script)
+. "$dir_source_script"

labs/2_graphics/2_10_color_shapes_and_functions/lab_specific_board_config.svh

@@ -0,0 +1,19 @@
+`ifndef LAB_SPECIFIC_CONFIG_SVH
+`define LAB_SPECIFIC_CONFIG_SVH
+
+   `define INSTANTIATE_TM1638_BOARD_CONTROLLER_MODULE
+   `define FORCE_NO_VIRTUAL_TM1638_USING_GRAPHICS
+// `define USE_HCW132_VARIANT_OF_TM1638_BOARD_CONTROLLER_MODULE
+// `define SPLIT_TM1638_DIO_INOUT_SIGNAL
+
+   `define DUPLICATE_TM1638_SIGNALS_WITH_REGULAR
+// `define CONCAT_REGULAR_SIGNALS_AND_TM1638
+// `define CONCAT_TM1638_SIGNALS_AND_REGULAR
+
+   `define EMULATE_DYNAMIC_7SEG_ON_STATIC_WITHOUT_STICKY_FLOPS
+
+   `define INSTANTIATE_GRAPHICS_INTERFACE_MODULE
+   `define INSTANTIATE_MICROPHONE_INTERFACE_MODULE
+   `define INSTANTIATE_SOUND_OUTPUT_INTERFACE_MODULE
+
+`endif  // `ifndef LAB_SPECIFIC_CONFIG_SVH

labs/2_graphics/2_10_color_shapes_and_functions/lab_top.sv

@@ -0,0 +1,168 @@
+`include "config.svh"
+
+module lab_top
+# (
+    parameter  clk_mhz       = 50,
+               w_key         = 4,
+               w_sw          = 8,
+               w_led         = 8,
+               w_digit       = 8,
+               w_gpio        = 100,
+
+               screen_width  = 640,
+               screen_height = 480,
+
+               w_red         = 4,
+               w_green       = 4,
+               w_blue        = 4,
+
+               w_x           = $clog2 ( screen_width  ),
+               w_y           = $clog2 ( screen_height )
+)
+(
+    input                        clk,
+    input                        slow_clk,
+    input                        rst,
+
+    // Keys, switches, LEDs
+
+    input        [w_key   - 1:0] key,
+    input        [w_sw    - 1:0] sw,
+    output logic [w_led   - 1:0] led,
+
+    // A dynamic seven-segment display
+
+    output logic [          7:0] abcdefgh,
+    output logic [w_digit - 1:0] digit,
+
+    // Graphics
+
+    input        [w_x     - 1:0] x,
+    input        [w_y     - 1:0] y,
+
+    output logic [w_red   - 1:0] red,
+    output logic [w_green - 1:0] green,
+    output logic [w_blue  - 1:0] blue,
+
+    // Microphone, sound output and UART
+
+    input        [         23:0] mic,
+    output       [         15:0] sound,
+
+    input                        uart_rx,
+    output                       uart_tx,
+
+    // General-purpose Input/Output
+
+    inout        [w_gpio  - 1:0] gpio
+);
+
+    logic        [         15:0] color;
+    logic [(w_red + w_green + w_blue) - 1:0] rgb;
+
+    //------------------------------------------------------------------------
+
+    assign led        = '0;
+    assign abcdefgh   = '0;
+    assign digit      = '0;
+    assign sound      = '0;
+    assign uart_tx    = '1;
+
+    //------------------------------------------------------------------------
+
+    assign red   = rgb [((w_red + w_green + w_blue) - 1) -: w_red  ];
+    assign green = rgb [((        w_green + w_blue) - 1) -: w_green];
+    assign blue  = rgb [                              0  +: w_blue ];
+
+    always_comb
+    begin
+    casex (color)
+    16'b1???????????????: rgb = {{w_red {1'b1}}, {w_green {1'b0}}, {w_blue {1'b0}}};
+    16'b?1??????????????: rgb = {{w_red {1'b0}}, {w_green {1'b1}}, {w_blue {1'b0}}};
+    16'b??1?????????????: rgb = {{w_red {1'b0}}, {w_green {1'b0}}, {w_blue {1'b1}}};
+    16'b???1????????????: rgb = {{w_red {1'b1}}, {w_green {1'b0}}, {w_blue {1'b1}}};
+    16'b????1???????????: rgb = {{w_red {1'b1}}, {w_green {1'b1}}, {w_blue {1'b0}}};
+    16'b?????1??????????: rgb = {{w_red {1'b1}}, {w_green {1'b0}}, {w_blue {1'b1}}};
+    16'b??????1?????????: rgb = {{w_red {1'b0}}, {w_green {1'b1}}, {w_blue {1'b1}}};
+    16'b???????1????????: rgb = {{w_red {1'b1}}, {w_green {1'b0}}, {w_blue {1'b0}}};
+    16'b????????1???????: rgb = {{w_red {1'b0}}, {w_green {1'b1}}, {w_blue {1'b0}}};
+    16'b?????????1??????: rgb = {{w_red {1'b0}}, {w_green {1'b0}}, {w_blue {1'b1}}};
+    16'b??????????1?????: rgb = {{w_red {1'b1}}, {w_green {1'b0}}, {w_blue {1'b0}}};
+    16'b???????????1????: rgb = {{w_red {1'b0}}, {w_green {1'b1}}, {w_blue {1'b0}}};
+    16'b????????????1???: rgb = {{w_red {1'b0}}, {w_green {1'b0}}, {w_blue {1'b1}}};
+    16'b?????????????1??: rgb = {{w_red {1'b1}}, {w_green {1'b0}}, {w_blue {1'b1}}};
+    16'b??????????????1?: rgb = {{w_red {1'b1}}, {w_green {1'b0}}, {w_blue {1'b0}}};
+    16'b???????????????1: rgb = {{w_red {1'b1}}, {w_green {1'b0}}, {w_blue {1'b1}}};
+    default: rgb = {{w_red-1{1'b0}}, 1'b1, {w_green-1{1'b0}}, 1'b1, {w_blue-1{1'b0}}, 1'b1};
+    endcase
+    color [15] = paint (x, y,  30,  30,  50,  50, 0); // coordinates of the shapes
+    color [14] = paint (x, y, 100,  70,  50,  50, 4); // mx, my, rx, ry, shape
+    color [13] = paint (x, y, 330,  30,  80,  80, 2);
+    color [12] = paint (x, y, 330, 330,  40,  40, 4); //         my
+    color [11] = paint (x, y, 130, 130, 120, 120, 4); //         |
+    color [10] = paint (x, y, 230, 230,  50,  50, 0); //        _V_____________
+    color [09] = paint (x, y, 330, 330,  50,  50, 0); //  mx ->|       ^       |
+    color [08] = paint (x, y, 430, 230,  50,  50, 0); //       |       |       |
+    color [07] = paint (x, y, 100, 330, 370,  10, 0); //       |       ry      |
+    color [06] = paint (x, y, 630, 230,  50,  50, 3); //       |<- rx -+       |
+    color [05] = paint (x, y, 650,  30,  50,  50, 1); //       |               |
+    color [04] = paint (x, y, 430, 130,  70,  70, 4); //       | shape 0 square|
+    color [03] = paint (x, y, 530, 130,  50,  50, 1); //       |_______________|
+    color [02] = paint (x, y, 130,  30,  50,  50, 1);
+    color [01] = paint (x, y,  30, 230,  80,  80, 4); // shape 1 rhomb, 2 3^ eye 
+    color [00] = paint (x, y, 530, 330,  60,  60, 4); //     > 3 circle
+    end
+
+    //------------------------------------------------------------------------
+
+    // draw a shape when the pixel is inside the intersection of the planes
+
+function automatic logic [0:0] paint (input [9:0] x, y, mx, my, rx, ry, shape);
+
+    case (shape)
+      0: paint = ((t     (x, mx, rx))       &&           (t (y, my, ry)));      // square
+      1: paint = ((t     (x, mx, rx))       >= (ry -     (t (y, my, ry))) &&    // rhomb
+                 ((t     (x, mx, rx))       &&           (t (y, my, ry))));
+      2: paint = ((s ((t (x, mx, rx)), rx)) >= (ry -     (t (y, my, ry)))) &&
+                  (s ((t (x, mx, rx)), rx)) &&       (s ((t (y, my, ry)), ry)); // eye
+      3: paint =     ((t (x, mx, rx))       >= (ry - (s ((t (y, my, ry)), ry)))) &&
+                  (s ((t (x, mx, rx)), rx)) &&       (s ((t (y, my, ry)), ry)); // eye vert
+default: paint = ((s ((t (x, mx, rx)), rx)) >= (ry - (s ((t (y, my, ry)), ry)))) &&
+                  (s ((t (x, mx, rx)), rx)) &&       (s ((t (y, my, ry)), ry)); // circle
+    endcase
+
+endfunction // paint
+
+    //------------------------------------------------------------------------
+
+    // for triangle, two planes bent at an angle of 90 degrees
+
+function automatic logic [9:0] t (input [9:0] z, m, r);
+
+    if      ((z >= m)      && (z <  (m +  r)))
+        t =   z  - m;
+    else if ((z >= m +  r) && (z <= (m + (r << 1))))
+        t =   m  - z + (r << 1);
+    else
+        t =  '0;
+
+endfunction // triangle
+
+    //------------------------------------------------------------------------
+
+    // for sinus from triangle, the plane bent around the sine envelope
+
+function automatic logic [9:0] s (input [9:0] t, r);
+
+    if      (t < (r >> 1) - (r >> 4))            // < 0.4375  r
+        s =  t + (t >> 1) - (t >> 5);            //            +  1.46875 t
+    else if (t < (r >> 1) + (r >> 3))            // < 0.625   r
+        s =  t - (t >> 3) + (r >> 2);            //   0.25    r + 0.875   t
+    else if (t < (r >> 1) + (r >> 2) + (r >> 4)) // < 0.8125  r
+        s = (t >> 1) + (t >> 5) + (r >> 1) - (r >> 5);
+    else                                         //   0.46875 r + 0.53125 t
+        s = (t >> 3) + (t >> 4) + r - (r >> 2) - (r >> 5);
+                                                 //   0.71875 r + 0.1875  t
+endfunction // sinus
+
+endmodule