/* Goom Project
 * Copyright (C) <2003> Jean-Christophe Hoelt <jeko@free.fr>
 *
 * goom_core.c:Contains the core of goom's work.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
 * Boston, MA 02110-1301, USA.
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#ifdef HAVE_INTTYPES_H
#include <inttypes.h>
#endif

#include "goom.h"
#include "goom_tools.h"
#include "goom_filters.h"
#include "lines.h"
#include "ifs.h"
#include "tentacle3d.h"

#include "sound_tester.h"
#include "goom_plugin_info.h"
#include "goom_fx.h"

/* #define VERBOSE */

#define STOP_SPEED 128
/* TODO: put that as variable in PluginInfo */
#define TIME_BTW_CHG 300

static void choose_a_goom_line (PluginInfo * goomInfo, float *param1,
    float *param2, int *couleur, int *mode, float *amplitude, int far);

static void
init_buffers (PluginInfo * goomInfo, int buffsize)
{
  goomInfo->pixel = (guint32 *) malloc (buffsize * sizeof (guint32) + 128);
  memset (goomInfo->pixel, 0, buffsize * sizeof (guint32) + 128);
  goomInfo->back = (guint32 *) malloc (buffsize * sizeof (guint32) + 128);
  memset (goomInfo->back, 0, buffsize * sizeof (guint32) + 128);
  goomInfo->conv = (Pixel *) malloc (buffsize * sizeof (guint32) + 128);
  memset (goomInfo->conv, 0, buffsize * sizeof (guint32) + 128);

  goomInfo->outputBuf = goomInfo->conv;

  goomInfo->p1 = (Pixel *) ((1 + ((uintptr_t) (goomInfo->pixel)) / 128) * 128);
  goomInfo->p2 = (Pixel *) ((1 + ((uintptr_t) (goomInfo->back)) / 128) * 128);
}

/**************************
*         INIT           *
**************************/
PluginInfo *
goom_init (guint32 resx, guint32 resy)
{
  PluginInfo *goomInfo = (PluginInfo *) malloc (sizeof (PluginInfo));

#ifdef VERBOSE
  printf ("GOOM: init (%d, %d);\n", resx, resy);
#endif

  plugin_info_init (goomInfo, 4);

  goomInfo->screen.width = resx;
  goomInfo->screen.height = resy;
  goomInfo->screen.size = resx * resy;

  init_buffers (goomInfo, goomInfo->screen.size);
  goomInfo->gRandom = goom_random_init ((uintptr_t) goomInfo->pixel);

  goomInfo->cycle = 0;

  flying_star_create (&goomInfo->star_fx);
  goomInfo->star_fx.init (&goomInfo->star_fx, goomInfo);

  zoomFilterVisualFXWrapper_create (&goomInfo->zoomFilter_fx);
  goomInfo->zoomFilter_fx.init (&goomInfo->zoomFilter_fx, goomInfo);

  tentacle_fx_create (&goomInfo->tentacles_fx);
  goomInfo->tentacles_fx.init (&goomInfo->tentacles_fx, goomInfo);

  convolve_create (&goomInfo->convolve_fx);
  goomInfo->convolve_fx.init (&goomInfo->convolve_fx, goomInfo);

  plugin_info_add_visual (goomInfo, 0, &goomInfo->zoomFilter_fx);
  plugin_info_add_visual (goomInfo, 1, &goomInfo->tentacles_fx);
  plugin_info_add_visual (goomInfo, 2, &goomInfo->star_fx);
  plugin_info_add_visual (goomInfo, 3, &goomInfo->convolve_fx);

  ifs_visualfx_create (&goomInfo->ifs_fx);
  goomInfo->ifs_fx.init (&goomInfo->ifs_fx, goomInfo);

  goomInfo->gmline1 = goom_lines_init (goomInfo, resx, goomInfo->screen.height,
      GML_HLINE, goomInfo->screen.height, GML_BLACK,
      GML_CIRCLE, 0.4f * (float) goomInfo->screen.height, GML_VERT);
  goomInfo->gmline2 = goom_lines_init (goomInfo, resx, goomInfo->screen.height,
      GML_HLINE, 0, GML_BLACK,
      GML_CIRCLE, 0.2f * (float) goomInfo->screen.height, GML_RED);

  /* goom_set_main_script(goomInfo, goomInfo->main_script_str); */

  return goomInfo;
}



