# Drawfile `NVMe::NVMe4.$.AcornDev.DevC.RikGriffin.MkDrawf.Keyboard.Touche'
# Decoded by decdrawf.

# Header information:
# Format version 201.0
# Creator: `Draw        '
# Global bounding box:  215.669 226.3  294.631 312.35


# At 0x28
# BoundingBox  0 0  0 0
# (By the way, those should all have been 0)
Options {
  PaperSize 4     # A4
  Limits {
    # not Shown
    # Portrait
    # Default
    landscape
  }
  Grid {
    Spacing 1
    Divisions 2
    # Rectangular
    # no AutoAdjust
    Shown
    Lock
    # centimetres
  }
  Zoom {
    Ratio 3 4
    # no Lock
  }
  # toolbox present
  Mode Select
  UndoSize 8192
}

Units $Millimetres

FontTable {
  1 "Homerton.Medium"
}


#curve 6 param
# 2 ctrl points et end
#touche

Define touche [ %x0 %y0  %w %h %r %g %b %c %d ] {
  path {
    FillColour  %r %g %b
    OutlineColour r0g0b0
    Width .5 
    Move  %x0 %y0
    Line  ( %x0 + %w )  %y0 
    curve ( %x0 + ( %w * 1.25  )  ) ( %y0 - ( %h * .25 )  ) ( %x0 + ( %w * 1.25  )  ) ( %y0 -  %h * 3 / 4 ) ( %x0 + %w ) ( %y0 - %h )
    rline  ( - %w )  0  
    curve ( %x0 + (  %w * -0.25  )  ) ( %y0 - ( %h * .75 )  ) ( %x0 + ( %w * -0.25  )  ) ( %y0 -  %h * 0.25 )  %x0  %y0 
    }


    Text {
   	 Colour r0g0b0
    	 Background transparent
    	  CentreAt ( %x0 + %w * 0.5 ) ( %y0  - %h * 0.65 )
    	  Size  ( %w * 0.75  ) ( %w * 0.75 )
    	  Style 1
    	  Text  %d
    }    
}


Define Key [ %x0 %y0  %w %h  %k ] {
    Text {
   	 Colour r0g0b0
    	 Background transparent
    	  CentreAt ( %x0 + %w * 0.20 ) ( %y0  - %h * 0.18 )
    	  Size  ( %w / 2 ) ( %w / 2 )
    	  Style 1
    	  Text  %k
    }
}




#copie avec macro

#touche [ 50  10  10 14  128 128 128 "Z" "C" ] 

Group
{
 Name "ligne1"
  set $posx 30
  set $posy 50
  for $Maj in { "C" "D" "E" "F" "G" "A" "B" "C" "D" "E" }  do {
    
    touche [ $posx  $posy  10 14 255 255 255 "" $Maj   ]
    set $posx ( $posx + 20 )
  }
  set $posx 30
  set $posy 50
  for $Key in { "Z" "X" "C" "V" "B" "N" "M" "," "." "/" }  do {
       Key [ $posx  $posy  10 14 $Key  ]
    set $posx ( $posx + 20 )
  }  
  
}
  
Group
{
 Name "ligne2"
  set $posx 25
  set $posy 75
  for $Maj in { " " "C#" "Eb" "" "F#" "G#" "Bb" ""  "C#" "Eb" ""}  do {
    
    touche [ $posx  $posy  10 14  128 128 128  "" $Maj   ]
    set $posx ( $posx + 20 )
  }
  set $posx 25
  set $posy 75
  for $Key in { "A" "S" "D" "F" "G" "H" "J" "K" "L" ";" "'" }  do {
       Key [ $posx  $posy  10 14 $Key  ]
    set $posx ( $posx + 20 )
  }    
}

Group
{
 Name "ligne3"
  set $posx 20
  set $posy 100
  for $Maj in { "F" "G" "A" "B" "C" "D" "E" "F"  "G" "A" "B" "C" }  do {
    
    touche [ $posx  $posy  10 14  255 255 255  "" $Maj   ]
    set $posx ( $posx + 20 )
  }
  set $posx 20
  set $posy 100
  for $Key in { "Q" "W" "E" "R" "T" "Y" "U" "I" "O" "P" "[" "]" }  do {
       Key [ $posx  $posy  10 14 $Key  ]
    set $posx ( $posx + 20 )
  }    
}

Group
{
 Name "ligne4"
  set $posx 15
  set $posy 125
  for $Maj in { " " "F#" "G#" "Bb" "" "C#" "Eb" ""  "F#" "G#" "Bb" ""}  do {
    
    touche [ $posx  $posy  10 14  128 128 128  "" $Maj   ]
    set $posx ( $posx + 20 )
  }
  set $posx 15
  set $posy 125
  for $Key in { "1" "2" "3" "4" "5" "6" "7" "8" "9" "0" "_" "=" }  do {
       Key [ $posx  $posy  10 14 $Key  ]
    set $posx ( $posx + 20 )
  }    
}

Group
{
 Name "FunctionT"
  set $posx 35
  set $posy 160
  for $Maj in { "1" "2" "3" "4" }  do {
    
    touche [ $posx  $posy  10 14  228 34 34  "" $Maj   ]
    set $posx ( $posx + 20 )
  }
  set $posx 35
  set $posy 160
  for $Key in { "F1" "F2" "F3" "F4"}  do {
       Key [ $posx  $posy  10 14 $Key  ]
    set $posx ( $posx + 20 )
  }
  set $posx 120
  set $posy 160
  for $Maj in { "5" "6" "7" "8" }  do {
    
    touche [ $posx  $posy  10 14 228 34 34  "" $Maj   ]
    set $posx ( $posx + 20 )
  }
  
  set $posx 120
  set $posy 160
  for $Key in { "F5" "F6" "F7" "F8" }  do {
       Key [ $posx  $posy  10 14 $Key  ]
    set $posx ( $posx + 20 )
  }
    
}


# End of decoded drawfile.

