colores por aqui un poco

Author: jmgbsas

(01)testj.ejec

@@ -65,6 +65,29 @@ end Operator
 #Define  HH_DISPLAY_INDEX 0002
 #Define  HH_DISPLAY_SEARCH 0003
 #Define  HH_CLOSE_ALL  0018
+Const CHECK_PISTA_ROLL=5
+Const NoGrabar=0
+Const BTN_LIBERADO=0
+Const GrabarPatronaDisco=4
+Const GrabarPistaEjecucion=1
+Const PatronDeEjecucionCompleto=3
+Const LISTA_DE_PISTAS = 3
+Const LISTA_DE_EJECUCIONES   =4
+Const CHECK_SELECCION_EJECUCION=6
+Const CHECK_GRABAR_EJECUCION    = 7
+Const GRUPO_BTNS_MIDI           =8
+Const BTN_MIDI_PARAR        = 9
+Const BTN_MIDI_GRABAR     = 10
+Const BTN_MIDI_EJECUTAR   = 14
+Const GRUPO_BTNS_MANUAL =13
+Const BTN_ROLL_PARAR    = 11
+Const BTN_ROLL_EJECUTAR = 12
+Const BTN_ROLL_GRABAR_MIDI = 15
+Const BTN_PARAM_PORTSAL =16
+Const BTN_PARAM_VOL        = 17
+Const BTN_PARAM_PAN        =18
+Const BTN_PARAM_PATCH    = 19
+Const BTN_PARAM_CANAL    = 20
 
 Dim HtmlHelpA As Function (hwndCaller As HWND,pszFile As LPCSTR,uCommand As UINT,dwData As DWORD_PTR) As HWND
 Dim  HTMLHelp As Function ( hWndCaller As hwnd,  pszFile As String,  ByVal uCommand As Integer,  dwData As DWORD_PTR) As Integer
@@ -572,8 +595,9 @@ Dim Shared As Integer pesoDur (0 To 182)  => {0, _ 'era 108
 17500000,8750000,4375000,2187500,1093750,546875,273438,136719,68360, _ '163 171
  6666666,3333333,1666666, 833333, 416666,208333,104166, 52083,26042,0,0 }  '172 182
 
-Dim Shared As String nombreArchivo, TCompas,menuOldStr
-
+Dim Shared As String nombreArchivo, TCompas,menuOldStr, ticksdefault,nombrePatron
+Dim Shared As Integer nroCompasesPatron, nroTicksPatron
+nombreArchivo="" : ticksdefault="240"
 Dim Shared As UByte Vfuerte=120,Vsemifuerte=100,Vdebil=80
 TCompas ="4/4"
 'Dim Shared As Integer MaxPosTrack(0 To 32) ' cada track tendra su max pos
@@ -847,7 +871,7 @@ Declare Function lugarNota (lugar As integer) As Integer
 Declare Sub metronomo ()
 
 COMMON Shared As Long eventc
-Common Shared As hwnd hwndC, hwndListBox, hwndListEjec
+Common Shared As hwnd hwndC, hwndListBox, hwndListEjec, hwndPatronEjec
 Common Shared As BOOLEAN ROLLCARGADO, TRACKCARGADO, CANCIONCARGADA , NADACARGADO, CANCIONCREADA,EJECCARGADA 
 Common Shared As string pathdir,nombre,nombreMidiIn
 common Shared As String NombreCancion,NombrePista
@@ -857,7 +881,7 @@ Common Shared As Any Ptr surface,surf2
 Common Shared as any ptr thread1, thread2,threadPenta,thread3,pubi,threadloop,p1,threadMenu, threadmetronomo
 Common Shared As Any Ptr thread4, threadGrabamidi
 Common Shared As Integer nfont,nmxold,nmyold,nancho,nalto,ndeltaip,nVerEscalasAuxiliares,nanchofig,nVerCifradoAcordes
