Purebasic : How is it possible to code a simple EQ

Help other Members. Share your Source Codes
Forum rules
If you share codes or scripts that you haven't developed by yourself,
then you have to mention and give some credits in your post to the original author of the code or script.
inc
Site Admin
Posts: 92
Joined: 18 Apr 2016 19:38
Has thanked: 52 times
Been thanked: 52 times
Status: Offline

Purebasic : How is it possible to code a simple EQ

Postby inc » 26 Jul 2016 22:16

Hi at all. in another board i posted a PureBasic Code to show, how to display a EQ.
PureColor Lib for customizing the EQ Bars is needed + MP3D Lib

Image

Code: Select all

;
; PureColor is needed to customize the EQ Bars !
; Code inc. 2016
;
; first of all:
; install the whole FXlibs -> MP3D Lib
; http://www.flasharts.de/mpz/mp33_beta/MP3D_Installer.exe
; then
; Goto: Compiler -> Compiler Options -> Library Subsystem and input: DX9
;
Enumeration
  #Mainform
  #Wave
  #spectrum
  #win
  ; MAIN EQ CHANNELS
    #EQCHANNEL_1
    #EQCHANNEL_2
    #EQCHANNEL_3
    #EQCHANNEL_4
    #EQCHANNEL_5
    #EQCHANNEL_6
    #EQCHANNEL_7
    #EQCHANNEL_8
    #EQCHANNEL_9
    #EQCHANNEL_10
    #EQCHANNEL_11
    #EQCHANNEL_12
    #EQCHANNEL_13
    #EQCHANNEL_14
    #EQCHANNEL_15
    #EQCHANNEL_16
    ; SUB EQ CHANNELS
    #SUB_EQCHANNEL_1
    #SUB_EQCHANNEL_2
    #SUB_EQCHANNEL_3
    #SUB_EQCHANNEL_4
    #SUB_EQCHANNEL_5
    #SUB_EQCHANNEL_6
    #SUB_EQCHANNEL_7
    #SUB_EQCHANNEL_8
    #SUB_EQCHANNEL_9
    #SUB_EQCHANNEL_10
    #SUB_EQCHANNEL_11
    #SUB_EQCHANNEL_12
    #SUB_EQCHANNEL_13
    #SUB_EQCHANNEL_14
    #SUB_EQCHANNEL_15
    #SUB_EQCHANNEL_16
EndEnumeration
 
EP_InitFXLib()
InitSprite()