void
goom_set_resolution (PluginInfo * goomInfo, guint32 resx, guint32 resy)
{
  free (goomInfo->pixel);
  free (goomInfo->back);
  free (goomInfo->conv);

  goomInfo->screen.width = resx;
  goomInfo->screen.height = resy;
  goomInfo->screen.size = resx * resy;

  init_buffers (goomInfo, goomInfo->screen.size);

  /* init_ifs (goomInfo, resx, goomInfo->screen.height); */
  goomInfo->ifs_fx.free (&goomInfo->ifs_fx);
  goomInfo->ifs_fx.init (&goomInfo->ifs_fx, goomInfo);

  goom_lines_set_res (goomInfo->gmline1, resx, goomInfo->screen.height);
  goom_lines_set_res (goomInfo->gmline2, resx, goomInfo->screen.height);
}

int
goom_set_screenbuffer (PluginInfo * goomInfo, void *buffer)
{
  goomInfo->outputBuf = (Pixel *) buffer;
  return 1;
}

/********************************************
*                  UPDATE                  *
********************************************

* WARNING: this is a 600 lines function ! (21-11-2003)
*/
guint32 *
goom_update (PluginInfo * goomInfo, gint16 data[2][512], int forceMode,
    float fps)
{
  Pixel *return_val;
  guint32 pointWidth;
  guint32 pointHeight;
  int i;
  float largfactor;             /* elargissement de l'intervalle d'�volution des points */
  Pixel *tmp;

  ZoomFilterData *pzfd;

  /* test if the config has changed, update it if so */
  pointWidth = (goomInfo->screen.width * 2) / 5;
  pointHeight = ((goomInfo->screen.height) * 2) / 5;

  /* ! etude du signal ... */
  evaluate_sound (data, &(goomInfo->sound));

  /* goom_execute_main_script(goomInfo); */

  /* ! calcul du deplacement des petits points ... */
  largfactor =
      goomInfo->sound.speedvar / 150.0f + goomInfo->sound.volume / 1.5f;

  if (largfactor > 1.5f)
    largfactor = 1.5f;

  goomInfo->update.decay_ifs--;
  if (goomInfo->update.decay_ifs > 0)
    goomInfo->update.ifs_incr += 2;
  if (goomInfo->update.decay_ifs == 0)
    goomInfo->update.ifs_incr = 0;

  if (goomInfo->update.recay_ifs) {
    goomInfo->update.ifs_incr -= 2;
    goomInfo->update.recay_ifs--;
    if ((goomInfo->update.recay_ifs == 0) && (goomInfo->update.ifs_incr <= 0))
      goomInfo->update.ifs_incr = 1;
  }

  if (goomInfo->update.ifs_incr > 0)
    goomInfo->ifs_fx.apply (&goomInfo->ifs_fx, goomInfo->p2, goomInfo->p1,
        goomInfo);

  if (goomInfo->curGState->drawPoints) {
    for (i = 1; i * 15 <= goomInfo->sound.speedvar * 80.0f + 15; i++) {
      goomInfo->update.loopvar += goomInfo->sound.speedvar * 50 + 1;

      pointFilter (goomInfo, goomInfo->p1,
          YELLOW,
          ((pointWidth - 6.0f) * largfactor + 5.0f),
          ((pointHeight - 6.0f) * largfactor + 5.0f),
          i * 152.0f, 128.0f, goomInfo->update.loopvar + i * 2032);
      pointFilter (goomInfo, goomInfo->p1, ORANGE,
          ((pointWidth / 2) * largfactor) / i + 10.0f * i,
          ((pointHeight / 2) * largfactor) / i + 10.0f * i,
          96.0f, i * 80.0f, goomInfo->update.loopvar / i);
      pointFilter (goomInfo, goomInfo->p1, VIOLET,
          ((pointHeight / 3 + 5.0f) * largfactor) / i + 10.0f * i,
          ((pointHeight / 3 + 5.0f) * largfactor) / i + 10.0f * i,
          i + 122.0f, 134.0f, goomInfo->update.loopvar / i);
      pointFilter (goomInfo, goomInfo->p1, BLACK,
          ((pointHeight / 3) * largfactor + 20.0f),
          ((pointHeight / 3) * largfactor + 20.0f),
          58.0f, i * 66.0f, goomInfo->update.loopvar / i);
      pointFilter (goomInfo, goomInfo->p1, WHITE,
          (pointHeight * largfactor + 10.0f * i) / i,
          (pointHeight * largfactor + 10.0f * i) / i,
          66.0f, 74.0f, goomInfo->update.loopvar + i * 500);
    }
  }

  /* par d�faut pas de changement de zoom */
  pzfd = NULL;

  /* 
   * Test forceMode
   */
#ifdef VERBOSE
  if (forceMode != 0) {
    printf ("forcemode = %d\n", forceMode);
  }
#endif


  /* diminuer de 1 le temps de lockage */
  /* note pour ceux qui n'ont pas suivis : le lockvar permet d'empecher un */
  /* changement d'etat du plugin juste apres un autre changement d'etat. oki */
  if (--goomInfo->update.lockvar < 0)
    goomInfo->update.lockvar = 0;

  /* on verifie qu'il ne se pas un truc interressant avec le son. */
  if ((goomInfo->sound.timeSinceLastGoom == 0)
      || (forceMode > 0)
      || (goomInfo->update.cyclesSinceLastChange > TIME_BTW_CHG)) {

    /* changement eventuel de mode */
    if (goom_irand (goomInfo->gRandom, 16) == 0)
      switch (goom_irand (goomInfo->gRandom, 34)) {
        case 0:
        case 10:
          goomInfo->update.zoomFilterData.hypercosEffect =
              goom_irand (goomInfo->gRandom, 2);
          /* FALLTHROUGH */
        case 13:
        case 20:
        case 21:
          goomInfo->update.zoomFilterData.mode = WAVE_MODE;
          goomInfo->update.zoomFilterData.reverse = 0;
          goomInfo->update.zoomFilterData.waveEffect =
              (goom_irand (goomInfo->gRandom, 3) == 0);
          if (goom_irand (goomInfo->gRandom, 2))
            goomInfo->update.zoomFilterData.vitesse =
                (goomInfo->update.zoomFilterData.vitesse + 127) >> 1;
          break;
        case 1:
        case 11:
          goomInfo->update.zoomFilterData.mode = CRYSTAL_BALL_MODE;
          goomInfo->update.zoomFilterData.waveEffect = 0;
          goomInfo->update.zoomFilterData.hypercosEffect = 0;
          break;
        case 2:
        case 12:
          goomInfo->update.zoomFilterData.mode = AMULETTE_MODE;
          goomInfo->update.zoomFilterData.waveEffect = 0;
          goomInfo->update.zoomFilterData.hypercosEffect = 0;
          break;
        case 3:
          goomInfo->update.zoomFilterData.mode = WATER_MODE;
          goomInfo->update.zoomFilterData.waveEffect = 0;
          goomInfo->update.zoomFilterData.hypercosEffect = 0;
          break;
        case 4:
        case 14:
          goomInfo->update.zoomFilterData.mode = SCRUNCH_MODE;
          goomInfo->update.zoomFilterData.waveEffect = 0;
          goomInfo->update.zoomFilterData.hypercosEffect = 0;
          break;
        case 5:
        case 15:
        case 22:
          goomInfo->update.zoomFilterData.mode = HYPERCOS1_MODE;
          goomInfo->update.zoomFilterData.waveEffect = 0;
          goomInfo->update.zoomFilterData.hypercosEffect =
              (goom_irand (goomInfo->gRandom, 3) == 0);
          break;
        case 6:
        case 16:
          goomInfo->update.zoomFilterData.mode = HYPERCOS2_MODE;
          goomInfo->update.zoomFilterData.waveEffect = 0;
          goomInfo->update.zoomFilterData.hypercosEffect = 0;
          break;
        case 7:
        case 17:
          goomInfo->update.zoomFilterData.mode = CRYSTAL_BALL_MODE;
          goomInfo->update.zoomFilterData.waveEffect =
              (goom_irand (goomInfo->gRandom, 4) == 0);
          goomInfo->update.zoomFilterData.hypercosEffect =
              goom_irand (goomInfo->gRandom, 2);
          break;
        case 8:
        case 18:
        case 19:
          goomInfo->update.zoomFilterData.mode = SCRUNCH_MODE;
          goomInfo->update.zoomFilterData.waveEffect = 1;
          goomInfo->update.zoomFilterData.hypercosEffect = 1;
          break;
        case 29:
        case 30:
          goomInfo->update.zoomFilterData.mode = YONLY_MODE;
          break;
        case 31:
        case 32:
        case 33:
          goomInfo->update.zoomFilterData.mode = SPEEDWAY_MODE;
          break;
        default:
          goomInfo->update.zoomFilterData.mode = NORMAL_MODE;
          goomInfo->update.zoomFilterData.waveEffect = 0;
          goomInfo->update.zoomFilterData.hypercosEffect = 0;
      }
  }

  /* tout ceci ne sera fait qu'en cas de non-blocage */
  if (goomInfo->update.lockvar == 0) {
    /* reperage de goom (acceleration forte de l'acceleration du volume) */
    /* -> coup de boost de la vitesse si besoin.. */
    if (goomInfo->sound.timeSinceLastGoom == 0) {

      int i;

      goomInfo->update.goomvar++;

      /* SELECTION OF THE GOOM STATE */
      if ((!goomInfo->update.stateSelectionBlocker)
          && (goom_irand (goomInfo->gRandom, 3))) {
        goomInfo->update.stateSelectionRnd =
            goom_irand (goomInfo->gRandom, goomInfo->statesRangeMax);
        goomInfo->update.stateSelectionBlocker = 3;
      } else if (goomInfo->update.stateSelectionBlocker)
        goomInfo->update.stateSelectionBlocker--;

      for (i = 0; i < goomInfo->statesNumber; i++)
        if ((goomInfo->update.stateSelectionRnd >= goomInfo->states[i].rangemin)
            && (goomInfo->update.stateSelectionRnd <=
                goomInfo->states[i].rangemax))
          goomInfo->curGState = &(goomInfo->states[i]);

      if ((goomInfo->curGState->drawIFS) && (goomInfo->update.ifs_incr <= 0)) {
        goomInfo->update.recay_ifs = 5;
        goomInfo->update.ifs_incr = 11;
      }

      if ((!goomInfo->curGState->drawIFS) && (goomInfo->update.ifs_incr > 0)
          && (goomInfo->update.decay_ifs <= 0))
        goomInfo->update.decay_ifs = 100;

      if (!goomInfo->curGState->drawScope)
        goomInfo->update.stop_lines = 0xf000 & 5;

      if (!goomInfo->curGState->drawScope) {
        goomInfo->update.stop_lines = 0;
        goomInfo->update.lineMode = goomInfo->update.drawLinesDuration;
      }

      /* if (goomInfo->update.goomvar % 1 == 0) */
      {
        guint32 vtmp;
        guint32 newvit;

        goomInfo->update.lockvar = 50;
        newvit =
            STOP_SPEED + 1 -
            ((float) 3.5f * log10 (goomInfo->sound.speedvar * 60 + 1));
        /* retablir le zoom avant.. */
        if ((goomInfo->update.zoomFilterData.reverse)
            && (!(goomInfo->cycle % 13)) && (rand () % 5 == 0)) {
          goomInfo->update.zoomFilterData.reverse = 0;
          goomInfo->update.zoomFilterData.vitesse = STOP_SPEED - 2;
          goomInfo->update.lockvar = 75;
        }
        if (goom_irand (goomInfo->gRandom, 10) == 0) {
          goomInfo->update.zoomFilterData.reverse = 1;
          goomInfo->update.lockvar = 100;
        }

        if (goom_irand (goomInfo->gRandom, 10) == 0)
          goomInfo->update.zoomFilterData.vitesse = STOP_SPEED - 1;
        if (goom_irand (goomInfo->gRandom, 12) == 0)
          goomInfo->update.zoomFilterData.vitesse = STOP_SPEED + 1;

        /* changement de milieu.. */
        switch (goom_irand (goomInfo->gRandom, 25)) {
          case 0:
          case 3:
          case 6:
            goomInfo->update.zoomFilterData.middleY =
                goomInfo->screen.height - 1;
            goomInfo->update.zoomFilterData.middleX =
                goomInfo->screen.width / 2;
            break;
          case 1:
          case 4:
            goomInfo->update.zoomFilterData.middleX =
                goomInfo->screen.width - 1;
            break;
          case 2:
          case 5:
            goomInfo->update.zoomFilterData.middleX = 1;
            break;
          default:
            goomInfo->update.zoomFilterData.middleY =
                goomInfo->screen.height / 2;
            goomInfo->update.zoomFilterData.middleX =
                goomInfo->screen.width / 2;
        }

        if ((goomInfo->update.zoomFilterData.mode == WATER_MODE)
            || (goomInfo->update.zoomFilterData.mode == YONLY_MODE)
            || (goomInfo->update.zoomFilterData.mode == AMULETTE_MODE)) {
          goomInfo->update.zoomFilterData.middleX = goomInfo->screen.width / 2;
          goomInfo->update.zoomFilterData.middleY = goomInfo->screen.height / 2;
        }

        switch (vtmp = (goom_irand (goomInfo->gRandom, 15))) {
          case 0:
            goomInfo->update.zoomFilterData.vPlaneEffect =
                goom_irand (goomInfo->gRandom, 3)
                - goom_irand (goomInfo->gRandom, 3);
            goomInfo->update.zoomFilterData.hPlaneEffect =
                goom_irand (goomInfo->gRandom, 3)
                - goom_irand (goomInfo->gRandom, 3);
            break;
          case 3:
            goomInfo->update.zoomFilterData.vPlaneEffect = 0;
            goomInfo->update.zoomFilterData.hPlaneEffect =
                goom_irand (goomInfo->gRandom, 8)
                - goom_irand (goomInfo->gRandom, 8);
            break;
          case 4:
          case 5:
          case 6:
          case 7:
            goomInfo->update.zoomFilterData.vPlaneEffect =
                goom_irand (goomInfo->gRandom, 5)
                - goom_irand (goomInfo->gRandom, 5);
            goomInfo->update.zoomFilterData.hPlaneEffect =
                -goomInfo->update.zoomFilterData.vPlaneEffect;
            break;
          case 8:
            goomInfo->update.zoomFilterData.hPlaneEffect =
                5 + goom_irand (goomInfo->gRandom, 8);
            goomInfo->update.zoomFilterData.vPlaneEffect =
                -goomInfo->update.zoomFilterData.hPlaneEffect;
            break;
          case 9:
            goomInfo->update.zoomFilterData.vPlaneEffect =
                5 + goom_irand (goomInfo->gRandom, 8);
            goomInfo->update.zoomFilterData.hPlaneEffect =
                -goomInfo->update.zoomFilterData.hPlaneEffect;
            break;
          case 13:
            goomInfo->update.zoomFilterData.hPlaneEffect = 0;
            goomInfo->update.zoomFilterData.vPlaneEffect =
                goom_irand (goomInfo->gRandom, 10)
                - goom_irand (goomInfo->gRandom, 10);
            break;
          case 14:
            goomInfo->update.zoomFilterData.hPlaneEffect =
                goom_irand (goomInfo->gRandom, 10)
                - goom_irand (goomInfo->gRandom, 10);
            goomInfo->update.zoomFilterData.vPlaneEffect =
                goom_irand (goomInfo->gRandom, 10)
                - goom_irand (goomInfo->gRandom, 10);
            break;
          default:
            if (vtmp < 10) {
              goomInfo->update.zoomFilterData.vPlaneEffect = 0;
              goomInfo->update.zoomFilterData.hPlaneEffect = 0;
            }
        }

        if (goom_irand (goomInfo->gRandom, 5) != 0)
          goomInfo->update.zoomFilterData.noisify = 0;
        else {
          goomInfo->update.zoomFilterData.noisify =
              goom_irand (goomInfo->gRandom, 2) + 1;
          goomInfo->update.lockvar *= 2;
        }

        if (goomInfo->update.zoomFilterData.mode == AMULETTE_MODE) {
          goomInfo->update.zoomFilterData.vPlaneEffect = 0;
          goomInfo->update.zoomFilterData.hPlaneEffect = 0;
          goomInfo->update.zoomFilterData.noisify = 0;
        }

        if ((goomInfo->update.zoomFilterData.middleX == 1)
            || (goomInfo->update.zoomFilterData.middleX ==
                (signed int) goomInfo->screen.width - 1)) {
          goomInfo->update.zoomFilterData.vPlaneEffect = 0;
          if (goom_irand (goomInfo->gRandom, 2))
            goomInfo->update.zoomFilterData.hPlaneEffect = 0;
        }

        if ((signed int) newvit < goomInfo->update.zoomFilterData.vitesse) {    /* on accelere */
          pzfd = &goomInfo->update.zoomFilterData;
          if (((newvit < STOP_SPEED - 7) &&
                  (goomInfo->update.zoomFilterData.vitesse < STOP_SPEED - 6) &&
                  (goomInfo->cycle % 3 == 0))
              || (goom_irand (goomInfo->gRandom, 40) == 0)) {
            goomInfo->update.zoomFilterData.vitesse =
                STOP_SPEED - goom_irand (goomInfo->gRandom, 2)
                + goom_irand (goomInfo->gRandom, 2);
            goomInfo->update.zoomFilterData.reverse =
                !goomInfo->update.zoomFilterData.reverse;
          } else {
            goomInfo->update.zoomFilterData.vitesse =
                (newvit + goomInfo->update.zoomFilterData.vitesse * 7) / 8;
          }
          goomInfo->update.lockvar += 50;
        }
      }

      if (goomInfo->update.lockvar > 150) {
        goomInfo->update.switchIncr = goomInfo->update.switchIncrAmount;
        goomInfo->update.switchMult = 1.0f;
      }
    }
    /* mode mega-lent */
    if (goom_irand (goomInfo->gRandom, 700) == 0) {
      /* 
       * printf ("coup du sort...\n") ;
       */
      pzfd = &goomInfo->update.zoomFilterData;
      goomInfo->update.zoomFilterData.vitesse = STOP_SPEED - 1;
      goomInfo->update.zoomFilterData.pertedec = 8;
      goomInfo->update.zoomFilterData.sqrtperte = 16;
      goomInfo->update.goomvar = 1;
      goomInfo->update.lockvar += 50;
      goomInfo->update.switchIncr = goomInfo->update.switchIncrAmount;
      goomInfo->update.switchMult = 1.0f;
    }
  }

  /*
   * gros frein si la musique est calme
   */
  if ((goomInfo->sound.speedvar < 0.01f)
      && (goomInfo->update.zoomFilterData.vitesse < STOP_SPEED - 4)
      && (goomInfo->cycle % 16 == 0)) {
    pzfd = &goomInfo->update.zoomFilterData;
    goomInfo->update.zoomFilterData.vitesse += 3;
    goomInfo->update.zoomFilterData.pertedec = 8;
    goomInfo->update.zoomFilterData.sqrtperte = 16;
    goomInfo->update.goomvar = 0;
  }

  /*
   * baisser regulierement la vitesse...
   */
  if ((goomInfo->cycle % 73 == 0)
      && (goomInfo->update.zoomFilterData.vitesse < STOP_SPEED - 5)) {
    pzfd = &goomInfo->update.zoomFilterData;
    goomInfo->update.zoomFilterData.vitesse++;
  }

  /*
   * arreter de decr�menter au bout d'un certain temps
   */
  if ((goomInfo->cycle % 101 == 0)
      && (goomInfo->update.zoomFilterData.pertedec == 7)) {
    pzfd = &goomInfo->update.zoomFilterData;
    goomInfo->update.zoomFilterData.pertedec = 8;
    goomInfo->update.zoomFilterData.sqrtperte = 16;
  }

  /*
   * Permet de forcer un effet.
   */
  if ((forceMode > 0) && (forceMode <= NB_FX)) {
    pzfd = &goomInfo->update.zoomFilterData;
    pzfd->mode = forceMode - 1;
  }

  if (forceMode == -1) {
    pzfd = NULL;
  }

  /*
   * Changement d'effet de zoom !
   */
  if (pzfd != NULL) {
    int dif;

    goomInfo->update.cyclesSinceLastChange = 0;

    goomInfo->update.switchIncr = goomInfo->update.switchIncrAmount;

    dif =
        goomInfo->update.zoomFilterData.vitesse -
        goomInfo->update.previousZoomSpeed;
    if (dif < 0)
      dif = -dif;

    if (dif > 2) {
      goomInfo->update.switchIncr *= (dif + 2) / 2;
    }
    goomInfo->update.previousZoomSpeed =
        goomInfo->update.zoomFilterData.vitesse;
    goomInfo->update.switchMult = 1.0f;

    if (((goomInfo->sound.timeSinceLastGoom == 0)
            && (goomInfo->sound.totalgoom < 2)) || (forceMode > 0)) {
      goomInfo->update.switchIncr = 0;
      goomInfo->update.switchMult = goomInfo->update.switchMultAmount;
    }
  } else {
    if (goomInfo->update.cyclesSinceLastChange > TIME_BTW_CHG) {
      pzfd = &goomInfo->update.zoomFilterData;
      goomInfo->update.cyclesSinceLastChange = 0;
    } else
      goomInfo->update.cyclesSinceLastChange++;
  }

#ifdef VERBOSE
  if (pzfd) {
    printf ("GOOM: pzfd->mode = %d\n", pzfd->mode);
  }
#endif

  /* Zoom here ! */
  zoomFilterFastRGB (goomInfo, goomInfo->p1, goomInfo->p2, pzfd,
      goomInfo->screen.width, goomInfo->screen.height,
      goomInfo->update.switchIncr, goomInfo->update.switchMult);

  /*
   * Affichage tentacule
   */

  goomInfo->tentacles_fx.apply (&goomInfo->tentacles_fx, goomInfo->p1,
      goomInfo->p2, goomInfo);
  goomInfo->star_fx.apply (&goomInfo->star_fx, goomInfo->p2, goomInfo->p1,
      goomInfo);

  /*
   * Gestion du Scope
   */

  /*
   * arret demande
   */
  if ((goomInfo->update.stop_lines & 0xf000)
      || (!goomInfo->curGState->drawScope)) {
    float param1 = 0, param2 = 0, amplitude;
    int couleur;
    int mode;

    choose_a_goom_line (goomInfo, &param1, &param2, &couleur, &mode, &amplitude,
        1);
    couleur = GML_BLACK;

    goom_lines_switch_to (goomInfo->gmline1, mode, param1, amplitude, couleur);
    goom_lines_switch_to (goomInfo->gmline2, mode, param2, amplitude, couleur);
    goomInfo->update.stop_lines &= 0x0fff;
  }

  /*
   * arret aleatore.. changement de mode de ligne..
   */
  if (goomInfo->update.lineMode != goomInfo->update.drawLinesDuration) {
    goomInfo->update.lineMode--;
    if (goomInfo->update.lineMode == -1)
      goomInfo->update.lineMode = 0;
  } else if ((goomInfo->cycle % 80 == 0)
      && (goom_irand (goomInfo->gRandom, 5) == 0) && goomInfo->update.lineMode)
    goomInfo->update.lineMode--;

  if ((goomInfo->cycle % 120 == 0)
      && (goom_irand (goomInfo->gRandom, 4) == 0)
      && (goomInfo->curGState->drawScope)) {
    if (goomInfo->update.lineMode == 0)
      goomInfo->update.lineMode = goomInfo->update.drawLinesDuration;
    else if (goomInfo->update.lineMode == goomInfo->update.drawLinesDuration) {
      float param1, param2, amplitude;
      int couleur1, couleur2;
      int mode;

      goomInfo->update.lineMode--;
      choose_a_goom_line (goomInfo, &param1, &param2, &couleur1,
          &mode, &amplitude, goomInfo->update.stop_lines);

      couleur2 = 5 - couleur1;
      if (goomInfo->update.stop_lines) {
        goomInfo->update.stop_lines--;
        if (goom_irand (goomInfo->gRandom, 2))
          couleur2 = couleur1 = GML_BLACK;
      }

      goom_lines_switch_to (goomInfo->gmline1, mode, param1, amplitude,
          couleur1);
      goom_lines_switch_to (goomInfo->gmline2, mode, param2, amplitude,
          couleur2);
    }
  }

  /*
   * si on est dans un goom : afficher les lignes...
   */
  if ((goomInfo->update.lineMode != 0)
      || (goomInfo->sound.timeSinceLastGoom < 5)) {
    goomInfo->gmline2->power = goomInfo->gmline1->power;

    goom_lines_draw (goomInfo, goomInfo->gmline1, data[0], goomInfo->p2);
    goom_lines_draw (goomInfo, goomInfo->gmline2, data[1], goomInfo->p2);

    if (((goomInfo->cycle % 121) == 9)
        && (goom_irand (goomInfo->gRandom, 3) == 1)
        && ((goomInfo->update.lineMode == 0)
            || (goomInfo->update.lineMode ==
                goomInfo->update.drawLinesDuration))) {
      float param1, param2, amplitude;
      int couleur1, couleur2;
      int mode;

      choose_a_goom_line (goomInfo, &param1, &param2, &couleur1,
          &mode, &amplitude, goomInfo->update.stop_lines);
      couleur2 = 5 - couleur1;

      if (goomInfo->update.stop_lines) {
        goomInfo->update.stop_lines--;
        if (goom_irand (goomInfo->gRandom, 2))
          couleur2 = couleur1 = GML_BLACK;
      }
      goom_lines_switch_to (goomInfo->gmline1, mode, param1, amplitude,
          couleur1);
      goom_lines_switch_to (goomInfo->gmline2, mode, param2, amplitude,
          couleur2);
    }
  }

  return_val = goomInfo->p1;
  tmp = goomInfo->p1;
  goomInfo->p1 = goomInfo->p2;
  goomInfo->p2 = tmp;

  /* affichage et swappage des buffers.. */
  goomInfo->cycle++;

  goomInfo->convolve_fx.apply (&goomInfo->convolve_fx, return_val,
      goomInfo->outputBuf, goomInfo);

  return (guint32 *) goomInfo->outputBuf;
}