-Common Shared As Integer mxold,myold, w,h,grado,trasponer,canalx
+Common Shared As Integer mxold,myold, w,h,grado,trasponer,canalx, HabilitarPatrones
 Common Shared As ubyte patchsal
 Common Shared As Integer  posicion,posicionOld,posn,terminar
 COMMON Shared As Integer MaxPos,ntk,CPlay, guardopos,ntktab,ntoca,ntkp,npi,calltoca,npo
@@ -902,7 +926,7 @@ Type midicod Field=1
  As UByte  vel
  As Integer partes
 End Type
-Redim shared CargaIn ( 1 To 4000) As midicod
+Redim shared CargaIn ( 1 To 384000) As midicod
 ' a disco puedo grabarsolo CargaIn para cada ejecucion y al cargarla reconstruir en memoria
 ' los Toca,,,,eso es!!! y sumando todas las partes y dividiento por TickChico obtengo 
 ' elmaxposy por ende el valor a dimensioar el Toca....
@@ -961,7 +985,7 @@ Dim Shared As Double  t2call=0, t1play=0
 
 Type paramGrabamidi
   As vivo toc
-  As Integer  tocatope
+  ''As Integer  tocatope ''' no hace falta esta estructura solo contiene una pista
   As ejecparam tocap
 End Type
 

4NEGRAS-LIGADAS.roll

@@ -1,10 +1,16 @@
+' 149 corregi la entrada de port y salada para las ejecuciones,,, ver si anda para cancion,,,
+' lo importante es que toque en varios lados del codigo el pvalor de portin y portout
+' y hay diferencia en port reales que se envian a rtmidi comenzando en cero y ports logicos para el 
+' programa que empiezan desde 1 ,,,,verificar que todo funciona,,, a lo mejor sonoalgo o talvez
+' anda mejor porque en varios lados se enviaba al fisico el portout sin restarle 1 verificar exhaustivamnete!!!
+' ============================================
 ' apertura de ports en play  
 ' tiempoPatron a entero no tiene porque ser double, se graba en archivo
 ' Se agrego formar acordes aun sin nota en el lugar elegido, se deb eentrar al duracion
 ' Triadas desde Tonica completo Mayor Menor Disminuido formacion y play 
 ' fix consumo cpu S5=2 y fueradefoco=0 eliminado
 ' Funciona Acorde en Tonica triaca,,Ctrl+clik derecho luego seguir con mayor hasta no inversion
-' SE ELIMINO DE 'Q' la configuracion de tamaños, proporciones y font
+' SE ELIMINO DE 'Q' la configuracion de tama�os, proporciones y font
 ' se agrego nverEscalasAuxiliares y nanchofig a RollMusic.ini
 ' se agrego en Ver, si se ven o no las Escalas Auxiliares en el grafico
 ' TODO MULTIKEY IR PASANDO DE A POCO PROBANDO A E.SCANCODE MULTIKEY ES UNA BASURA REPITE EL COMANDO MIL VECES
@@ -15,7 +21,7 @@
 ' antes que midi despue salgun dia haremos midi no se veremos.... 
 ' http://xmlsoft.org/examples/index.html
 ' YA cierra todas las sesiones de rollmusic desde control
-' futuro grabar mxold y algo mas para conservar el tamaño de la ventana y el tamaño del font
+' futuro grabar mxold y algo mas para conservar el tama�o de la ventana y el tama�o del font
 ' usado por el usuario !!!! OK Y AANDA
 ' el borrado de columna esta defectuoso hay que dar 0 y luego 12 x en toda la octava para
 ' que borre mejor usaremos marcas de zona para borrar.
@@ -224,7 +230,8 @@ Common Shared  mensaje As Integer
 Const list_item_data_key ="list_item_data"
 ' fin GTK
 ' -- INICIO openGL GLFW 3.1.1 
-' habilitamos OPENGL para ver si podemso mostrar la grabacion de ejecucion
+/'
+' habilitamos OPENGL para ver si podemso mostrar la grabacion de ejecucion u otra cosa
 ' de entrada por MIDI-IN.
 #Include once "glfw3.bi"
 If glfwInit()=GL_FALSE then
@@ -233,7 +240,7 @@ If glfwInit()=GL_FALSE then
 end If
 Dim As GLFWwindow ptr  win
 ' ----FIN OPENGL 
-
+'/
 '===============================
 #include "ROLLDEC.BI"
 
@@ -294,7 +301,7 @@ Open "secuencia.txt" For Output As 5
 Const NEWLINE = !"\n"
 
 'tempo I=160, seri equivalente a O=40 como l maxima cantdad de ticks de O es
-' eldela figura mas pequeña=128 ticks...40 * 128 = 5120 por minuto.
+' eldela figura mas peque�a=128 ticks...40 * 128 = 5120 por minuto.
 ' Si deseo un secuecnia de CantMin minutos
 tempo=160  ' negra=160
 CantMin=15
@@ -484,7 +491,7 @@ ReDim (Track(32).trk ) (1 To Ctres,1 To lim1)
 ' o sea en las posiciones, lo que debo hacer es cargar estos Tracks
 ' con eventos pero para mostrarlso usaria el Roll 
 ' suponemos que cada track solo puede tener acordes de hasta 12 notas,1 to lim2
-' en el momento de la carga de Roll cargar tambien Track ¿?
+' en el momento de la carga de Roll cargar tambien Track �?
 ' creo que no solo debo copiar en el momento antes de grabar o reproducir
 ' debere hAcer otro play PlayTracks en donde se ejecutara todos los tracks
 ' barriendo la posicion comun a todos y las notas de cada uno EN SINCRONIA CON LA VISUALIZACION!
@@ -670,7 +677,7 @@ Var Shared ft => FreeType()
 '' Load a font with FreeType
 Common Shared As FT_Face ftface
 FT_New_Face( ft, "Bebaskai.otf", 0, @ftface )
-
+common shared as any ptr BRUSH
 ' ========== CONTROL DEL NRO DE OCTAVAS MOSTRADO SE PODRA PONER PARA EL USUARIO
 ' VER SI SE PUEDE USAR ARRAYS POR PORCIONES
 '----- -FIN
@@ -700,11 +707,11 @@ midiout(0) = rtmidi_out_create_default() ''  new RtMidiOut();
 
 
 'print #1,"PLAYALL---------->>>>>>>"
-portsout =  port_count (midiout(0))
-portsin  =  port_count(midiin(0))
+portsout =  port_count (midiout(0)) ' es una constante
+portsin  =  port_count(midiin(0)) ' es una constante
 Dim i1 As Integer
 Print #1, "portsin  "; portsin
-Print #1, "portsout "; portsout
+Print #1, "portsout ";portsout
 
 ReDim  listOutAbierto (0 To portsout)
 ReDim  listInAbierto  (0 To portsin)
@@ -742,3 +749,6 @@ For i1 = 0 To portsout -1
 Next i1  
 
 '---------------------
+' por omision el programa empieza con portin y portout en 1
+'portin=1
+'portout=1

EJECS/(01)SINCRO-001.ejec

@@ -871,7 +871,7 @@ stride = cairo_format_stride_for_width(CAIRO_FORMAT_ARGB32, ANCHO)
 ' queda congelado en los 1eros compasaes mostrados al terminar esos procesos mencionados
 ' se se libera la escrituta al grafico...vermeos si sirve para seguirgrabando pistas y reproduciendo 
 ' en mejores condiciones,,,
-If  cargaCancion=1  Or repro=1 Or  GrabarEjec=1 Then
+If  cargaCancion=1  Or repro=1 Or  GrabarEjec=GrabarPistaEjecucion Then
 ' esta cargando cancion 
    'Locate 5,10
    'Print "CARGANDO ...PISTA Nro ", ntk