Dessin de VU-metre analogique

' VU-metre analogique
' L'echelle va de 30° à 150° et correspond à des intensités de 0 à 1.5
' --------------------------------------------------------------------

' Definition d'un type "Graduation" :
' dB     : niveau en decibels
' a      : angle en degrés sur l'échelle
' x1, y1 : origine du trait de graduation
' x2, y2 : extrémité du trait de graduation
' x3, y3 : position du label

type t_grad = (dB, a%, x1%, y1%, x2%, y2%, x3%, y3%)

const N = 11         ' Nb de graduations

dim grad<t_grad>(N)  ' Graduations

data -20, -10, -7, -5, -3, -2, -1, 0, 1, 2, 3  ' Labels

dim xc%, yc%, r%     ' Centre et rayon du cercle

dim font% = FL_TIMES ' Police de caractères
dim size% = 20       ' Taille des caractères

const WCAN = 400, HCAN = 300  ' Taille du CANVAS

form 0, 100, 100, WCAN + 20, HCAN + 20, "VU-mètre"

xcanvas 1, 10, 10, WCAN, HCAN

on_canvas_draw 1, draw1

on_timer 1, timer1

init()
start 0

sub init()
' Initialise les variables globales

  dim i%, z, ar, dx%, dy%, xt%, yt%, wt%, ht%, r1%, da

  xc = WCAN \ 2
  yc = 0.8 * HCAN
  r  = 0.6 * HCAN

  2d_font font, size

  for i = 1 to N
    with grad(i)
      read .dB
      z = 10^(.dB / 20)              ' Intensité
      .a = 30 + 120 * (1 - z / 1.5)
      ar = .a * 0.01745              ' Radians

      dx = r * cos(ar)
      dy = r * sin(ar)

      .x1 = xc + dx
      .y1 = yc - dy

      .x2 = xc + 1.1 * dx
      .y2 = yc - 1.1 * dy

      2d_text_extension str(.dB), xt, yt, wt, ht

      r1 = 1.05 * r + ht
      da = wt / (2 * r1)
      ar = ar + da

      .x3 = xc + r1 * cos(ar)
      .y3 = yc - r1 * sin(ar)
    end_with
  next i
end_sub

sub draw_vu(angle%)
' Dessine le VU-mètre pour une position donnée de l'aiguille en degrés

  dim i%, ar

  2d_box 0, 0, WCAN, HCAN, FL_BORDER_BOX, &hFFFFCC00

  2d_pen_color_fl FL_BLACK
  2d_pen_style 0, 2
  2d_pie xc, yc, 15

  2d_pen_color_fl FL_RED
  2d_pen_style 0, 10
  2d_arc xc, yc, r, r, 30, 70

  2d_pen_color_fl FL_GREEN
  2d_pen_style 0, 10
  2d_arc xc, yc, r, r, 70, 150

  2d_pen_color_fl FL_BLACK
  2d_pen_style 0, 2
  2d_arc xc, yc, r, r, 30, 150

  2d_font font, size + 10
  2d_print_box "dB", 50, 0.3 * HCAN, WCAN - 100, 100

  ' Dessin des graduations

  2d_font font, size

  for i = 1 to N
    with grad(i)
      2d_line .x1, .y1, .x2, .y2
      2d_print str(.dB), .x3, .y3, .a + 270
    end_with
  next i

  ' Dessin de l'aiguille

  ar = angle * 0.01745
  2d_pen_style 0, 2
  2d_line xc, yc, xc + r * cos(ar), yc - r * sin(ar)
end_sub

sub draw1()
' Parcourt toute l'échelle (30° - 150°)

  dim_static angle% = 150

  draw_vu angle

  angle = angle - 1
  if angle = 30 then angle = 150
end_sub

sub timer1()
  object_redraw 1
  timer_interval 0.1
end_sub

13 type t_grad = (dB, a%, x1%, y1%, x2%, y2%, x3%, y3%)

' VU-metre analogique
' L'echelle va de 30° à 150° et correspond à des intensités de 0 à 1.5
' --------------------------------------------------------------------

