kmx git

/* kc3
 * Copyright from 2022 to 2025 kmx.io <contact@kmx.io>
 *
 * Permission is hereby granted to use this software granted the above
 * copyright notice and this permission paragraph are included in all
 * copies and substantial portions of this software.
 *
 * THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
 * PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
 * AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
 * THIS SOFTWARE.
 */
#include "types.h"

#if HAVE_F80

#include <math.h>
#include "../../libkc3/kc3.h"
#include "../../gl/gl.h"
#include "mandelbrot_f80.h"
#include "demo.h"

static s_gl_font g_mandelbrot_f80_font = {0};
static s_gl_text g_mandelbrot_f80_text = {0};
static GLuint g_mandelbrot_f80_texture = 0;

static u8 mandelbrot_f80_resize (s_sequence *seq);
static u8 mandelbrot_f80_update (s_sequence *seq);

u8 mandelbrot_f80_button (s_sequence *seq, u8 button, s64 x, s64 y)
{
  s_map *map;
  f80 *next_x;
  f80 *next_y;
  f80 *next_z;
  s_window *win;
  assert(seq);
  win = seq->window;
  assert(win);
  assert(seq->tag.type == TAG_MAP);
  map = &seq->tag.data.map;
  assert(map->count == 9);
  assert(map->key[1].type == TAG_PSYM);
  assert(map->key[1].data.psym == sym_1("next_x"));
  assert(map->value[1].type == TAG_F80);
  next_x = &map->value[1].data.f80;
  assert(map->key[2].type == TAG_PSYM);
  assert(map->key[2].data.psym == sym_1("next_y"));
  assert(map->value[2].type == TAG_F80);
  next_y = &map->value[2].data.f80;
  assert(map->key[3].type == TAG_PSYM);
  assert(map->key[3].data.psym == sym_1("next_z"));
  assert(map->value[3].type == TAG_F80);
  next_z = &map->value[3].data.f80;
  if (button == 1) {
    *next_x = *next_x + *next_z * (x - (f80) win->w / 2);
    *next_y = *next_y + *next_z * (y - (f80) win->h / 2);
  }
  else if (button == 5) {
    *next_z = *next_z * exp2l(0.5);
  }
  else if (button == 4) {
    *next_z = *next_z * exp2l(-0.5);
  }
  return true;
}

u8 mandelbrot_f80_load (s_sequence *seq)
{
  f32 point_per_pixel;
  s_map *map;
  s_window *window;
  assert(seq);
  window = seq->window;
  assert(window);
  point_per_pixel = (f32) window->w / window->pixel_w;
  if (! tag_map(&seq->tag, 9))
    return false;
  map = &seq->tag.data.map;
  tag_init_psym(   map->key + 0, sym_1("h"));
  tag_init_uw(   map->value + 0, 0);
  tag_init_psym(   map->key + 1, sym_1("next_x"));
  tag_init_f80( map->value + 1, 0.0);
  tag_init_psym(   map->key + 2, sym_1("next_y"));
  tag_init_f80( map->value + 2, 0.0);
  tag_init_psym(   map->key + 3, sym_1("next_z"));
  tag_init_f80( map->value + 3, 0.01);
  tag_init_psym(   map->key + 4, sym_1("pixels"));
  tag_init_array(map->value + 4, sym_1("U8[]"), 0, NULL);
  tag_init_psym(   map->key + 5, sym_1("w"));
  tag_init_uw(   map->value + 5, 0);
  tag_init_psym(   map->key + 6, sym_1("x"));
  tag_init_f80( map->value + 6, 0.0);
  tag_init_psym(   map->key + 7, sym_1("y"));
  tag_init_f80( map->value + 7, 0.0);
  tag_init_psym(   map->key + 8, sym_1("z"));
  tag_init_f80( map->value + 8, 0.0);
  if (! gl_font_init(&g_mandelbrot_f80_font,
                     "fonts/Courier New/Courier New.ttf",
                     point_per_pixel))
    return false;
  gl_font_set_size(&g_mandelbrot_f80_font, 20.0);
  if (! gl_text_init_1(&g_mandelbrot_f80_text, &g_mandelbrot_f80_font,
                       "x: 0.0\n"
                       "y: 0.0\n"
                       "z: 0.01"))
    return false;
  gl_text_update(&g_mandelbrot_f80_text);
  assert(glGetError() == GL_NO_ERROR);
  glGenTextures(1, &g_mandelbrot_f80_texture);
  assert(glGetError() == GL_NO_ERROR);
  return true;
}

