fortrangoingonforty/fgof-screen / 357e88f

+program diff_render_demo

+  use fgof_screen, only : allocate_screen, diff_screen, put_glyph, render_screen_diff_ansi, set_cursor

+  use fgof_screen_types, only : screen_buffer, screen_diff

+  implicit none

+

+  type(screen_buffer) :: previous

+  type(screen_buffer) :: current

+  type(screen_diff) :: diff

+  character(len=:), allocatable :: rendered

+

+  previous = allocate_screen(3, 1)

+  call put_glyph(previous, 1, 1, "A")

+  call put_glyph(previous, 1, 2, "B")

+  call put_glyph(previous, 1, 3, "C")

+

+  current = previous

+  call put_glyph(current, 1, 2, "X")

+  call set_cursor(current, 1, 2)

+

+  diff = diff_screen(previous, current)

+  rendered = render_screen_diff_ansi(previous, current)

+

+  write(*, "(a, i0)") "damage-cells=", diff%damage%changed_cells

+  write(*, "(a, i0)") "diff-bytes=", len(rendered)

+end program diff_render_demo

+program full_render_demo

+  use fgof_screen, only : allocate_screen, clear_screen_style, put_glyph, render_screen_ansi, set_cursor

+  use fgof_screen_types, only : screen_buffer, screen_style

+  implicit none

+

+  type(screen_buffer) :: buffer

+  type(screen_style) :: style

+  character(len=:), allocatable :: rendered

+  integer :: bytes

+

+  buffer = allocate_screen(4, 2)

+  style = clear_screen_style()

+  style%fg = 39

+  style%bold = .true.

+

+  call put_glyph(buffer, 1, 1, "F", style)

+  call put_glyph(buffer, 1, 2, "G", style)

+  call put_glyph(buffer, 2, 1, "O")

+  call put_glyph(buffer, 2, 2, "F")

+  call set_cursor(buffer, 2, 3)

+

+  rendered = render_screen_ansi(buffer)

+  bytes = len(rendered)

+  write(*, "(a, i0)") "full-bytes=", bytes

+end program full_render_demo

+auto-examples = true