' Definition d'un type "Graduation" :
' dB     : niveau en decibels
' a      : angle en degrés sur l'échelle
' x1, y1 : origine du trait de graduation
' x2, y2 : extrémité du trait de graduation
' x3, y3 : position du label

type t_grad = (dB, a%, x1%, y1%, x2%, y2%, x3%, y3%)

const N = 11         ' Nb de graduations

dim grad<t_grad>(N)  ' Graduations

data -20, -10, -7, -5, -3, -2, -1, 0, 1, 2, 3  ' Labels

dim xc%, yc%, r%     ' Centre et rayon du cercle

dim font% = FL_TIMES ' Police de caractères
dim size% = 20       ' Taille des caractères

const WCAN = 400, HCAN = 300  ' Taille du CANVAS

form 0, 100, 100, 2 * WCAN + 30, HCAN + 20, "VU-mètre"

xcanvas 1, 10, 10, WCAN, HCAN
xcanvas 2, WCAN + 20, 10, WCAN, HCAN

on_canvas_draw 1, draw1
on_canvas_draw 2, draw2

on_timer 1, timer1
on_timer 2, timer2

init()
start 0

sub init()
' Initialise les variables globales

  dim i%, z, ar, dx%, dy%, xt%, yt%, wt%, ht%, r1%, da

  xc = WCAN \ 2
  yc = 0.8 * HCAN
  r  = 0.6 * HCAN

  2d_font font, size

  for i = 1 to N
    with grad(i)
      read .dB
      z = 10^(.dB / 20)              ' Intensité
      .a = 30 + 120 * (1 - z / 1.5)
      ar = .a * 0.01745              ' Radians

      dx = r * cos(ar)
      dy = r * sin(ar)

      .x1 = xc + dx
      .y1 = yc - dy

      .x2 = xc + 1.1 * dx
      .y2 = yc - 1.1 * dy

      2d_text_extension str(.dB), xt, yt, wt, ht

      r1 = 1.05 * r + ht
      da = wt / (2 * r1)
      ar = ar + da

      .x3 = xc + r1 * cos(ar)
      .y3 = yc - r1 * sin(ar)
    end_with
  next i
end_sub

sub draw_vu(angle%)
' Dessine le VU-mètre pour une position donnée de l'aiguille en degrés

  dim i%, ar

  2d_box 0, 0, WCAN, HCAN, FL_BORDER_BOX, &hFFFFCC00

  2d_pen_color_fl FL_BLACK
  2d_pen_style 0, 2
  2d_pie xc, yc, 15

  2d_pen_color_fl FL_RED
  2d_pen_style 0, 10
  2d_arc xc, yc, r, r, 30, 70

  2d_pen_color_fl FL_GREEN
  2d_pen_style 0, 10
  2d_arc xc, yc, r, r, 70, 150

  2d_pen_color_fl FL_BLACK
  2d_pen_style 0, 2
  2d_arc xc, yc, r, r, 30, 150

  2d_font font, size + 10
  2d_print_box "dB", 50, 0.3 * HCAN, WCAN - 100, 100

  ' Dessin des graduations

  2d_font font, size

  for i = 1 to N
    with grad(i)
      2d_line .x1, .y1, .x2, .y2
      2d_print str(.dB), .x3, .y3, .a + 270
    end_with
  next i

  ' Dessin de l'aiguille

  ar = angle * 0.01745
  2d_pen_style 0, 2
  2d_line xc, yc, xc + r * cos(ar), yc - r * sin(ar)
end_sub

sub draw1()
' Parcourt la parte verte (71° - 150°)

  dim_static angle% = 150

  draw_vu angle

  angle = angle - 1
  if angle = 71 then angle = 150
end_sub

sub draw2()
' Parcourt la parte rouge (30° - 71°)

  dim_static angle% = 71

  draw_vu angle

  angle = angle - 1
  if angle = 30 then angle = 71
end_sub

sub timer1()
  object_redraw 1
  timer_interval 0.1
end_sub

sub timer2()
  object_redraw 2
  timer_interval 0.1
end_sub