codal_port/modlove: Add love module from micro:bit v1.

Taken from ahttps://github.com/bbcmicrobit/micropython commit
a92ca9b1f907c07a01116b0eb464ca4743a28bf1

Signed-off-by: Damien George <[email protected]>

Author: dpgeorge

src/codal_port/Makefile

@@ -76,6 +76,7 @@ SRC_C += \
 	microbit_uart.c \
 	modantigravity.c \
 	modaudio.c \
+	modlove.c \
 	modmachine.c \
 	modmicrobit.c \
 	modmusic.c \

src/codal_port/drv_image.h

@@ -97,6 +97,7 @@ void image_blit(microbit_image_obj_t *src, greyscale_t *dest, mp_int_t x, mp_int
 mp_obj_t microbit_string_facade(mp_obj_t string);
 
 microbit_image_obj_t *microbit_image_for_char(char c);
+microbit_image_obj_t *microbit_image_dim(microbit_image_obj_t *lhs, mp_float_t fval);
 
 // ref argument exists so that we can pull a string out of an object and not have it GC'ed while oterating over it
 mp_obj_t scrolling_string_image_iterable(const char* str, mp_uint_t len, mp_obj_t ref, bool monospace, bool repeat);

src/codal_port/microbit_image.c

@@ -448,7 +448,7 @@ microbit_image_obj_t *microbit_image_for_char(char c) {
     return (microbit_image_obj_t *)result;
 }
 
-STATIC microbit_image_obj_t *microbit_image_dim(microbit_image_obj_t *lhs, mp_float_t fval) {
+microbit_image_obj_t *microbit_image_dim(microbit_image_obj_t *lhs, mp_float_t fval) {
     if (fval < 0) {
         mp_raise_ValueError("brightness multiplier must not be negative");
     }

src/codal_port/modlove.c

@@ -0,0 +1,78 @@
+/*
+ * This file is part of the MicroPython project, http://micropython.org/
+ *
+ * The MIT License (MIT)
+ *
+ * Copyright (c) 2015 Damien P. George
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ * THE SOFTWARE.
+ */
+
+#include "py/runtime.h"
+#include "py/mphal.h"
+#include "modmicrobit.h"
+
+STATIC const mp_float_t bright_levels[7] = {
+    0.0, 1.0 / 9, 2.0 / 9, 4.0 / 9, 6.0 / 9, 7.0 / 9, 1.0,
+};
+
+STATIC void love(int interval_ms) {
+    microbit_image_obj_t *hearts[MP_ARRAY_SIZE(bright_levels)];
+    for (uint i = 0; i < MP_ARRAY_SIZE(bright_levels); i++) {
+         hearts[i] = microbit_image_dim(HEART_IMAGE, bright_levels[i]);
+    }
+
+    for (int iteration = 0; iteration < 8; iteration++) {
+        // pause between double beats of the heart
+        if (iteration && (iteration & 1) == 0) {
+            mp_hal_delay_ms(20 * interval_ms);
+        }
+        // pulse heart to max brightness
+        for(uint step = 0; step < MP_ARRAY_SIZE(bright_levels); ++step) {
+            microbit_display_show(hearts[step]);
+            mp_hal_delay_ms(interval_ms);
+        }
+        // pulse heart to min brightness
+        for(int step = MP_ARRAY_SIZE(bright_levels) - 1; step >= 0; --step) {
+            microbit_display_show(hearts[step]);
+            mp_hal_delay_ms(interval_ms);
+        }
+    }
+    microbit_display_clear();
+}
+
+STATIC mp_obj_t love_badaboom(void) {
+    // make
+    love(25);
+    // ! war
+    return mp_const_none;
+}
+STATIC MP_DEFINE_CONST_FUN_OBJ_0(love_badaboom_obj, love_badaboom);
+
+STATIC const mp_map_elem_t love_module_globals_table[] = {
+    { MP_OBJ_NEW_QSTR(MP_QSTR___name__), MP_OBJ_NEW_QSTR(MP_QSTR_love) },
+    { MP_OBJ_NEW_QSTR(MP_QSTR___init__), (mp_obj_t)&love_badaboom_obj },
+    { MP_OBJ_NEW_QSTR(MP_QSTR_badaboom), (mp_obj_t)&love_badaboom_obj },
+};
+STATIC MP_DEFINE_CONST_DICT(love_module_globals, love_module_globals_table);
+
+const mp_obj_module_t love_module = {
+    .base = { &mp_type_module },
+    .globals = (mp_obj_dict_t *)&love_module_globals,
+};

src/codal_port/mpconfigport.h

@@ -102,6 +102,7 @@
 
 extern const struct _mp_obj_module_t antigravity_module;
 extern const struct _mp_obj_module_t audio_module;
+extern const struct _mp_obj_module_t love_module;
 extern const struct _mp_obj_module_t machine_module;
 extern const struct _mp_obj_module_t microbit_module;
 extern const struct _mp_obj_module_t music_module;
@@ -113,6 +114,7 @@ extern const struct _mp_obj_module_t utime_module;
 #define MICROPY_PORT_BUILTIN_MODULES \
     { MP_ROM_QSTR(MP_QSTR_antigravity), MP_ROM_PTR(&antigravity_module) }, \
     { MP_ROM_QSTR(MP_QSTR_audio), MP_ROM_PTR(&audio_module) }, \
+    { MP_ROM_QSTR(MP_QSTR_love), MP_ROM_PTR(&love_module) }, \
     { MP_ROM_QSTR(MP_QSTR_machine), MP_ROM_PTR(&machine_module) }, \
     { MP_ROM_QSTR(MP_QSTR_microbit), MP_ROM_PTR(&microbit_module) }, \
     { MP_ROM_QSTR(MP_QSTR_music), MP_ROM_PTR(&music_module) }, \