We can't find the internet
Attempting to reconnect
Something went wrong!
Hang in there while we get back on track
chord maker
does anyone know if there is something that clamps on the neck of a guitar that makes a chord by pushing buttons instead of the strings?
I haven’t personally heard of nor saw such a device. It would seem to be good idea though. Maybe you should draw up the patent for one and try to be the first one out there.
This is the diogram
Rebol [
title: "Guitar Chord Diagram Maker"
date: 29-june-2008
file: %guitar-chord-diagram-maker.r
purpose: {
A demo program that creates, saves, and prints collections of guitar chord fretboard diagrams.
Taken from the tutorial at http://musiclessonz.com/rebol_tutorial.html
}
]
fretboard: load 64#{ iVBORw0KGgoAAANSUhEUgAAAFUAAABkCAIAAAB4sesFAAACXBIWXMAAAsTAAAL EwEAmpwYAAA2UlEQVR4nO3YQQqDQBAF0XTIwXtuNjfrLITs0rowGqbqbRWxEEL+ RFU9wJ53v8DN7Gezn81+NvvZXv3liLjmPX6n/4NL//72s9l/QGbWd5m53dbc8/kR uv5RJ/QvzH42+9nsZ7OfzX62nfOPzZzzyNUxxh8+qhfVHo94/rM49y+b/Wz2s9nP Zj+b/WzuX/cvmfuXzX42+9nsZ7OfzX4296/7l8z9y2Y/m/1s9rPZz2Y/m/vX/Uvm /mWzn81+NvvZ7Gezn8396/4l2/n+y6N/f/vZ7Gezn81+tjenRWXD3TC8nAAABJ RU5ErkJggg== }
barimage: load 64#{ iVBORw0KGgoAAANSUhEUgAAAEoAAAFCAIAAABtvO2fAAACXBIWXMAAAsTAAAL EwEAmpwYAAAHElEQVR4nGNsaGhgGL6AaaAdQFsw6r2hDIa59wCf/AGKgzU3RwAA AABJRU5ErkJggg== }
dot: load 64#{ iVBORw0KGgoAAANSUhEUgAAAoAAAKCAIAAACUFjqAAACXBIWXMAAAsTAAAL EwEAmpwYAAAFElEQVR4nGNsaGhgwA2Y8MiNYGkA22EBlPG3fjQAAASUVORK5C YII= }
movestyle: [
engage: func [face action event] [
if action = 'down [
face/data: event/offset
remove find face/parent-face/pane face
append face/parent-face/pane face
]
if find [over away] action [
face/offset: face/offset + event/offset - face/data
]
show face
]
]
gui: [
backdrop white
currentfretboard: image fretboard 255x300
currentbar: image barimage 240x15 feel movestyle
text "INSTRUCTIONS:" underline
text "Drag dots and other widgets onto the fretboard."
across
text "Resize the fretboard:"
tab
rotary "255x300" "170x200" "85x100" [
currentfretboard/size: to-pair value show currentfretboard
switch value [
"255x300" [currentbar/size: 240x15 show currentbar]
"170x200" [currentbar/size: 160x10 show currentbar]
"85x100" [currentbar/size: 80x5 show currentbar]
]
]
return
button "Save Diagram" [
filename: to-file request-file/save/file "1.png"
save/png filename to-image currentfretboard
]
tab
button "Print" [
filelist: sort request-file/title "Select image(s) to print:"
html: copy " "
foreach file filelist [
append html rejoin [
{ }
]
]
append html [ ]
write %chords.html trim/auto html
browse %chords.html
]
]
loop 50 [append gui [at 275x50 image dot 30x30 feel movestyle]] loop 50 [append gui [at 275x100 image dot 20x20 feel movestyle]] loop 50 [append gui [at 275x140 image dot 10x10 feel movestyle]] loop 6 [append gui [at 273x165 text “X” bold feel movestyle]] loop 6 [append gui [at 273x185 text “O” bold feel movestyle]]
and gzip-r
REBOL [
Title: "gunzip"
Date: 30-Dec-2004
Version: 1.0.0
File: %gunzip.r
Author: "Vincent Ecuyer"
Purpose: "Decompresses gzip archives."
Usage: {
write/binary %my-file.txt gunzip %my-file.txt.gz
or
c-data: read/binary %my-file.txt.gz
my-data: gunzip c-data
}
Comment: {
It only works with rebol/view or rebol/face.
PiNG file format uses "deflate" compression,
like gzip and Rebol COMPRESS command.
This hack builds a PiNG picture with the compressed data,
loads it, then extracts the uncompressed data.
Tested with .gz files from %gzip.r,
gzip32 1.2.4 and 7-Zip 3.13.
}
Library: [
level: 'advanced
platform: 'all
type: [module tool]
domain: [compression file-handling files]
tested-under: [
view 1.2.1.3.1 on [Win2K]
view 1.2.1.1.1 on [AmigaOS30]
face 1.2.48.3.1 on [Win2K]
]
support: none
license: 'public-domain
see-also: %gzip.r
]
]
ctx-gunzip: context [
to-bin: func [value][load join "#{" [to-hex value "}"]]
set?: func [value bit][not zero? value and to-integer 2 ** bit]
os-codes: [
'FAT 'Amiga 'VMS 'Unix 'VM/CMS 'Atari-TOS 'HPFS 'Macintosh
'Z-System 'CP/M 'TOPS-20 'NTFS 'QDOS 'Acorn-RISCOS
]
set 'gunzip func [
"Decompresses a gzip encoding - returns a binary."
data [any-string! file!] "Data to decompress"
/info "Returns a block with [data filename date comment OS]"
/local flags os filename filecomment time size r
][
if not all [value? 'view? view?][make error! "/View needed"]
if string? data [data: to-binary data]
if file? data [data: read/binary data]
if data/1 31 [make error! "Bad ID"]
if data/2 139 [make error! "Bad ID"]
if data/3 8 [make error! "Unknown Method"]
flags: data/4
time: to-integer head reverse copy/part skip data 4 4
time: either zero? time [none][
01-01-1970/0:0:0 + now/zone + to-time time
]
os: pick os-codes data/10 + 1
filename: filecomment: none
data: skip data 10
if set? flags 2 [ ; extra?
data: skip data 2
data: skip data data/2 * 256 + data/1 + 2
]
if set? flags 3 [ ; name?
filename: data
data: find/tail data #"^@"
filename: copy/part filename back data
]
if set? flags 4 [ ; comment?
filecomment: data
filecomment: find/tail data #"^@"
filecomment: copy/part filecomment back data
]
if set? flags 1 [ ; crc-16?
data: skip data 2
]
size: to-integer head reverse copy skip tail data -4
data: copy/part data skip tail data -8
data: to-binary rejoin [
#{89504E47} #{0D0A1A0A} ; signature
#{0000000D} ; IHDR length
"IHDR" ; type: header
to-bin size ; width = uncompressed size
#{00000001} ; height = 1 line
#{08} ; bit depth
#{00} ; color type = grayscale
#{00} ; compression method
#{00} ; filter method = none
#{00} ; interlace method = no interlace
#{00000000} ; no checksum
to-bin 2 + 6 + length? data ; length
"IDAT" ; type: data
#{789C} ; zlib header
#{00 0100 FEFF 00} ; 0 = no filter for scanline
data
#{00000000} ; no checksum
#{00000000} ; length
"IEND" ; type: end
#{00000000} ; no checksum
]
if error? try [data: load data][
make error! "Unable to decompress"
]
r: make binary! size
repeat I size [insert tail are to-char pick pick data I 1]
either info [
reduce [
r
either filename [to-file filename][none]
time
either filecomment [to-string comment][none]
either os [os]['Unknown]
]
][r]
]
]
-
Chords for ultra violet? - 1 Answers
Can someone give me the chords for the song "ultra violet" by joanna pacitti? I can't find them anywhere.
-
Diminished chord? - 1 Answers
what is a diminshed chord?
-
Were can I get guitar chords to the song? - 1 Answers
Were can I get the music to the guitar? Like is their somewere online were I can type in the name of the song and find the ch...
-
Adding chords to a written song - 1 Answers
How do you do this? What if you are a beginner to chords? How do you know which chords match the song you wrote?
-
What are some good emo guitar chords? - 1 Answers
Does anybody know of any good emo chords on the guitar??? A list would be nice:) THANKS:)
-
Where can I get piano pieces with organ chords? - 1 Answers
Can someone give me piano pieces with organ chords? Preferably some popular songs...
-
Is there a free website for keyboards Chords and stuf like that ? - 3 Answers
Hmm, I am trying to find the keyboard chords for a song, but I can't find them on google, does anyone know a website which do...
-
~*CHORDS*~ - 1 Answers
R CHORDS ON A GUITAR REAL IMPORTANT TO LEARN?!?! I KNOW HOW TO READ N' PLAY A TAB SHEET BUT NOT REALLY HANDY W/CHORDS...SHUL...
-
Guitar chord help - 3 Answers
What are some nice guitar picking chords? Me and my band are working on our single and we sofar use a g , c , so far. What ot...
-
Learning guitar chords sites? - 3 Answers
Is there any free guitar learning sites, I know how to play guitar it's just that I want to learn chords. What is a good site?
Music
Music production, Music theory, Music education
Free Jazz Lessons
Music Education, Piano Lessons, Jazz Music
Musical Colors - A Visual Mus...
All Notes on Guitar
Zager Guitars
Music, Musical Instruments, Guitar