midinous 1.0.0.beta

data/README.md

@@ -0,0 +1,31 @@
+# Midinous: Grid-based Generative Music Software
+
+Midinous combines generative features with a grid-based GUI to offer a supplemental unique compositional experience
+
+## Requirements
+
+* [GTK3](http://www.gtk.org/) 3.3.6 or later
+* Midinous is designed to run on 64-bit architectures
+* You must have 64-bit Ruby version 2.5.5 installed with the devkit and MSYS2
+
+## Install
+
+    gem install midinous
+
+## Tutorials, examples:
+
+* doc/Hotkeys.txt: Useful hotkeys used within the program
+* saves/sample.nous: Example Midinous project having every basic feature. Experiment from this starting point!
+
+## License
+
+Copyright (C) 2019 James "Nornec" Ratliff
+
+Midinous is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+## Project Websites
+
+* https://github.com/Nornec/Midinous

data/lib/doc/Hotkeys.txt

@@ -0,0 +1,30 @@
+[            -- decrement grid size/change time signature divisor -1
+]            -- increment grid size/ change time signature divisor +1
+{            -- decrement time signature denominator (slows down play) - min 2
+}            -- increment time signature denominator (speeds up play) - max 16
+delete       -- deletes selected point(s)
+home         -- deletes paths entering selected point(s)
+end          -- deletes paths leaving selected point(s)
+Page Up      -- change path direction
+Page Down    -- change path direction
+A            -- Make starting point (need at least 1 to begin play)
+T            -- Built path - build a path between one or more points
+Q            -- Select Tool - Box select or single select points
+W            -- Point Place Tool - Places a point
+E            -- Move Tool - moves selected points based on a stencil
+R            -- Path Tool - Select source point, select target points, push build path or hit 'T'
+< and >      -- Cycle Play Mode - between robin, portal (random, split, if more than one path is leaving a point)
+, and .      -- Cycle starting path if more than one path is leaving a point
++ and -      -- add or subtract 1 from the currently selected points' note
+Num 6        -- play
+Num 5        -- stop
+space        -- toggle play/stop
+Ctrl+A       -- select all
+Ctrl+C       -- copy selected points
+Ctrl+X       -- cut selected points
+Ctrl+V       -- paste copied/cut points
+Ctrl+O       -- Open
+Ctrl+S       -- Save
+Shift+Ctrl+S -- Save As
+Ctrl+N       -- New
+Ctrl+Q       -- Quit

data/lib/doc/Notes and Scales.txt

@@ -0,0 +1,64 @@
+Note                   Octave
+    -2  -1   0   1   2   3   4   5   6   7   8
+C    0  12  24  36  48  60  72  84  96 108 120
+C#   1  13  25  37  49  61  73  85  97 109 121
+D    2  14  26  38  50  62  74  86  98 110 122
+D#   3  15  27  39  51  63  75  87  99 111 123
+E    4  16  28  40  52  64  76  88 100 112 124
+F    5  17  29  41  53  65  77  89 101 113 125
+F#   6  18  30  42  54  66  78  90 102 114 126
+G    7  19  31  43  55  67  79  91 103 115 127
+G#   8  20  32  44  56  68  80  92 104 116 -
+A    9  21  33  45  57  69  81  93 105 117 -
+A#  10  22  34  46  58  70  82  94 106 118 -
+B   11  23  35  47  59  71  83  95 107 119 -
+
+Note                   Octave
+    -2  -1   0   1   2   3   4   5   6   7   8
+C   00  0C  18  24  30  3C  48  54  60  6C  78
+C#  01  0D  19  25  31  3D  49  55  61  6D  79
+D   02  0E  1A  26  32  3E  4A  56  62  6E  7A
+D#  03  0F  1B  27  33  3F  4B  57  63  6F  7B
+E   04  10  1C  28  34  40  4C  58  64  70  7C
+F   05  11  1D  29  35  41  4D  59  65  71  7D
+F#  06  12  1E  2A  36  42  4E  5A  66  72  7E
+G   07  13  1F  2B  37  43  4F  5B  67  73  7F
+G#  08  14  20  2C  38  44  50  5C  68  74  -
+A   09  15  21  2D  39  45  51  5D  69  75  -
+A#  0A  16  22  2E  3A  46  52  5E  6A  76  -
+B   0B  17  23  2F  3B  47  53  5F  6B  77  -
+
+W = whole tone, H = Half tone
+Scales and their relative intervals
+Aeolian              R-W-H-W-W-H-W-W
+Altered              R-H-W-H-W-W-W-W
+Augmented            R-3H-H-3H-H-3H-H
+Blues                R-3H-W-H-H-3H-W
+Chromatic            R-H-H-H-H-H-H-H-H-H-H-H-H
+Dorian               R-W-H-W-W-W-H-W
+Flamenco             R-H-3H-H-W-H-3H-H
+Half Diminished      R-W-H-W-H-W-W-W
+Harmonic major       R-W-W-H-W-H-3H-H
+Harmonic minor       R-W-H-W-W-H-3H-H
+Hirajoshi            R-2W-W-H-2W-H
+Hungarian            R-W-H-3H-H-H-3H-H
+Insen                R-H-2W-W-2W-W
+Ionian               R-W-W-H-W-W-W-H
+Iwato                R-H-2W-H-2W-W
+Locrian              R-H-W-W-H-W-W-W
+Locrian Major        R-W-W-H-H-W-W-W
+Lydian               R-W-W-W-H-W-W-H
+Lydian Augmented     R-W-W-W-W-H-W-H
+Pentatonic Major     R-W-W-3H-W-3H
+Pentatonic Minor     R-3H-W-W-3H-W
+Melodic minor        R-W-H-W-W-W-W-H
+Mixolydian           R-W-W-H-W-W-H-W
+Octatonic Whole      R-W-H-W-H-W-H-W-H
+Octatonic Half       R-H-W-H-W-H-W-H-W
+Persian              R-H-3H-H-H-W-3H-H
+Phrygian             R-H-W-W-W-H-W-W
+Prometheus           R-W-W-W-3H-H-W
+Tritone              R-H-3H-W-H-3H-W
+Two-semitone Tritone R-H-H-4H-H-H
+Ukrainian Dorian     R-W-H-3H-H-W-H-W
+Whole Tone           R-W-W-W-W-W-W

data/lib/midinous/canvas.rb

@@ -0,0 +1,388 @@
+#   Copyright (C) 2019 James "Nornec" Ratliff
+#
+#   This file is part of Midinous
+#
+#   Midinous is free software: you can redistribute it and/or modify
+#   it under the terms of the GNU General Public License as published by
+#   the Free Software Foundation, either version 3 of the License, or
+#   (at your option) any later version.
+#
+#   Midinous 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 General Public License for more details.
+#
+#   You should have received a copy of the GNU General Public License
+#   along with Midinous.  If not, see <https://www.gnu.org/licenses/>.
+
+require "midinous/points"
+
+class Canvas_Control
+	include Logic_Controls 
+	attr_accessor :nouspoints, :travelers, :beats, :beat_note, :scale, :root_note,
+	              :tempo, :repeaters, :queued_note_plays, :queued_note_stops
+	attr_reader :grid_spacing, :midi_sync, :ms_per_tick, :dragging, :start_time, 
+              :mouse_last_pos, :scale_posns
+	def initialize
+		@mouse_last_pos = nil
+		@sel_box      = nil
+		@selecting    = false
+		@sel_white    = [0.8,0.8,0.8,0.1] 	#selection box colors
+		@sel_blue     = [0,0.5,1,0.5]      #selection box colors
+		@point_origin = nil
+		@path_origin  = nil
+		@point_move   = nil
+		@dragging     = false
+		@diff         = [0,0]
+		@nouspoints   = []
+		@travelers    = []
+		@starters     = []
+		@repeaters    = []
+		@scale        = "Chromatic"
+		@root_note    = 60
+		@scale_notes  = []
+		@scale_posns  = []
+		set_scale(@scale,@root_note)
+		@tempo        = 120.000
+		@midi_sync    = 0.000
+		@path_sourced = false
+		@attempt_path = false
+		@ms_per_tick  = 125.000 #default tempo of 120bpm
+		@beats        = 4 #number of beats in a whole note -- should be reasonably between 1 and 16
+		@beat_note    = 4 #as a fraction of a whole note   -- should be between 2 and 16 via powers of 2
+		@grid_spacing = 35
+		@queued_note_plays = []
+		@queued_note_stops = []
+	end
+
+	def set_tempo(tempo)
+		@tempo = tempo
+		@ms_per_tick = (1000 * (15 / @tempo)) / (@beat_note / 4)
+	end
+	def set_scale(scale_text,root)
+		@scale = scale_text
+		@root_note = root
+		scale = SCALES[scale_text]
+		slen = scale.length
+		@scale_notes = []
+		@scale_notes << root
+		
+		c = 0
+		note = root
+		while note < 127
+			note += scale[c]
+			@scale_notes << note unless note > 127
+			c = (c + 1) % slen
+		end
+
+		c = 0
+		note = root
+		while note > 0
+			note -= scale.reverse[c]
+			@scale_notes << note unless note < 0
+			c = (c + 1) % slen
+		end
+		@scale_notes.sort!
+		
+		(0..127).each do |num|
+			@scale_posns[num] = false
+			@scale_posns[num] = true if @scale_notes.find {|f| f == num} != nil
+		end
+	end
+	
+	def canvas_generic(string) #Used as a pseudo-handler between classes
+		case string
+		when "path" 
+			if !@nouspoints.empty? && @nouspoints.find_all(&:pathable).any?
+				@nouspoints = Pl.add_path(@nouspoints)
+				@nouspoints, @path_sourced = Pl.cancel_path(@nouspoints)
+				UI::canvas.queue_draw
+			end
+		when "prop"
+			@nouspoints = Pl.modify_properties(@nouspoints)
+			Pl.populate_prop(@nouspoints)
+			UI::canvas.queue_draw
+		end
+	end
+	
+	def canvas_play
+		
+		if @nouspoints.find(&:traveler_start)
+			@playing = true
+			@nouspoints.find_all {|n| n.path_to.length > 1}.each {|p| p.path_to.each {|e| p.path_to_memory << e}}
+			UI::play.sensitive = false
+			UI::stop.sensitive = true
+		end
+
+		@nouspoints.find_all(&:traveler_start).each do |n|
+			@starters << Starter.new(nil,n,nil)
+			UI::canvas.queue_draw
+			@queued_note_plays.each {|o| o.play}
+			signal_chain(n,n.note)
+		end
+		@stored_time = Time.now.to_f*1000
+		canvas_timeout(@ms_per_tick) #Start sequence
+	end
+
+	def canvas_timeout(ms)
+		GLib::Timeout.add(ms) do
+			UI::canvas.signal_emit('travel-event') unless !@playing
+			false
+		end
+	end
+
+	def canvas_travel
+		@queued_note_plays = []
+		canvas_stop if !@playing               || 
+		               (@travelers.length == 0 && 
+									  @starters.length  == 0 && 
+										@repeaters.length == 0)
+		
+		@starters.each  {|s| s.travel}
+		@travelers.each {|t| t.travel}
+		@travelers.find_all(&:reached).each do |t|
+			signal_chain(t.dest,t.played_note) #Pass the last played note here. Gather the played note from the first traveler creation
+			t.reached = false
+		end
+		@repeaters.each {|r| r.repeat}
+		
+		@queued_note_stops.each {|n| n.stop}
+		@queued_note_plays.each {|n| n.play}
+		@starters.reject!(&:remove)
+		@travelers.reject!(&:remove)
+		@repeaters.reject!(&:remove)
+		@queued_note_stops = []
+
+		canvas_timeout(sync_diff(@stored_time))
+		@stored_time += @ms_per_tick
+		UI::canvas.queue_draw
+	end
+	
+	def canvas_stop
+		@playing = false
+		@starters  = []
+		@repeaters = []
+		@queued_note_plays = []
+		@queued_note_stops = []
+		@nouspoints.find_all {|n| n.path_to.length > 1}.each {|p| p.reset_path_to}
+		UI::canvas.queue_draw
+		@nouspoints.each do |n|
+			n.playing = false
+			n.repeating = false
+			Pm.note_rlse(n.channel,n.note) unless n.note.to_s.include?("+") || n.note.to_s.include?("-")
+		end
+		@travelers.each do |t|
+			Pm.note_rlse(t.dest.channel,t.played_note) unless t.played_note == nil
+		end
+		@travelers = []
+		UI::stop.sensitive = false
+		UI::play.sensitive = true
+	end
+	
+	def signal_chain(point,pn) #pn = played note
+		case point.play_modes[0]
+		when "robin"
+			p = point.path_to.first
+			if p
+				@travelers << Traveler.new(point,p,pn)
+				point.path_to.rotate!
+			end
+		when "split"
+			point.path_to.each {|p| @travelers << Traveler.new(point,p,pn)}
+		when "portal"
+			point.path_to.each do |p|
+				@starters << Starter.new(point,p,pn)
+				UI::canvas.queue_draw
+				#@queued_note_plays.each {|o| o.play}
+				signal_chain(p,pn)
+			end
+		when "random"
+			p = point.path_to.sample
+			if p
+				@travelers << Traveler.new(point,p,pn)
+				point.path_to.rotate!(rand(point.path_to.length))
+			end
+		end
+	end
+	
+	def canvas_grid_change(dir)
+		prev_beat_note = @beat_note
+		case dir
+		when "+"
+			@beats += 1
+			@beats = 16 if @beats > 16
+		when "-"
+			@beats -= 1
+			@beats = 1 if @beats < 1
+		when "++"
+			@beat_note *= 2
+			@beat_note = 16 if @beat_note > 16
+		when "--"
+			@beat_note /= 2
+			@beat_note = 2      if @beat_note < 2
+		end
+		if @beat_note != prev_beat_note
+			case dir
+			when "++"
+				@ms_per_tick /= 2
+			when "--"
+				@ms_per_tick *= 2
+			end
+		end
+		UI::t_sig.text = "#{@beats}/#{@beat_note}"
+		UI::canvas.queue_draw
+	end
+	
+	def canvas_press(event)
+		UI::logic_controls.focus = true
+		case Active_Tool.tool_id
+			when 1
+				@sel_box   = [event.x,event.y,event.x,event.y]
+				@selecting   = true
+			when 2
+				@point_origin = [event.x,event.y]
+			when 3
+				@point_move = [event.x,event.y,event.x,event.y]
+			when 4
+				@path_origin = [event.x,event.y]
+		end
+	end
+	def canvas_drag(obj,event)
+		@dragging = false
+		@mouse_last_pos = [event.x,event.y]
+		case
+			when (@selecting && @sel_box)
+				@dragging = true
+				@sel_box[2] = event.x
+				@sel_box[3] = event.y
+				obj.queue_draw
+			when (@point_origin)
+				@dragging = true
+				@point_origin[0] = event.x
+				@point_origin[1] = event.y
+			when (@point_move)
+				@dragging = true
+				# difference in movement of the point, cumulative until mouse released
+				@diff = round_to_grid([(event.x - @point_move[0]) , (event.y - @point_move[1])])
+				@point_move[2] = event.x
+				@point_move[3] = event.y
+				obj.queue_draw
+		end
+	end
+	def canvas_release(obj,event)
+		@dragging = false
+		case Active_Tool.tool_id
+			when 1
+				unless !@sel_box
+					@sel_box = pos_box(@sel_box)
+					@nouspoints = Pl.select_points(@sel_box,@nouspoints)
+					@sel_box = nil
+					@selecting = false
+				end
+			when 2 #Add a point where/when the tool is released
+				unless !@point_origin
+					@nouspoints = Pl.add_point(round_to_grid(@point_origin),@nouspoints)
+					@point_origin = nil
+				end
+			when 3 #move point(s) designated by the move stencil
+				@nouspoints = Pl.move_points(@diff,@nouspoints)
+				@point_move = nil
+				@diff = [0,0]
+			when 4 #select singular point
+				@nouspoints, @path_sourced = Pl.select_path_point(@path_origin,@nouspoints,@path_sourced)
+		end
+		obj.queue_draw
+	end
+	
+	def canvas_del
+		@nouspoints = Pl.delete_points(@nouspoints)
+		UI::canvas.queue_draw
+	end
+	
+	def canvas_bg_draw(cr)
+		# fill background with black
+		cr.set_source_rgb(BLACK)
+		cr.paint
+		cr.set_source_rgb(BLUGR)
+		x = @grid_spacing
+		while x < CANVAS_SIZE
+			y = @grid_spacing
+			while y < CANVAS_SIZE
+				cr.circle(x,y,1)
+				cr.fill
+				y += @grid_spacing
+			end
+			x += @grid_spacing
+		end
+		#Handle measure drawing via notches on paths instead of this, maybe
+		cr.set_source_rgba(DGREY)
+		x = @grid_spacing
+		y = CANVAS_SIZE - @grid_spacing
+		while x < CANVAS_SIZE
+			cr.move_to(x,@grid_spacing)
+			cr.line_to(x,CANVAS_SIZE-@grid_spacing)
+			cr.set_line_width(1)
+			cr.stroke
+			x += @grid_spacing*@beats
+		end
+		y = @grid_spacing
+		x = CANVAS_SIZE - @grid_spacing
+		while y < CANVAS_SIZE
+			cr.move_to(@grid_spacing,y)
+			cr.line_to(CANVAS_SIZE-@grid_spacing,y)
+			cr.set_line_width(1)
+			cr.stroke
+			y += @grid_spacing*@beats
+		end
+	end
+	
+	def canvas_draw(cr)
+		canvas_bg_draw(cr)
+		case #These draw events are for in-progress/temporary activities
+		when(@sel_box)  
+			width  = @sel_box[2] - @sel_box[0]
+			height = @sel_box[3] - @sel_box[1]
+			
+			cr.set_source_rgba(@sel_blue)
+			cr.rectangle(@sel_box[0],@sel_box[1],width,height)
+			cr.set_line_width(2)
+			cr.stroke
+		when(@point_move)
+			start_coord = [@point_move[0],@point_move[1]]
+			end_coord   = [@point_move[2],@point_move[3]]
+			start_coord = round_to_grid(start_coord)
+			end_coord   = round_to_grid(end_coord)
+			
+			cr.move_to(start_coord[0],start_coord[1])
+			cr.set_source_rgba(RED)
+			cr.line_to(end_coord[0],end_coord[1])
+			cr.set_line_width(2)
+			cr.stroke
+			cr.rounded_rectangle(end_coord[0]-10,end_coord[1]-10,20,20,2,2)
+			cr.set_line_width(2)
+			cr.stroke
+		end
+		
+		#Set the scene if the current tool does not permit a style
+		case Active_Tool.tool_id
+		when 1
+			@nouspoints, @path_sourced = Pl.cancel_path(@nouspoints) 
+		when 2
+			@nouspoints, @path_sourced = Pl.cancel_path(@nouspoints)
+		when 3
+			@nouspoints, @path_sourced = Pl.cancel_path(@nouspoints)
+		when 4
+			@nouspoints = Pl.cancel_selected(@nouspoints)
+		end
+	
+		#Draw all the points and paths last
+		#Paths are behind points, so draw them first
+		@nouspoints.each        { |n| n.path_draw(cr) }
+		@nouspoints.each        { |n| n.caret_draw(cr)}
+		@nouspoints.each        { |n| n.draw(cr) }
+		
+
+	end
+end
+
+CC = Canvas_Control.new

data/lib/midinous/constants.rb

@@ -0,0 +1,108 @@
+#   Copyright (C) 2019 James "Nornec" Ratliff
+#
+#   This file is part of Midinous
+#
+#   Midinous is free software: you can redistribute it and/or modify
+#   it under the terms of the GNU General Public License as published by
+#   the Free Software Foundation, either version 3 of the License, or
+#   (at your option) any later version.
+#
+#   Midinous 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 General Public License for more details.
+#
+#   You should have received a copy of the GNU General Public License
+#   along with Midinous.  If not, see <https://www.gnu.org/licenses/>.
+
+CANVAS_SIZE = 4400
+PI = 3.14159265358979
+RED   = [0.8,0.0,0.0]
+GREEN = [0.0,0.6,0.0]
+LGRN  = [0.4,0.6,0.4]
+BLUE  = [0.0,0.0,0.6]
+GREY  = [0.6,0.6,0.6]
+WHITE = [1.0,1.0,1.0]
+ORNGE = [1.0,0.5,0.5]
+CYAN  = [0.0,0.5,1.0]
+VLET  = [0.6,0.2,0.8]
+BLACK = [0.1,0.1,0.1]
+BLUGR = [0.2,0.4,0.7]
+DGREY = [0.5,0.5,0.5,0.3]
+
+SCALES = { 
+"Aeolian"              => [2,1,2,2,1,2,2],
+"Altered"              => [1,2,1,2,2,2,2],
+"Augmented"            => [3,1,3,1,3,1],
+"Blues"                => [3,2,1,1,3,2],
+"Chromatic"            => [1,1,1,1,1,1,1,1,1,1,1,1],
+"Dorian"               => [2,1,2,2,2,1,2],
+"Flamenco"             => [1,3,1,2,1,3,1],
+"Half Diminished"      => [2,1,2,1,2,2,2],
+"Harmonic Major"       => [2,2,1,2,1,3,1],
+"Harmonic Minor"       => [2,1,2,2,1,3,1],
+"Hirajoshi"            => [4,2,1,4,1],
+"Hungarian"            => [2,1,3,1,1,3,1],
+"Insen"                => [1,4,2,4,2],
+"Ionian"               => [2,2,1,2,2,2,1],
+"Iwato"                => [1,4,1,4,2],
+"Locrian"              => [1,2,2,1,2,2,2],
+"Locrian Major"        => [2,2,1,1,2,2,2],
+"Lydian"               => [2,2,2,1,2,2,1],
+"Lydian Augmented"     => [2,2,2,2,1,2,1],
+"Pentatonic Major"     => [2,2,3,2,3],
+"Pentatonic Minor"     => [3,2,2,3,2],
+"Melodic Minor"        => [2,1,2,2,2,2,1],
+"Mixolydian"           => [2,2,1,2,2,1,2],
+"Octatonic Whole"      => [2,1,2,1,2,1,2,1],
+"Octatonic Half"       => [1,2,1,2,1,2,1,2],
+"Persian"              => [1,3,1,1,2,3,1],
+"Phrygian"             => [1,2,2,2,1,2,2],
+"Prometheus"           => [2,2,2,3,1,2],
+"Tritone"              => [1,3,2,1,3,2],
+"Two Semitone Tritone" => [1,1,4,1,1],
+"Ukrainian Dorian"     => [2,1,3,1,2,1,2],
+"Whole Tone"           => [2,2,2,2,2,2]
+}
+
+=begin
+
+Pentatonic
+	"Hirajoshi"            
+	"Insen"               
+	"Iwato"               
+	"Pentatonic Major"    
+	"Pentatonic Minor"     
+	"Two Semitone Tritone" 
+Traditional
+	"Aeolian"         
+	"Dorian"          
+	"Harmonic Major"  
+	"Harmonic Minor"  
+	"Ionian"          
+	"Locrian"         
+	"Lydian"          
+	"Mixolydian"      
+	"Phrygian"
+Modified Traditional
+	"Altered"             
+	"Half Diminished"     
+	"Locrian Major"       
+	"Lydian Augmented"    
+	"Melodic Minor"       
+	"Ukrainian Dorian"    
+Exotic
+	"Augmented"           
+	"Blues"  
+	"Flamenco"  
+	"Hungarian" 
+	"Persian"        
+	"Prometheus" 	
+Mathematical
+	"Chromatic"
+	"Octatonic Whole"
+	"Octatonic Half" 
+	"Tritone" 
+	"Whole Tone"
+
+=end