OpenWindow(0, 0, 0, 1024, 768, "", #PB_Window_ScreenCentered|#PB_Window_BorderLess|#PB_Window_Invisible)
;1px thin window frame
  SetWindowLongPtr_(WindowID(0),#GWL_STYLE,GetWindowLongPtr_(WindowID(0),#GWL_STYLE)|#WS_BORDER)
  SetWindowPos_(WindowID(0), 0,0,0,0,0,#SWP_NOSIZE|#SWP_NOMOVE|#SWP_NOZORDER|#SWP_FRAMECHANGED)
 
;define demo screen
  MP_ScreenToHandle(WindowID(0))
 
;////////////////////////////////////
; DEFINE CHANNELS 1 to 16
;////////////////////////////////////
  Define Ch1VULeft.f, Ch1VURight.f
  Define Ch2VULeft.f, Ch2VURight.f
  Define Ch3VULeft.f, Ch3VURight.f
  Define Ch4VULeft.f, Ch4VURight.f
  Define Ch5VULeft.f, Ch5VURight.f
  Define Ch6VULeft.f, Ch6VURight.f
  Define Ch7VULeft.f, Ch7VURight.f
  Define Ch8VULeft.f, Ch8VURight.f
  Define Ch9VULeft.f, Ch9VURight.f
  Define Ch10VULeft.f, Ch10VURight.f
  Define Ch11VULeft.f, Ch11VURight.f
  Define Ch12VULeft.f, Ch12VURight.f
  Define Ch13VULeft.f, Ch13VURight.f
  Define Ch14VULeft.f, Ch14VURight.f
  Define Ch15VULeft.f, Ch15VURight.f
  Define Ch16VULeft.f, Ch16VURight.f
 
  ; MAIN EQs
  ;{
  ProgressBarGadget(#EQCHANNEL_1, 132, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; EQ Channel 1
    PureCOLOR_SetGadgetColor(#EQCHANNEL_1, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_1, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_2, 180, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; EQ Channel 2
    PureCOLOR_SetGadgetColor(#EQCHANNEL_2, $000000, #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_2, $DBDBDC,$000000)
  ProgressBarGadget(#EQCHANNEL_3, 228, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; EQ Channel 3
    PureCOLOR_SetGadgetColor(#EQCHANNEL_3, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_3, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_4, 276, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; EQ Channel 4
    PureCOLOR_SetGadgetColor(#EQCHANNEL_4, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_4, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_5, 324, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; EQ Channel 5
    PureCOLOR_SetGadgetColor(#EQCHANNEL_5, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_5, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_6, 372, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; EQ Channel 6
    PureCOLOR_SetGadgetColor(#EQCHANNEL_6, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_6, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_7, 420, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; EQ Channel 7
    PureCOLOR_SetGadgetColor(#EQCHANNEL_7, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_7, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_8, 468, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; EQ Channel 8
    PureCOLOR_SetGadgetColor(#EQCHANNEL_8, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_8, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_9, 516, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; EQ Channel 9
    PureCOLOR_SetGadgetColor(#EQCHANNEL_9, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_9, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_10, 564, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; EQ Channel 10
    PureCOLOR_SetGadgetColor(#EQCHANNEL_10, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_10, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_11, 612, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; EQ Channel 11
    PureCOLOR_SetGadgetColor(#EQCHANNEL_11, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_11, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_12, 660, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; EQ Channel 12
    PureCOLOR_SetGadgetColor(#EQCHANNEL_12, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_12, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_13, 708, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; EQ Channel 13
    PureCOLOR_SetGadgetColor(#EQCHANNEL_13, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_13, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_14, 756, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; EQ Channel 14
    PureCOLOR_SetGadgetColor(#EQCHANNEL_14, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_14, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_15, 804, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; EQ Channel 15
    PureCOLOR_SetGadgetColor(#EQCHANNEL_15, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_15, $DBDBDC,BackColor.l)
  ProgressBarGadget(#EQCHANNEL_16, 852, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; EQ Channel 16
    PureCOLOR_SetGadgetColor(#EQCHANNEL_16, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#EQCHANNEL_16, $DBDBDC,BackColor.l)
;}
   
  ; SUB EQs
  ;{
  ProgressBarGadget(#SUB_EQCHANNEL_1, 156, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; SUB EQ Channel 1
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_1, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_1, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_2, 204, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; SUB EQ Channel 2
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_2, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_2, RGB(149, 124, 124),$000000)
  ProgressBarGadget(#SUB_EQCHANNEL_3, 252, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; SUB EQ Channel 3
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_3, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_3, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_4, 300, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; SUB EQ Channel 4
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_4, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_4, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_5, 348, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; SUB EQ Channel 5
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_5, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_5, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_6, 396, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; SUB EQ Channel 6
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_6, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_6, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_7, 444, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; SUB EQ Channel 7
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_7, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_7, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_8, 492, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; SUB EQ Channel 8
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_8, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_8, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_9, 540, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)   ; SUB EQ Channel 9
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_9, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_9, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_10, 588, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; SUB EQ Channel 10
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_10, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_10, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_11, 636, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; SUB EQ Channel 11
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_11, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_11, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_12, 684, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; SUB EQ Channel 12
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_12, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_12, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_13, 732, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; SUB EQ Channel 13
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_13, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_13, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_14, 780, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; SUB EQ Channel 14
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_14, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_14, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_15, 828, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; SUB EQ Channel 15
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_15, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_15, RGB(149, 124, 124),BackColor.l)
  ProgressBarGadget(#SUB_EQCHANNEL_16, 876, 630, 20, 70, 0, 100, #PB_ProgressBar_Smooth|#PB_ProgressBar_Vertical)  ; SUB EQ Channel 16
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_16, RGB(0,0,0), #PureCOLOR_DontSetBackColor)
    PureCOLOR_SetGadgetColor(#SUB_EQCHANNEL_16, RGB(149, 124, 124),BackColor.l)
;}

EP_Init2DStars(200,7,1.3,0,0,1024,768)
EP_2DStarsColor(1,RGB(255,0,0))
EP_FastRasterBar(0,RGB(40,140,250),50)
EP_FastRasterBar(1,RGB(135,135,135),50)

;////////////////////////////////////
;- SINUS FONT
;////////////////////////////////////
    EP_CatchFont32(bmpfont,?font, ?endfont)
    EP_SetScrollText(bmpfont,"  yep ! ... that's it, 32 Band PSEUDO EQ and all works good !! ")     
    EP_Create32Scroll(bmpfont, 0, 0,360, 0,1030)
    ;EP_SetScroll32Speed(bmpfont, 2)
    EP_SetSinScroll32(bmpfont, 0, 1, 170, -2)
   
;////////////////////////////////////
;-LOAD AND PLAY V2M Sound
;////////////////////////////////////
      MP_CatchV2M(?Song)  ;LOAD SONG
      MP_PlayV2M(0)       ;0 START SOUND FROM THE BEGINNING
     
HideWindow(0,#False)     
     

;----MainLoop---------------------------------------------------------------

Repeat
 event=WindowEvent()         
 
 MP_RenderBegin()
;////////////////////////////////////
; Display the Channel MAIN EQ´s
;////////////////////////////////////
       MP_GetChannelVUV2M(1,@Ch1VULeft, @Ch1VURight)
       MP_GetChannelVUV2M(2,@Ch2VULeft, @Ch2VURight)
       MP_GetChannelVUV2M(3,@Ch3VULeft, @Ch3VURight)
       MP_GetChannelVUV2M(4,@Ch4VULeft, @Ch4VURight)
       MP_GetChannelVUV2M(5,@Ch5VULeft, @Ch5VURight)
       MP_GetChannelVUV2M(6,@Ch6VULeft, @Ch6VURight)
       MP_GetChannelVUV2M(7,@Ch7VULeft, @Ch7VURight)
       MP_GetChannelVUV2M(8,@Ch8VULeft, @Ch8VURight)
       MP_GetChannelVUV2M(9,@Ch9VULeft, @Ch9VURight)
       MP_GetChannelVUV2M(10,@Ch10VULeft, @Ch10VURight)
       MP_GetChannelVUV2M(11,@Ch11VULeft, @Ch11VURight)
       MP_GetChannelVUV2M(12,@Ch12VULeft, @Ch12VURight)
       MP_GetChannelVUV2M(13,@Ch13VULeft, @Ch13VURight)
       MP_GetChannelVUV2M(14,@Ch14VULeft, @Ch14VURight)
       MP_GetChannelVUV2M(15,@Ch15VULeft, @Ch15VURight)
       MP_GetChannelVUV2M(16,@Ch16VULeft, @Ch16VURight)
       
       SetGadgetState(#EQCHANNEL_1,(Ch1VULeft + Ch1VURight)*20)
       SetGadgetState(#EQCHANNEL_2,(Ch2VULeft + Ch2VURight)*20)
       SetGadgetState(#EQCHANNEL_3,(Ch3VULeft + Ch3VURight)*20)
       SetGadgetState(#EQCHANNEL_4,(Ch4VULeft + Ch4VURight)*20)
       SetGadgetState(#EQCHANNEL_5,(Ch5VULeft + Ch5VURight)*10)
       SetGadgetState(#EQCHANNEL_6,(Ch6VULeft + Ch6VURight)*20)
       SetGadgetState(#EQCHANNEL_7,(Ch7VULeft + Ch7VURight)*20)
       SetGadgetState(#EQCHANNEL_8,(Ch8VULeft + Ch8VURight)*20)
       SetGadgetState(#EQCHANNEL_9,(Ch9VULeft + Ch9VURight)*20)
       SetGadgetState(#EQCHANNEL_10,(Ch10VULeft + Ch10VURight)*20)
       SetGadgetState(#EQCHANNEL_11,(Ch11VULeft + Ch11VURight)*20)
       SetGadgetState(#EQCHANNEL_12,(Ch12VULeft + Ch12VURight)*20)
       SetGadgetState(#EQCHANNEL_13,(Ch13VULeft + Ch13VURight)*20)
       SetGadgetState(#EQCHANNEL_14,(Ch14VULeft + Ch14VURight)*20)
       SetGadgetState(#EQCHANNEL_15,(Ch15VULeft + Ch15VURight)*20)
       SetGadgetState(#EQCHANNEL_16,(Ch16VULeft + Ch16VURight)*20)
;////////////////////////////////////
; Display the Channels: SUB EQ´s --> they are not important i used them to double the 16 EQ
;////////////////////////////////////
       SetGadgetState(#SUB_EQCHANNEL_1,(Ch9VULeft + Ch9VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_2,(Ch15VULeft + Ch15VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_3,(Ch14VULeft + Ch14VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_4,(Ch13VULeft + Ch13VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_5,(Ch12VULeft + Ch12VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_6,(Ch11VULeft + Ch11VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_7,(Ch10VULeft + Ch10VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_8,(Ch16VULeft + Ch16VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_9,(Ch3VULeft + Ch3VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_10,(Ch7VULeft + Ch7VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_11,(Ch6VULeft + Ch6VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_12,(Ch5VULeft + Ch5VURight)*10)
       SetGadgetState(#SUB_EQCHANNEL_13,(Ch4VULeft + Ch4VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_14,(Ch8VULeft + Ch8VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_15,(Ch2VULeft + Ch2VURight)*20)
       SetGadgetState(#SUB_EQCHANNEL_16,(Ch1VULeft + Ch1VURight)*20)
       
; EQ BASE LINE     
   MP_LineXY(110, 700, 918,700, RGB(42, 42, 42))       
   
   
 EP_2DStarsDraw()
 EP_2DStarsDegree(b.f) ; RANDOM DEGREE
 b.f - 0.1

 EP_DisplayRasterBar(0,30)
 EP_DisplayRasterBar(1,735)
 EP_Move32Scroll(0)

 MP_Render2D ()     
 MP_RenderSprite ()
 MP_RenderEnd()
 MP_Flip ()
 
;//////////////////////////////////// 
;- DRAG WINDOW
;////////////////////////////////////
  Select Event
      Case #WM_LBUTTONDOWN   
        If WindowMouseX(0) >= 0 And WindowMouseX(0) <= 1024 And WindowMouseY(0) >= 0 And WindowMouseY(0) <= 768
           SendMessage_(WindowID(0), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)   
         EndIf
  EndSelect
 
 Until GetAsyncKeyState_(#VK_ESCAPE):End
     
 DataSection
  font:
  IncludeBinary "font\2.bmp"
  endfont:

  Song:
  IncludeBinary "sound\scream.v2m"
EndDataSection
Only registered members are able to see and download attachments from Aftermath. You must LOGIN or REGISTER to view these files.

User avatar
WhiteWolf
Site Admin
Posts: 297
Joined: 11 Apr 2016 17:49
Has thanked: 78 times
Been thanked: 60 times
Status: Offline

Re: How is it possible to code a simple EQ

Postby WhiteWolf » 27 Jul 2016 01:44

Wow that looks quite impressive inc cool looking code my friend keep up the good work :icon_respekt:
(¯`·._.·currently working on Windows [AM]WEBDEFF Editor DemoTool Project.·._.·´¯)

omnikam
PureBasicCoder.
Posts: 7
Joined: 12 Apr 2017 22:19
Has thanked: 2 times
Been thanked: 9 times
Status: Offline

Re: Purebasic : How is it possible to code a simple EQ

Postby omnikam » 05 May 2017 19:59

Nice one inc :icon_prost:


alveo

Return to “Purebasic”

Who is online

Users browsing this forum: No registered users and 1 guest

Created by Matti from StylesFactory.pl and Warlords of Draenor


483,973 Page visits

Powered by phpBB® Forum Software © phpBB Limited