/****************************************
*                CLOSE                 *
****************************************/
void
goom_close (PluginInfo * goomInfo)
{
  if (goomInfo->pixel != NULL)
    free (goomInfo->pixel);
  if (goomInfo->back != NULL)
    free (goomInfo->back);
  if (goomInfo->conv != NULL)
    free (goomInfo->conv);

  goomInfo->pixel = goomInfo->back = NULL;
  goomInfo->conv = NULL;
  goom_random_free (goomInfo->gRandom);
  goom_lines_free (&goomInfo->gmline1);
  goom_lines_free (&goomInfo->gmline2);

  /* release_ifs (); */
  goomInfo->ifs_fx.free (&goomInfo->ifs_fx);
  goomInfo->convolve_fx.free (&goomInfo->convolve_fx);
  goomInfo->star_fx.free (&goomInfo->star_fx);
  goomInfo->tentacles_fx.free (&goomInfo->tentacles_fx);
  goomInfo->zoomFilter_fx.free (&goomInfo->zoomFilter_fx);

  plugin_info_free (goomInfo);
  free (goomInfo);
}


/* *** */
void
choose_a_goom_line (PluginInfo * goomInfo, float *param1, float *param2,
    int *couleur, int *mode, float *amplitude, int far)
{
  *mode = goom_irand (goomInfo->gRandom, 3);
  *amplitude = 1.0f;
  switch (*mode) {
    case GML_CIRCLE:
      if (far) {
        *param1 = *param2 = 0.47f;
        *amplitude = 0.8f;
        break;
      }
      if (goom_irand (goomInfo->gRandom, 3) == 0) {
        *param1 = *param2 = 0;
        *amplitude = 3.0f;
      } else if (goom_irand (goomInfo->gRandom, 2)) {
        *param1 = 0.40f * goomInfo->screen.height;
        *param2 = 0.22f * goomInfo->screen.height;
      } else {
        *param1 = *param2 = goomInfo->screen.height * 0.35;
      }
      break;
    case GML_HLINE:
      if (goom_irand (goomInfo->gRandom, 4) || far) {
        *param1 = goomInfo->screen.height / 7;
        *param2 = 6.0f * goomInfo->screen.height / 7.0f;
      } else {
        *param1 = *param2 = goomInfo->screen.height / 2.0f;
        *amplitude = 2.0f;
      }
      break;
    case GML_VLINE:
      if (goom_irand (goomInfo->gRandom, 3) || far) {
        *param1 = goomInfo->screen.width / 7.0f;
        *param2 = 6.0f * goomInfo->screen.width / 7.0f;
      } else {
        *param1 = *param2 = goomInfo->screen.width / 2.0f;
        *amplitude = 1.5f;
      }
      break;
    default:
      *param1 = *param2 = 0;
      break;
  }

  *couleur = goom_irand (goomInfo->gRandom, 6);
}