u8 mandelbrot_f80_render (s_sequence *seq)
{
  uw *h;
  s_map *map;
  f80 next_x;
  f80 next_y;
  f80 next_z;
  const s_rgb text_color[2] = {
    {1.0f, 1.0f, 1.0f},
    {0.0f, 0.0f, 0.0f}
  };
  uw *w;
  s_window *win;
  f80 *x;
  f80 *y;
  f80 *z;
  assert(seq);
  assert(glGetError() == GL_NO_ERROR);
  assert(seq->window);
  win = seq->window;
  assert(seq->tag.type == TAG_MAP);
  map = &seq->tag.data.map;
  assert(map->count == 9);
  assert(map->key[0].type == TAG_PSYM);
  assert(map->key[0].data.psym == sym_1("h"));
  assert(map->value[0].type == TAG_UW);
  h = &map->value[0].data.uw;
  assert(map->key[1].type == TAG_PSYM);
  assert(map->key[1].data.psym == sym_1("next_x"));
  assert(map->value[1].type == TAG_F80);
  next_x = map->value[1].data.f80;
  assert(map->key[2].type == TAG_PSYM);
  assert(map->key[2].data.psym == sym_1("next_y"));
  assert(map->value[2].type == TAG_F80);
  next_y = map->value[2].data.f80;
  assert(map->key[3].type == TAG_PSYM);
  assert(map->key[3].data.psym == sym_1("next_z"));
  assert(map->value[3].type == TAG_F80);
  next_z = map->value[3].data.f80;
  assert(map->key[5].type == TAG_PSYM);
  assert(map->key[5].data.psym == sym_1("w"));
  assert(map->value[5].type == TAG_UW);
  w = &map->value[5].data.uw;
  assert(map->key[6].type == TAG_PSYM);
  assert(map->key[6].data.psym == sym_1("x"));
  assert(map->value[6].type == TAG_F80);
  x = &map->value[6].data.f80;
  assert(map->key[7].type == TAG_PSYM);
  assert(map->key[7].data.psym == sym_1("y"));
  assert(map->value[7].type == TAG_F80);
  y = &map->value[7].data.f80;
  assert(map->key[8].type == TAG_PSYM);
  assert(map->key[8].data.psym == sym_1("z"));
  assert(map->value[8].type == TAG_F80);
  z = &map->value[8].data.f80;
  if (*w != win->w || *h != win->h)
    if (! mandelbrot_f80_resize(seq))
      return false;
  if (*w != win->w || *h != win->h ||
      *x != next_x || *y != next_y || *z != next_z) {
    mandelbrot_f80_update(seq);
    *w = win->w;
    *h = win->h;
    *x = next_x;
    *y = next_y;
    *z = next_z;
  }
  glClearColor(0, 0, 0, 0);
  glClear(GL_COLOR_BUFFER_BIT);
  gl_ortho_render(&g_ortho);
  mat4_init_identity(&g_ortho.model_matrix);
  gl_ortho_bind_texture(&g_ortho, g_mandelbrot_f80_texture);
  gl_ortho_rect(&g_ortho, 0, 0, win->w, win->h);
  gl_ortho_text_render_outline(&g_ortho, &g_mandelbrot_f80_text,
                               20.0, 66.0, text_color, text_color + 1);
  gl_ortho_render_end(&g_ortho);
  return true;
}

static u8 mandelbrot_f80_resize (s_sequence *seq)
{
  uw dim[3];
  s_map *map;
  s_array *pixels;
  s_window *win;
  assert(seq);
  win = seq->window;
  assert(win);
  assert(seq->tag.type == TAG_MAP);
  map = &seq->tag.data.map;
  assert(map->key[4].type == TAG_PSYM);
  assert(map->key[4].data.psym == sym_1("pixels"));
  assert(map->value[4].type == TAG_ARRAY);
  pixels = &map->value[4].data.array;
  array_free(pixels);
  dim[0] = win->h;
  dim[1] = win->w;
  dim[2] = 4;
  if (! array_init(pixels, sym_1("U8[]"), 3, dim))
    return false;
  if (! array_allocate(pixels))
    return false;
  err_write_1("mandelbrot_f80_resize: ");
  err_inspect_u64(win->w);
  err_write_1(" x ");
  err_inspect_u64(win->h);
  err_write_1("\n");
  return true;
}

u8 mandelbrot_f80_unload (s_sequence *seq)
{
  (void) seq;
  glDeleteTextures(1, &g_mandelbrot_f80_texture);
  gl_text_clean(&g_mandelbrot_f80_text);
  gl_font_clean(&g_mandelbrot_f80_font);
  return true;
}

static u8 mandelbrot_f80_update (s_sequence *seq)
{
  f80 _2z_xz_y;
  char a[512];
  s_buf buf;
  f80 c_x;
  f80 c_y;
  uw i;
  uw j;
  u8 k;
  u8 level;
  s_map *map;
  f80 next_x;
  f80 next_y;
  f80 next_z;
  s_array *pixels;
  u8 *pix;
  s_window *win;
  f80 z_x;
  f80 z_y;
  f80 z_x2;
  f80 z_y2;
  assert(seq);
  assert(seq->window);
  win = seq->window;
  assert(seq->tag.type == TAG_MAP);
  map = &seq->tag.data.map;
  assert(map->count == 9);
  assert(map->key[1].type == TAG_PSYM);
  assert(map->key[1].data.psym == sym_1("next_x"));
  assert(map->value[1].type == TAG_F80);
  next_x = map->value[1].data.f80;
  assert(map->key[2].type == TAG_PSYM);
  assert(map->key[2].data.psym == sym_1("next_y"));
  assert(map->value[2].type == TAG_F80);
  next_y = map->value[2].data.f80;
  assert(map->key[3].type == TAG_PSYM);
  assert(map->key[3].data.psym == sym_1("next_z"));
  assert(map->value[3].type == TAG_F80);
  next_z = map->value[3].data.f80;
  assert(map->key[4].type == TAG_PSYM);
  assert(map->key[4].data.psym == sym_1("pixels"));
  assert(map->value[4].type == TAG_ARRAY);
  pixels = &map->value[4].data.array;
  pix = pixels->data;
  assert(pix);
#pragma omp parallel for private(c_x, c_y, j, k, z_x, z_y, z_x2, z_y2, _2z_xz_y, level)
  for (i = 0; i < win->h; i++) {
    c_y = next_y + next_z * ((f80) i - win->h / 2);
    j = 0;
    while (j < win->w) {
      c_x = next_x + next_z * ((f80) j - win->w / 2);
      z_x = c_x;
      z_y = c_y;
      k = 0;
      z_x2 = z_x * z_x;
      z_y2 = z_y * z_y;
      while (k < 255 && z_x2 + z_y2 < 4) {
        _2z_xz_y = 2 * z_x * z_y;
        z_x = c_x + z_x2 - z_y2;
        z_y = c_y + _2z_xz_y;
        z_x2 = z_x * z_x;
        z_y2 = z_y * z_y;
        k++;
      }
      level = 255 - k;
      /*if (k)
        printf("x %lu, y %lu, k %d, level %d", j, i, k, level);*/
      pix[(i * win->w + j) * 4 + 0] = level;
      pix[(i * win->w + j) * 4 + 1] = level;
      pix[(i * win->w + j) * 4 + 2] = level;
      pix[(i * win->w + j) * 4 + 3] = 255;
      j++;
    }
  }
  assert(glGetError() == GL_NO_ERROR);
  glBindTexture(GL_TEXTURE_2D, g_mandelbrot_f80_texture);
  assert(glGetError() == GL_NO_ERROR);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
  assert(glGetError() == GL_NO_ERROR);
  glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, win->w, win->h, 0,
               GL_RGBA, GL_UNSIGNED_BYTE, pixels->data);
  assert(glGetError() == GL_NO_ERROR);
  buf_init(&buf, false, sizeof(a), a);
  buf_write_1(&buf, "x: ");
  buf_inspect_f80(&buf, next_x);
  buf_write_1(&buf, "\ny: ");
  buf_inspect_f80(&buf, next_y);
  buf_write_1(&buf, "\nz: ");
  buf_inspect_f80(&buf, next_z);
  gl_text_update_buf(&g_mandelbrot_f80_text, &buf);
  err_write_1("mandelbrot_f80_update: ");
  err_inspect_u64_decimal(win->w);
  err_write_1(" x ");
  err_inspect_u64_decimal(win->h);
  err_write_1("\n");
  return true;
}

#endif /* HAVE_F80 */
kc3-lang/kc3/window/demo/mandelbrot_f80.c

Commit

window/demo/mandelbrot_f80.c
