2016年9月18日日曜日

再修正「簡易ポーズエディタ」

修正「簡易ポーズエディタ」 で作ったスクリプトの再修正。
例によって、上部のボタンは意味なし 。

原点に対する補正値を入れられるようにした。
起動時に、原点復帰を行う。

  1. #!/bin/bash
  2.  
  3. export test00='
  4. echo $USER
  5. '
  6. export SERVO0='50'
  7. export SERVO1='50'
  8. export SERVO2='50'
  9. export SERVO3='50'
  10. export SERVO4='50'
  11. export SERVO5='50'
  12. export SERVO6='50'
  13. export SERVO7='50'
  14.  
  15. #原点に対する補正値の設定 
  16. export ADJUST0='4'
  17. export ADJUST1='3'
  18. export ADJUST2='-3'
  19. export ADJUST3='5'
  20. export ADJUST4='-4'
  21. export ADJUST5='-3'
  22. export ADJUST6='1'
  23. export ADJUST7='-3'
  24.  
  25. for((i = 0; i <= 7; i++)); do
  26.     echo $i=$((SERVO$i + ADJUST$i))% > /dev/servoblaster
  27. done
  28.  
  29. export MAIN_DIALOG='
  30.   <window>
  31.     <vbox>
  32.       <hbox>
  33.         <vbox>
  34.           <hbox>
  35.             <frame サーボ5(%)>
  36.               <vscale height-request="200" range-min="10" range-max="90" range-step="1">
  37.                 <default>50</default>
  38.                 <variable>SERVO5</variable>
  39.                 <action>bash -c "echo 5="$((SERVO5 + ADJUST5))"% > /dev/servoblaster"</action>
  40.                 <action type="refresh">TEXT5</action>
  41.               </vscale>
  42.             </frame>
  43.             <frame サーボ4(%)>
  44.               <vscale height-request="200" range-min="10" range-max="90" range-step="1">
  45.                 <default>50</default>
  46.                 <variable>SERVO4</variable>
  47.                 <action>bash -c "echo 4="$((SERVO4 + ADJUST4))"% > /dev/servoblaster"</action>
  48.                 <action type="refresh">TEXT4</action>
  49.               </vscale>
  50.             </frame>
  51.           </hbox>
  52.           <hbox>
  53.             <frame サーボ7(%)>
  54.               <vscale height-request="200" range-min="10" range-max="90" range-step="1" inverted="true">
  55.                 <default>50</default>
  56.                 <variable>SERVO7</variable>
  57.                 <action>bash -c "echo 7="$((SERVO7 + ADJUST7))"% > /dev/servoblaster"</action>
  58.                 <action type="refresh">TEXT7</action>
  59.               </vscale>
  60.             </frame>
  61.             <frame サーボ6(%)>
  62.               <vscale height-request="200" range-min="10" range-max="90" range-step="1">
  63.                 <default>50</default>
  64.                 <variable>SERVO6</variable>
  65.                 <action>bash -c "echo 6="$((SERVO6 + ADJUST8))"% > /dev/servoblaster"</action>
  66.                 <action type="refresh">TEXT6</action>
  67.               </vscale>
  68.             </frame>
  69.           </hbox>
  70.         </vbox>
  71.  
  72.         <vbox>
  73.           <hbox>
  74.             <button>
  75.               <label>ボタン 1</label>
  76.               <action>echo $LANG</action>
  77.             </button>
  78.             <vbox>
  79.               <button width-request="110">
  80.                 <label>前進</label>
  81.                 <action>bash -c "$test00"</action>
  82.               </button>
  83.               <button>
  84.                 <label>後退</label>
  85.               </button>
  86.             </vbox>
  87.             <button>
  88.               <label>ボタン 4</label>
  89.             </button>
  90.           </hbox>
  91.           <vbox>
  92.             <frame>
  93.               <text>
  94.                 <variable>TEXT0</variable>
  95.                 <input>echo "echo 0="$SERVO0"% > /dev/servoblaster"</input>
  96.               </text>
  97.               <text>
  98.                 <variable>TEXT1</variable>
  99.                 <input>echo "echo 1="$SERVO1"% > /dev/servoblaster"</input>
  100.               </text>
  101.               <text>
  102.                 <variable>TEXT2</variable>
  103.                 <input>echo "echo 2="$SERVO2"% > /dev/servoblaster"</input>
  104.               </text>
  105.               <text>
  106.                 <variable>TEXT3</variable>
  107.                 <input>echo "echo 3="$SERVO3"% > /dev/servoblaster"</input>
  108.               </text>
  109.               <text>
  110.                 <variable>TEXT4</variable>
  111.                <input>echo "echo 4="$SERVO4"% > /dev/servoblaster"</input>
  112.               </text>
  113.               <text>
  114.                 <variable>TEXT5</variable>
  115.                 <input>echo "echo 5="$SERVO5"% > /dev/servoblaster"</input>
  116.               </text>
  117.               <text>
  118.                 <variable>TEXT6</variable>
  119.                 <input>echo "echo 6="$SERVO6"% > /dev/servoblaster"</input>
  120.               </text>
  121.               <text>
  122.                 <variable>TEXT7</variable>
  123.                 <input>echo "echo 7="$SERVO7"% > /dev/servoblaster"</input>
  124.               </text>
  125.             </frame>
  126.           </vbox>
  127.           <entry>
  128.             <variable>FILE0</variable>
  129.             <default>"./temp.txt"</default>
  130.           </entry>
  131.           <button>
  132.             <label>新規作成</label>
  133.             <action>echo "#!/bin/bash" > $FILE0</action>
  134.             <action>echo "" >> $FILE0</action>
  135.             <action>echo "echo 0="$((SERVO0 + ADJUST0))"% > /dev/servoblaster" >> $FILE0</action>
  136.             <action>echo "echo 1="$((SERVO1 + ADJUST1))"% > /dev/servoblaster" >> $FILE0</action>
  137.             <action>echo "echo 2="$((SERVO2 + ADJUST2))"% > /dev/servoblaster" >> $FILE0</action>
  138.             <action>echo "echo 3="$((SERVO3 + ADJUST3))"% > /dev/servoblaster" >> $FILE0</action>
  139.             <action>echo "echo 4="$((SERVO4 + ADJUST4))"% > /dev/servoblaster" >> $FILE0</action>
  140.             <action>echo "echo 5="$((SERVO5 + ADJUST5))"% > /dev/servoblaster" >> $FILE0</action>
  141.             <action>echo "echo 6="$((SERVO6 + ADJUST6))"% > /dev/servoblaster" >> $FILE0</action>
  142.             <action>echo "echo 7="$((SERVO7 + ADJUST7))"% > /dev/servoblaster" >> $FILE0</action>
  143.           </button>
  144.           <button>
  145.             <label>ポーズ追加</label>
  146.             <action>echo "" >> $FILE0</action>
  147.             <action>echo "sleep 1" >> $FILE0</action>
  148.             <action>echo "" >> $FILE0</action>
  149.             <action>echo "echo 0="$((SERVO0 + ADJUST0))"% > /dev/servoblaster" >> $FILE0</action>
  150.             <action>echo "echo 1="$((SERVO1 + ADJUST1))"% > /dev/servoblaster" >> $FILE0</action>
  151.             <action>echo "echo 2="$((SERVO2 + ADJUST2))"% > /dev/servoblaster" >> $FILE0</action>
  152.             <action>echo "echo 3="$((SERVO3 + ADJUST3))"% > /dev/servoblaster" >> $FILE0</action>
  153.             <action>echo "echo 4="$((SERVO4 + ADJUST4))"% > /dev/servoblaster" >> $FILE0</action>
  154.             <action>echo "echo 5="$((SERVO5 + ADJUST5))"% > /dev/servoblaster" >> $FILE0</action>
  155.             <action>echo "echo 6="$((SERVO6 + ADJUST6))"% > /dev/servoblaster" >> $FILE0</action>
  156.             <action>echo "echo 7="$((SERVO7 + ADJUST7))"% > /dev/servoblaster" >> $FILE0</action>
  157.           </button>
  158.         </vbox>
  159.  
  160.         <vbox>
  161.           <hbox>
  162.             <frame サーボ0(%)>
  163.               <vscale height-request="200" range-min="10" range-max="90" range-step="1" inverted="true">
  164.                 <default>50</default>
  165.                 <variable>SERVO0</variable>
  166.                 <action>bash -c "echo 0="$((SERVO0 + ADJUST0))"% > /dev/servoblaster"</action>
  167.                 <action type="refresh">TEXT0</action>
  168.               </vscale>
  169.             </frame>
  170.             <frame サーボ1(%)>
  171.               <vscale height-request="200" range-min="10" range-max="90" range-step="1" inverted="true">
  172.                 <default>50</default>
  173.                 <variable>SERVO1</variable>
  174.                 <action>bash -c "echo 1="$((SERVO1 + ADJUST1))"% > /dev/servoblaster"</action>
  175.                 <action type="refresh">TEXT1</action>
  176.               </vscale>
  177.             </frame>
  178.           </hbox>
  179.           <hbox>
  180.             <frame サーボ2(%)>
  181.               <vscale height-request="200" range-min="10" range-max="90" range-step="1" inverted="true">
  182.                 <default>50</default>
  183.                 <variable>SERVO2</variable>
  184.                 <action>bash -c "echo 2="$((SERVO2 + ADJUST2))"% > /dev/servoblaster"</action>
  185.                 <action type="refresh">TEXT2</action>
  186.               </vscale>
  187.             </frame>
  188.             <frame サーボ3(%)>
  189.               <vscale height-request="200" range-min="10" range-max="90" range-step="1">
  190.                 <default>50</default>
  191.                 <variable>SERVO3</variable>
  192.                 <action>bash -c "echo 3="$((SERVO3 + ADJUST3))"% > /dev/servoblaster"</action>
  193.                 <action type="refresh">TEXT3</action>
  194.               </vscale>
  195.             </frame>
  196.           </hbox>
  197.         </vbox>
  198.       </hbox>
  199.     </vbox>
  200.   </window>
  201. '
  202.  
  203. gtkdialog -p MAIN_DIALOG -c
投稿者 AO_o10yan 時刻: 22:18 0 コメント
ラベル: , , , , , ,

2016年8月16日火曜日

ワークスペース毎に動くタイリング・シェルスクリプト

前回作成したシェルスクリプトを、ワークスペース毎に操作できるようにする実験


WmCtrlGtk(0)とWmCtrlGtk(1)で、それぞれワークスペース0とワークスペース1を別個に操作する。
（その分、シェルスクリプトから保存するファイルが増えてます。） 

  1. #!/bin/bash
  2.  
  3. PRE_IFS=$IFS
  4. IFS=$'\n'
  5.  
  6. top_panel_h=0
  7. bottom_panel_h=26
  8. title_h=30
  9. disp_width=$(xwininfo -root | grep 'Width' | cut -f2 -d ':')
  10. disp_height=$(xwininfo -root | grep 'Height' | cut -f2 -d ':')
  11. export current_ws=$(xprop -root -notype _NET_CURRENT_DESKTOP | cut -b 24)
  12.  
  13. if [ ! $(wmctrl -l | grep "WmCtrlGtk("$current_ws")") ]; then
  14.     export MAIN_DIALOG$current_ws='
  15.     <window title="WmCtrlGtk('$current_ws')">
  16.         <hbox>
  17.             <button>
  18.                 <label>h</label>
  19.                 <action>'$0' h 200</action>
  20.             </button>
  21.             <button>
  22.                 <label>v</label>
  23.                 <action>'$0' v 200</action>
  24.             </button>
  25.             <button>
  26.                 <label>r</label>
  27.                 <action>'$0' r</action>
  28.             </button>
  29.             <button>
  30.                 <label>+100</label>
  31.                 <action>'$0' 100</action>
  32.             </button>
  33.             <button>
  34.                 <label>-100</label>
  35.                 <action>'$0' -100</action>
  36.             </button>
  37.         </hbox>
  38.     </window>
  39.     '
  40.  
  41.     gtkdialog -p MAIN_DIALOG$current_ws -c
  42. fi
  43.  
  44. rotate_flag=0
  45. if [ $# -eq 1 ]; then
  46.     if [ $1 = 'h' -o $1 = 'v' ]; then
  47.         hv_flag=$1
  48.         main_add=0
  49.     elif [ $1 = 'r' ]; then
  50.         rotate_flag=1
  51.     elif [ $1 -gt 0 -o $1 -lt 0 ]; then
  52.         rotate_flag=2
  53.     else
  54.         hv_flag='h'
  55.     fi
  56. elif [ $# -eq 2 ]; then
  57.     hv_flag=$1
  58.     main_add=$2
  59. else
  60.     exit 0
  61. fi
  62.  
  63. temp_file='./wm-ctrl'$current_ws'.txt'
  64. if [ $rotate_flag -gt 0 ]; then
  65.     hv_flag=$(sed -n 1p ./wm-ctrl${current_ws}.his | cut -f1 -d',')
  66.     main_add=$(sed -n 1p ./wm-ctrl${current_ws}.his | cut -f2 -d',')
  67.     if [ $rotate_flag -eq 1 ]; then
  68.         temp_1=$(sed -n 2p ./wm-ctrl${current_ws}.his)
  69.         sed -i '$a '$temp_1'' ./wm-ctrl${current_ws}.his
  70.         sed -i 1,2d ./wm-ctrl${current_ws}.his
  71.     else
  72.         sed -i 1d ./wm-ctrl${current_ws}.his
  73.         main_add=$((main_add + $1))
  74.     fi
  75.     sed -i 's/_/ /g' ./wm-ctrl${current_ws}.his
  76.     temp_file='./wm-ctrl'$current_ws'.his'
  77. fi
  78.  
  79. wmctrl -l > wm-ctrl${current_ws}.txt
  80. sed -i '/WmCtrlGtk/d' ./wm-ctrl${current_ws}.txt
  81. txt_lines=$(wc $temp_file | sed 's/^[ \t]*//' | cut -f1 -d " ")
  82. if [ $txt_lines -gt 0 ]; then
  83. #    current_ws=$(xprop -root -notype _NET_CURRENT_DESKTOP | cut -b 24)
  84.     #active_win=$(xprop -root -notype _NET_ACTIVE_WINDOW | cut -b 33-43)
  85.  
  86.     ws_windows=0
  87.     for((i = 1; i <= $txt_lines; i++)); do
  88.         ws_flag=$(sed -n $i'p' $temp_file | cut -b 12-13)
  89.         if [ $ws_flag -eq $current_ws ]; then
  90.             let ws_windows++
  91.         fi
  92.     done
  93.  
  94.     disp_width2=$((disp_width / 2))
  95.     disp_height2=$(($(((disp_height - top_panel_h - bottom_panel_h) / 2)) - title_h))
  96.     disp_width_main=$((disp_width2 + main_add))
  97.     disp_height_main=$((disp_height2 + main_add))
  98.     disp_width_sub=$((disp_width2 - main_add))
  99.     disp_height_sub=$((disp_height2 - main_add))
  100.  
  101.     pos_width=$((disp_width / 2))
  102.     pos_height=$(((disp_height - top_panel_h - bottom_panel_h) / 2))
  103.  
  104.     if [ $hv_flag = 'v' ]; then
  105.         x_pos=(0 0 $pos_width $pos_width)
  106.         y_pos=($((0 + top_panel_h)) $((pos_height + top_panel_h + main_add)) \
  107.               $((pos_height + top_panel_h+ main_add)) $((0 + top_panel_h)))
  108.     else
  109.         x_pos=(0 $((pos_width + main_add)) $((pos_width + main_add)) 0)
  110.         y_pos=($((0 + top_panel_h)) $((0 + top_panel_h)) $((pos_height + top_panel_h)) \
  111.               $((pos_height + top_panel_h)))
  112.     fi
  113.  
  114.     case $ws_windows in
  115.         1)
  116.             temp_width=$disp_width
  117.             temp_height=$((disp_height - top_panel_h - bottom_panel_h - title_h));; 
  118.         [2-3])
  119.             temp_width=$disp_width2
  120.             temp_height=$((disp_height - top_panel_h - bottom_panel_h - title_h));;
  121.         *)
  122.             temp_width=$disp_width2
  123.             temp_height=$disp_height2;;
  124.     esac
  125.  
  126.     window_array=()
  127.     n=0
  128.     for((i = 1; i <= $txt_lines; i++)); do
  129.         if [ $n -gt 3 ]; then
  130.             n=0
  131.         fi
  132.         ws_flag=$(sed -n $i'p' $temp_file | cut -b 11-13)
  133.         if [ $ws_flag -eq $current_ws ]; then
  134.             win_id=$(sed -n $i'p' $temp_file | cut -b 1-10)
  135.             if [ $rotate_flag -eq 0 ]; then
  136.                 if [ $n -eq 0 ]; then
  137.                     echo $hv_flag','$main_add',' > wm-ctrl${current_ws}.his
  138.                     echo $win_id'__'$current_ws'_' >> wm-ctrl${current_ws}.his
  139.                 else
  140.                     echo $win_id'__'$current_ws'_' >> wm-ctrl${current_ws}.his
  141.                 fi
  142.             fi
  143.             if [ $ws_windows -eq 2 ]; then
  144.                 if [ $n -eq 0 ]; then
  145.                     if [ $hv_flag = 'v' ]; then
  146.                         temp_width=$disp_width
  147.                         temp_height=$disp_height_main
  148.                     else
  149.                         temp_width=$disp_width_main
  150.                     fi
  151.                 else
  152.                     if [ $hv_flag = 'v' ]; then
  153.                         temp_width=$disp_width
  154.                         temp_height=$disp_height_sub 
  155.                     else
  156.                         temp_width=$disp_width_sub
  157.                         temp_height=$((disp_height - top_panel_h - bottom_panel_h - title_h))
  158.                     fi
  159.                 fi
  160.             fi            
  161.             if [ $ws_windows -eq 3 ]; then
  162.                 if [ $n -eq 0 ]; then
  163.                     if [ $hv_flag = 'v' ]; then
  164.                         temp_width=$disp_width
  165.                         temp_height=$disp_height_main
  166.                     else
  167.                         temp_width=$disp_width_main
  168.                     fi
  169.                 fi
  170.             fi
  171.             if [ $ws_windows -gt 2 -a $n -gt 0 ]; then
  172.                 if [ $hv_flag = 'v' ]; then
  173.                     temp_width=$disp_width2
  174.                     temp_height=$disp_height_sub 
  175.                 else
  176.                     temp_width=$disp_width_sub
  177.                     temp_height=$disp_height2
  178.                 fi
  179.             fi
  180.             if [ $ws_windows -gt 3 -a $n -gt 0 ]; then
  181.                 x_pos=(0 $pos_width $pos_width 0)
  182.                 y_pos=($((0 + top_panel_h)) $((0 + top_panel_h)) $((pos_height + top_panel_h)) \
  183.                       $((pos_height + top_panel_h)))
  184.                 temp_width=$disp_width2
  185.                 temp_height=$disp_height2
  186.             fi
  187.             window_array+=( $win_id','${x_pos[$n]}','${y_pos[$n]}','$temp_width','$temp_height )
  188.             let n++
  189.         fi
  190.     done
  191.  
  192.     for par in ${window_array[@]}; do
  193.         for((i = 1; i <= 5; i++)); do
  194.             declare par$i=$(echo ${par} | cut -f$i -d ',')
  195.         done
  196.         wmctrl -i -r $par1 -e 0,$par2,$par3,$par4,$par5
  197.     done
  198. fi
  199.  
  200. if [ $rotate_flag -gt 0 ]; then
  201.     sed -i 's/ /_/g' ./wm-ctrl${current_ws}.his
  202.     temp=$hv_flag','$main_add','
  203.     sed -i '1i '$temp'' ./wm-ctrl${current_ws}.his
  204. fi
投稿者 AO_o10yan 時刻: 16:37 0 コメント
ラベル: , ,

2016年7月3日日曜日

GtkDialogでOpenboxウィンドウのタイリング

前回、作成したシェルスクリプトをGtkDialogを使ってGUI操作できるようにする実験


※追記1（2016/07/09　21:00）※
一応、上部にパネルを表示している場合を想定。
top_panel_hで高さを指定する。

  1. #!/bin/bash
  2.  
  3. PRE_IFS=$IFS
  4. IFS=$'\n'
  5.  
  6. top_panel_h=0
  7. bottom_panel_h=26
  8. title_h=30
  9. disp_width=$(xwininfo -root | grep 'Width' | cut -f2 -d ':')
  10. disp_height=$(xwininfo -root | grep 'Height' | cut -f2 -d ':')
  11.  
  12. if [ ! $(wmctrl -l | grep "WmCtrlGtk") ]; then
  13.     export MAIN_DIALOG='
  14.     <window title="WmCtrlGtk">
  15.         <hbox>
  16.             <button>
  17.                 <label>h</label>
  18.                 <action>'$0' h</action>
  19.             </button>
  20.             <button>
  21.                 <label>v</label>
  22.                 <action>'$0' v</action>
  23.             </button>
  24.             <button>
  25.                 <label>r</label>
  26.                 <action>'$0' r</action>
  27.             </button>
  28.             <button>
  29.                 <label>+100</label>
  30.                 <action>'$0' 100</action>
  31.             </button>
  32.             <button>
  33.                 <label>-100</label>
  34.                 <action>'$0' -100</action>
  35.             </button>
  36.         </hbox>
  37.     </window>
  38.     '
  39.  
  40.     gtkdialog -p MAIN_DIALOG -c
  41. fi
  42.  
  43. rotate_flag=0
  44. if [ $# -eq 1 ]; then
  45.     if [ $1 = 'h' -o $1 = 'v' ]; then
  46.         hv_flag=$1
  47.         main_add=0
  48.     elif [ $1 = 'r' ]; then
  49.         rotate_flag=1
  50.     elif [ $1 -gt 0 -o $1 -lt 0 ]; then
  51.         rotate_flag=2
  52.     else
  53.         hv_flag='h'
  54.     fi
  55. elif [ $# -eq 2 ]; then
  56.     hv_flag=$1
  57.     main_add=$2
  58. else
  59.     exit 0
  60. fi
  61.  
  62. temp_file='./wm-ctrl.txt'
  63. if [ $rotate_flag -gt 0 ]; then
  64.     hv_flag=$(sed -n 1p ./wm-ctrl.his | cut -f1 -d',')
  65.     main_add=$(sed -n 1p ./wm-ctrl.his | cut -f2 -d',')
  66.     if [ $rotate_flag -eq 1 ]; then
  67.         temp_1=$(sed -n 2p ./wm-ctrl.his)
  68.         sed -i '$a '$temp_1'' ./wm-ctrl.his
  69.         sed -i 1,2d ./wm-ctrl.his
  70.     else
  71.         sed -i 1d ./wm-ctrl.his
  72.         main_add=$((main_add + $1))
  73.     fi
  74.     sed -i 's/_/ /g' ./wm-ctrl.his
  75.     temp_file='./wm-ctrl.his'
  76. fi
  77.  
  78. wmctrl -l > wm-ctrl.txt
  79. sed -i '/WmCtrlGtk/d' ./wm-ctrl.txt
  80. txt_lines=$(wc $temp_file | sed 's/^[ \t]*//' | cut -f1 -d " ")
  81. if [ $txt_lines -gt 0 ]; then
  82.     current_ws=$(xprop -root -notype _NET_CURRENT_DESKTOP | cut -b 24)
  83.     #active_win=$(xprop -root -notype _NET_ACTIVE_WINDOW | cut -b 33-43)
  84.  
  85.     ws_windows=0
  86.     for((i = 1; i <= $txt_lines; i++)); do
  87.         ws_flag=$(sed -n $i'p' $temp_file | cut -b 12-13)
  88.         if [ $ws_flag -eq $current_ws ]; then
  89.             let ws_windows++
  90.         fi
  91.     done
  92.  
  93.     disp_width2=$((disp_width / 2))
  94.     disp_height2=$(($(((disp_height - top_panel_h - bottom_panel_h) / 2)) - title_h))
  95.     disp_width_main=$((disp_width2 + main_add))
  96.     disp_height_main=$((disp_height2 + main_add))
  97.     disp_width_sub=$((disp_width2 - main_add))
  98.     disp_height_sub=$((disp_height2 - main_add))
  99.  
  100.     pos_width=$((disp_width / 2))
  101.     pos_height=$(((disp_height - top_panel_h - bottom_panel_h) / 2))
  102.  
  103.     if [ $hv_flag = 'v' ]; then
  104.         x_pos=(0 0 $pos_width $pos_width)
  105.         y_pos=($((0 + top_panel_h)) $((pos_height + top_panel_h + main_add)) \
  106.               $((pos_height + top_panel_h+ main_add)) $((0 + top_panel_h)))
  107.     else
  108.         x_pos=(0 $((pos_width + main_add)) $((pos_width + main_add)) 0)
  109.         y_pos=($((0 + top_panel_h)) $((0 + top_panel_h)) $((pos_height + top_panel_h)) \
  110.               $((pos_height + top_panel_h)))
  111.     fi
  112.  
  113.     case $ws_windows in
  114.         1)
  115.             temp_width=$disp_width
  116.             temp_height=$((disp_height - top_panel_h - bottom_panel_h - title_h));; 
  117.         [2-3])
  118.             temp_width=$disp_width2
  119.             temp_height=$((disp_height - top_panel_h - bottom_panel_h - title_h));;
  120.         *)
  121.             temp_width=$disp_width2
  122.             temp_height=$disp_height2;;
  123.     esac
  124.  
  125.     window_array=()
  126.     n=0
  127.     for((i = 1; i <= $txt_lines; i++)); do
  128.         if [ $n -gt 3 ]; then
  129.             n=0
  130.         fi
  131.         ws_flag=$(sed -n $i'p' $temp_file | cut -b 11-13)
  132.         if [ $ws_flag -eq $current_ws ]; then
  133.             win_id=$(sed -n $i'p' $temp_file | cut -b 1-10)
  134.             if [ $rotate_flag -eq 0 ]; then
  135.                 if [ $n -eq 0 ]; then
  136.                     echo $hv_flag','$main_add',' > wm-ctrl.his
  137.                     echo $win_id'__'$current_ws'_' >> wm-ctrl.his
  138.                 else
  139.                     echo $win_id'__'$current_ws'_' >> wm-ctrl.his
  140.                 fi
  141.             fi
  142.             if [ $ws_windows -eq 2 ]; then
  143.                 if [ $n -eq 0 ]; then
  144.                     if [ $hv_flag = 'v' ]; then
  145.                         temp_width=$disp_width
  146.                         temp_height=$disp_height_main
  147.                     else
  148.                         temp_width=$disp_width_main
  149.                     fi
  150.                 else
  151.                     if [ $hv_flag = 'v' ]; then
  152.                         temp_width=$disp_width
  153.                         temp_height=$disp_height_sub 
  154.                     else
  155.                         temp_width=$disp_width_sub
  156.                         temp_height=$((disp_height - top_panel_h - bottom_panel_h - title_h))
  157.                     fi
  158.                 fi
  159.             fi            
  160.             if [ $ws_windows -eq 3 ]; then
  161.                 if [ $n -eq 0 ]; then
  162.                     if [ $hv_flag = 'v' ]; then
  163.                         temp_width=$disp_width
  164.                         temp_height=$disp_height_main
  165.                     else
  166.                         temp_width=$disp_width_main
  167.                     fi
  168.                 fi
  169.             fi
  170.             if [ $ws_windows -gt 2 -a $n -gt 0 ]; then
  171.                 if [ $hv_flag = 'v' ]; then
  172.                     temp_width=$disp_width2
  173.                     temp_height=$disp_height_sub 
  174.                 else
  175.                     temp_width=$disp_width_sub
  176.                     temp_height=$disp_height2
  177.                 fi
  178.             fi
  179.             if [ $ws_windows -gt 3 -a $n -gt 0 ]; then
  180.                 x_pos=(0 $pos_width $pos_width 0)
  181.                 y_pos=($((0 + top_panel_h)) $((0 + top_panel_h)) $((pos_height + top_panel_h)) \
  182.                       $((pos_height + top_panel_h)))
  183.                 temp_width=$disp_width2
  184.                 temp_height=$disp_height2
  185.             fi
  186.             window_array+=( $win_id','${x_pos[$n]}','${y_pos[$n]}','$temp_width','$temp_height )
  187.             let n++
  188.         fi
  189.     done
  190.  
  191.     for par in ${window_array[@]}; do
  192.         for((i = 1; i <= 5; i++)); do
  193.             declare par$i=$(echo ${par} | cut -f$i -d ',')
  194.         done
  195.         wmctrl -i -r $par1 -e 0,$par2,$par3,$par4,$par5
  196.     done
  197. fi
  198.  
  199. if [ $rotate_flag -gt 0 ]; then
  200.     sed -i 's/ /_/g' ./wm-ctrl.his
  201.     temp=$hv_flag','$main_add','
  202.     sed -i '1i '$temp'' ./wm-ctrl.his
  203. fi
投稿者 AO_o10yan 時刻: 18:56 0 コメント
ラベル: , ,

2016年6月19日日曜日

wmctrlでOpenboxウィンドウのタイリング

wmctrlを使ったシェルスクリプトでOpenboxのウィンドウを
タイリング操作してみる。


（録画にリソースをとられているので緩慢な動きですが、
実際は、、、。もう少しだけマシかな？）

※一応スクリプトを載せますが、ググればもっと素晴らしいスクリプトが出てくるので、
興味のある方はそちらを見てくださいね。
→https://bbs.archlinux.org/viewtopic.php?id=119020
尚、スクリプトには別途、wmctrl とxorg-apps のインストールが必要です※

※追記1（2016/06/21　20:25）※
スクリプトの書式を変更。機能的な変化はなし。
※追記2（2016/06/27　21:50）※
余分な処理を削除。機能的な変化なし。
※追記3（2016/06/28　22:30）※
メインウィンドウのローテーションを保持したままサイズ変更出きるようにした。
第一引数に数値（ピクセル単位）だけを指定すると、メインウィンドウのサイズが変更される。
プラスの数値で広く、マイナスの数値で狭くなる。
＜使い方＞
第一引数には、h、v、r及び数値の指定ができる。
h　　ウィンドウを横に並べる。第2引数に数値を指定すると、その数値の分だけメインウィンドウが広くなる。
v　　ウィンドウを縦に並べる。第2引数に数値を指定すると、その数値の分だけメインウィンドウが広くなる。
r　　メインウィンドウを入れ替える（ローテートする）。
数値　 メインウィンドウのサイズ変更。
（ウィンドウが4つ以上だと、メインの意味はなくなるので注意）

  1. #!/bin/bash
  2.  
  3. PRE_IFS=$IFS
  4. IFS=$'\n'
  5.  
  6. panel_h=28
  7. title_h=28
  8. disp_width=$(xwininfo -root | grep 'Width' | cut -f2 -d ':' | sed 's/^[ \t]*//')
  9. disp_height=$(xwininfo -root | grep 'Height' | cut -f2 -d ':' | sed 's/^[ \t]*//')
  10.  
  11. rotate_flag=0
  12. if [ $# -eq 1 ]; then
  13.     if [ $1 = 'h' -o $1 = 'v' ]; then
  14.         hv_flag=$1
  15.         main_add=0
  16.     elif [ $1 = 'r' ]; then
  17.         rotate_flag=1
  18.     elif [ $1 -gt 0 -o $1 -lt 0 ]; then
  19.         rotate_flag=2
  20.     else
  21.         hv_flag='h'
  22.         #main_add=$1
  23.     fi
  24. elif [ $# -eq 2 ]; then
  25.     hv_flag=$1
  26.     main_add=$2
  27. else
  28.     hv_flag='h'
  29.     main_add=0
  30. fi
  31.  
  32. temp_file='./wm-ctrl.txt'
  33. if [ $rotate_flag -gt 0 ]; then
  34.     hv_flag=$(sed -n 1p ./wm-ctrl.his | cut -f1 -d',')
  35.     main_add=$(sed -n 1p ./wm-ctrl.his | cut -f2 -d',' | sed 's/^[ \t]*//')
  36.     if [ $rotate_flag -eq 1 ]; then
  37.         temp_1=$(sed -n 2p ./wm-ctrl.his)
  38.         sed -i '$a '$temp_1'' ./wm-ctrl.his
  39.         sed -i 1,2d ./wm-ctrl.his
  40.     else
  41.         sed -i 1d ./wm-ctrl.his
  42.         main_add=$((main_add + $1))
  43.     fi
  44.     sed -i 's/_/ /g' ./wm-ctrl.his
  45.     temp_file='./wm-ctrl.his'
  46. fi
  47.  
  48. wmctrl -l > wm-ctrl.txt
  49. txt_lines=$(wc $temp_file | sed 's/^[ \t]*//' | cut -f1 -d " ")
  50. if [ $txt_lines -gt 0 ]; then
  51.     current_ws=$(xprop -root -notype _NET_CURRENT_DESKTOP | cut -b 24)
  52.     #active_win=$(xprop -root -notype _NET_ACTIVE_WINDOW | cut -b 33-43)
  53.  
  54.     ws_windows=0
  55.     for((i = 1; i <= $txt_lines; i++)); do
  56.         ws_flag=$(sed -n $i'p' $temp_file | cut -b 12-13)
  57.         if [ $ws_flag -eq $current_ws ]; then
  58.             let ws_windows++
  59.         fi
  60.     done
  61.  
  62.     disp_width2=$((disp_width / 2))
  63.     disp_height2=$(($(((disp_height - panel_h) / 2)) - title_h))
  64.     disp_width_main=$((disp_width2 + main_add))
  65.     disp_height_main=$((disp_height2 + main_add))
  66.     disp_width_sub=$((disp_width2 - main_add))
  67.     disp_height_sub=$((disp_height2 - main_add))
  68.  
  69.     pos_width=$((disp_width / 2))
  70.     pos_height=$(((disp_height - panel_h) / 2))
  71.  
  72.     if [ $hv_flag = 'v' ]; then
  73.         x_pos=(0 0 $pos_width $pos_width)
  74.         y_pos=(0 $((pos_height + main_add)) $((pos_height + main_add)) 0)
  75.     else
  76.         x_pos=(0 $((pos_width + main_add)) $((pos_width + main_add)) 0)
  77.         y_pos=(0 0 $pos_height $pos_height)
  78.     fi
  79.  
  80.     case $ws_windows in
  81.         1)
  82.             temp_width=$disp_width
  83.             temp_height=$((disp_height - panel_h - title_h));; 
  84.         [2-3])
  85.             temp_width=$disp_width2
  86.             temp_height=$((disp_height - panel_h - title_h));;
  87.         *)
  88.             temp_width=$disp_width2
  89.             temp_height=$disp_height2;;
  90.     esac
  91.  
  92.     window_array=()
  93.     n=0
  94.     for((i = 1; i <= $txt_lines; i++)); do
  95.         if [ $n -gt 3 ]; then
  96.             n=0
  97.         fi
  98.         ws_flag=$(sed -n $i'p' $temp_file | cut -b 11-13 | sed 's/^[ \t]*//')
  99.         if [ $ws_flag -eq $current_ws ]; then
  100.             win_id=$(sed -n $i'p' $temp_file | cut -b 1-10)
  101.             if [ $rotate_flag -eq 0 ]; then
  102.                 if [ $n -eq 0 ]; then
  103.                     echo $hv_flag','$main_add',' > wm-ctrl.his
  104.                     echo $win_id'__'$current_ws'_' >> wm-ctrl.his
  105.                 else
  106.                     echo $win_id'__'$current_ws'_' >> wm-ctrl.his
  107.                 fi
  108.             fi
  109.             if [ $ws_windows -eq 2 ]; then
  110.                 if [ $n -eq 0 ]; then
  111.                     if [ $hv_flag = 'v' ]; then
  112.                         temp_width=$disp_width
  113.                         temp_height=$disp_height_main
  114.                     else
  115.                         temp_width=$disp_width_main
  116.                     fi
  117.                 else
  118.                     if [ $hv_flag = 'v' ]; then
  119.                         temp_width=$disp_width
  120.                         temp_height=$disp_height_sub
  121.                     else
  122.                         temp_width=$disp_width_sub
  123.                         temp_height=$((disp_height - panel_h - title_h))
  124.                     fi
  125.                 fi
  126.             fi            
  127.             if [ $ws_windows -eq 3 ]; then
  128.                 if [ $n -eq 0 ]; then
  129.                     if [ $hv_flag = 'v' ]; then
  130.                         temp_width=$disp_width
  131.                         temp_height=$disp_height_main
  132.                     else
  133.                         temp_width=$disp_width_main
  134.                     fi
  135.                 fi
  136.             fi
  137.             if [ $ws_windows -gt 2 -a $n -gt 0 ]; then
  138.                 if [ $hv_flag = 'v' ]; then
  139.                     temp_width=$disp_width2
  140.                     temp_height=$disp_height_sub
  141.                 else
  142.                     temp_width=$disp_width_sub
  143.                     temp_height=$disp_height2
  144.                 fi
  145.             fi
  146.             if [ $ws_windows -gt 3 -a $n -gt 0 ]; then
  147.                 x_pos=(0 $pos_width $pos_width 0)
  148.                 y_pos=(0 0 $pos_height $pos_height)
  149.                 temp_width=$disp_width2
  150.                 temp_height=$disp_height2
  151.             fi
  152.             window_array+=( $win_id','${x_pos[$n]}','${y_pos[$n]}','$temp_width','$temp_height )
  153.             let n++
  154.         fi
  155.     done
  156.  
  157.     for par in ${window_array[@]}; do
  158.         for((i = 1; i <= 5; i++)); do
  159.             declare par$i=$(echo ${par} | cut -f$i -d ',')
  160.         done
  161.         wmctrl -i -r $par1 -e 0,$par2,$par3,$par4,$par5
  162.     done
  163. fi
  164.  
  165. if [ $rotate_flag -gt 0 ]; then
  166.     sed -i 's/ /_/g' ./wm-ctrl.his
  167.     temp=$hv_flag','$main_add','
  168.     sed -i '1i '$temp'' ./wm-ctrl.his
  169. fi
投稿者 AO_o10yan 時刻: 18:19 0 コメント
ラベル: ,

2016年6月5日日曜日

修正「簡易ポーズエディタ」

Raspberry Pi 2　4足歩行ロボット用「簡易ポーズエディタ」 で作ったスクリプトの修正。
例によって、上部のボタンは意味なし 。


レイアウト修正と、ファイル「新規作成」の修正及び、「ポーズ追加」ボタンの付加。

中央下の「新規作成」ボタンでスクリプトファイル（形式のテキストファイル)作成。

「ポーズ追加」ボタンで、次のポーズを追加。

テキストファイルなので、実行権限はなし。
動きの無いサーボモータに対しても同位置の指示が書き込みされている。
ポーズ間のスリープは1秒固定。

実際には、上の修正をしながらシェルスクリプトとして手作業で仕上げて行く。

  1. #!/bin/bash
  2.  
  3. export test00='
  4. echo $USER
  5. '
  6. export SERVO0='50'
  7. export SERVO1='50'
  8. export SERVO2='50'
  9. export SERVO3='50'
  10. export SERVO4='50'
  11. export SERVO5='50'
  12. export SERVO6='50'
  13. export SERVO7='50'
  14.  
  15. export MAIN_DIALOG='
  16.   <window>
  17.     <vbox>
  18.       <hbox>
  19.         <vbox>
  20.           <hbox>
  21.             <frame サーボ5(%)>
  22.               <vscale height-request="200" range-min="10" range-max="90" range-step="1">
  23.                 <default>50</default>
  24.                 <variable>SERVO5</variable>
  25.                 <action>bash -c "echo 5="$SERVO5"% > /dev/servoblaster"</action>
  26.                 <action type="refresh">TEXT5</action>
  27.               </vscale>
  28.             </frame>
  29.             <frame サーボ4(%)>
  30.               <vscale height-request="200" range-min="10" range-max="90" range-step="1">
  31.                 <default>50</default>
  32.                 <variable>SERVO4</variable>
  33.                 <action>bash -c "echo 4="$SERVO4"% > /dev/servoblaster"</action>
  34.                 <action type="refresh">TEXT4</action>
  35.               </vscale>
  36.             </frame>
  37.           </hbox>
  38.           <hbox>
  39.             <frame サーボ7(%)>
  40.               <vscale height-request="200" range-min="10" range-max="90" range-step="1" inverted="true">
  41.                 <default>50</default>
  42.                 <variable>SERVO7</variable>
  43.                 <action>bash -c "echo 7="$SERVO7"% > /dev/servoblaster"</action>
  44.                 <action type="refresh">TEXT7</action>
  45.               </vscale>
  46.             </frame>
  47.             <frame サーボ6(%)>
  48.               <vscale height-request="200" range-min="10" range-max="90" range-step="1">
  49.                 <default>50</default>
  50.                 <variable>SERVO6</variable>
  51.                 <action>bash -c "echo 6="$SERVO6"% > /dev/servoblaster"</action>
  52.                 <action type="refresh">TEXT6</action>
  53.               </vscale>
  54.             </frame>
  55.           </hbox>
  56.         </vbox>
  57.  
  58.         <vbox>
  59.           <hbox>
  60.             <button>
  61.               <label>ボタン 1</label>
  62.               <action>echo $LANG</action>
  63.             </button>
  64.             <vbox>
  65.               <button width-request="110">
  66.                 <label>前進</label>
  67.                 <action>bash -c "$test00"</action>
  68.               </button>
  69.               <button>
  70.                 <label>後退</label>
  71.               </button>
  72.             </vbox>
  73.             <button>
  74.               <label>ボタン 4</label>
  75.             </button>
  76.           </hbox>
  77.           <vbox>
  78.             <frame>
  79.               <text>
  80.                 <variable>TEXT0</variable>
  81.                 <input>echo "echo 0="$SERVO0"% > /dev/servoblaster"</input>
  82.               </text>
  83.               <text>
  84.                 <variable>TEXT1</variable>
  85.                 <input>echo "echo 1="$SERVO1"% > /dev/servoblaster"</input>
  86.               </text>
  87.               <text>
  88.                 <variable>TEXT2</variable>
  89.                 <input>echo "echo 2="$SERVO2"% > /dev/servoblaster"</input>
  90.               </text>
  91.               <text>
  92.                 <variable>TEXT3</variable>
  93.                 <input>echo "echo 3="$SERVO3"% > /dev/servoblaster"</input>
  94.               </text>
  95.               <text>
  96.                 <variable>TEXT4</variable>
  97.                <input>echo "echo 4="$SERVO4"% > /dev/servoblaster"</input>
  98.               </text>
  99.               <text>
  100.                 <variable>TEXT5</variable>
  101.                 <input>echo "echo 5="$SERVO5"% > /dev/servoblaster"</input>
  102.               </text>
  103.               <text>
  104.                 <variable>TEXT6</variable>
  105.                 <input>echo "echo 6="$SERVO6"% > /dev/servoblaster"</input>
  106.               </text>
  107.               <text>
  108.                 <variable>TEXT7</variable>
  109.                 <input>echo "echo 7="$SERVO7"% > /dev/servoblaster"</input>
  110.               </text>
  111.             </frame>
  112.           </vbox>
  113.           <entry>
  114.             <variable>FILE0</variable>
  115.             <default>"./temp.txt"</default>
  116.           </entry>
  117.           <button>
  118.             <label>新規作成</label>
  119.             <action>echo "#!/bin/bash" > $FILE0</action>
  120.             <action>echo "" >> $FILE0</action>
  121.             <action>echo "echo 0="$SERVO0"% > /dev/servoblaster" >> $FILE0</action>
  122.             <action>echo "echo 1="$SERVO1"% > /dev/servoblaster" >> $FILE0</action>
  123.             <action>echo "echo 2="$SERVO2"% > /dev/servoblaster" >> $FILE0</action>
  124.             <action>echo "echo 3="$SERVO3"% > /dev/servoblaster" >> $FILE0</action>
  125.             <action>echo "echo 4="$SERVO4"% > /dev/servoblaster" >> $FILE0</action>
  126.             <action>echo "echo 5="$SERVO5"% > /dev/servoblaster" >> $FILE0</action>
  127.             <action>echo "echo 6="$SERVO6"% > /dev/servoblaster" >> $FILE0</action>
  128.             <action>echo "echo 7="$SERVO7"% > /dev/servoblaster" >> $FILE0</action>
  129.           </button>
  130.           <button>
  131.             <label>ポーズ追加</label>
  132.             <action>echo "" >> $FILE0</action>
  133.             <action>echo "sleep 1" >> $FILE0</action>
  134.             <action>echo "" >> $FILE0</action>
  135.             <action>echo "echo 0="$SERVO0"% > /dev/servoblaster" >> $FILE0</action>
  136.             <action>echo "echo 1="$SERVO1"% > /dev/servoblaster" >> $FILE0</action>
  137.             <action>echo "echo 2="$SERVO2"% > /dev/servoblaster" >> $FILE0</action>
  138.             <action>echo "echo 3="$SERVO3"% > /dev/servoblaster" >> $FILE0</action>
  139.             <action>echo "echo 4="$SERVO4"% > /dev/servoblaster" >> $FILE0</action>
  140.             <action>echo "echo 5="$SERVO5"% > /dev/servoblaster" >> $FILE0</action>
  141.             <action>echo "echo 6="$SERVO6"% > /dev/servoblaster" >> $FILE0</action>
  142.             <action>echo "echo 7="$SERVO7"% > /dev/servoblaster" >> $FILE0</action>
  143.           </button>
  144.         </vbox>
  145.  
  146.         <vbox>
  147.           <hbox>
  148.             <frame サーボ0(%)>
  149.               <vscale height-request="200" range-min="10" range-max="90" range-step="1" inverted="true">
  150.                 <default>50</default>
  151.                 <variable>SERVO0</variable>
  152.                 <action>bash -c "echo 0="$SERVO0"% > /dev/servoblaster"</action>
  153.                 <action type="refresh">TEXT0</action>
  154.               </vscale>
  155.             </frame>
  156.             <frame サーボ1(%)>
  157.               <vscale height-request="200" range-min="10" range-max="90" range-step="1" inverted="true">
  158.                 <default>50</default>
  159.                 <variable>SERVO1</variable>
  160.                 <action>bash -c "echo 1="$SERVO1"% > /dev/servoblaster"</action>
  161.                 <action type="refresh">TEXT1</action>
  162.               </vscale>
  163.             </frame>
  164.           </hbox>
  165.           <hbox>
  166.             <frame サーボ2(%)>
  167.               <vscale height-request="200" range-min="10" range-max="90" range-step="1" inverted="true">
  168.                 <default>50</default>
  169.                 <variable>SERVO2</variable>
  170.                 <action>bash -c "echo 2="$SERVO2"% > /dev/servoblaster"</action>
  171.                 <action type="refresh">TEXT2</action>
  172.               </vscale>
  173.             </frame>
  174.             <frame サーボ3(%)>
  175.               <vscale height-request="200" range-min="10" range-max="90" range-step="1">
  176.                 <default>50</default>
  177.                 <variable>SERVO3</variable>
  178.                 <action>bash -c "echo 3="$SERVO3"% > /dev/servoblaster"</action>
  179.                 <action type="refresh">TEXT3</action>
  180.               </vscale>
  181.             </frame>
  182.           </hbox>
  183.         </vbox>
  184.       </hbox>
  185.     </vbox>
  186.   </window>
  187. '
  188.  
  189. gtkdialog -p MAIN_DIALOG -c
投稿者 AO_o10yan 時刻: 15:21 0 コメント
ラベル: , , , , , ,

2016年5月15日日曜日

Raspberry Pi　Arch Linux ARMでのWiringPi事情

 The wiringpi2 module has been deprecated, please 'import wiringpi' instead.


以前「4足歩行ロボットを作ってみよう（その1）」でWiringPiを紹介したが、
その時と事情が変わった模様。

前回は、Python用のラッパーWiringPi2-Pythonを使ったが、2016/5/15現在
そのままでは動かない事が分かった。

改めて、WiringPiをインストールして動作確認したので、その方法を書く。

クリーンな状態からやり直すためWiringPiをアンインストールし前回"git clone"した
ディレクトリを削除しておく。

WiringPiをインストール
  1. $ sudo pacman -S wiringpi

こちら https://github.com/WiringPi/WiringPi-PythonのREADME.mdを参照しつつ
ツール関係をインストール
  1. $ sudo pacman -S python-setuptools swig

GITからWiringPi-Pythonをインストール
  1. $ git clone --recursive https://github.com/WiringPi/WiringPi-Python.git
  2. $ cd ./WiringPi-Python
  3. $ swig -python wiringpi.i
  4. $ sudo python3 setup.py install

※上記のswigを忘れない事！！※

これでラッパーが使えるようになるが、Python3でラッパーを呼び出す際に
"import wiringpi2"としていたのが、"import wiringpi"となるので、以前に書いた
コードがあれば修正しておく
Python3で"import wiringpi2"とすると"ImportError"になる。

 ※追記1（2016/05/15　16:50）※
上記の方法でなくとも、別途"python-pip"をインストールの上で、
  1. $ sudo pip3 install wiringpi
することで、簡単にインストール出来ました。


 ※追記2（2017/04/10　20:10）※
kernelが4.9系の場合は、こちらのneuralassemblyさんの修正版をインストールしてください。
（pip3でインストールしていた場合は、予めアンインストールしておいてください）
投稿者 AO_o10yan 時刻: 13:30 0 コメント
ラベル: , ,

2016年3月13日日曜日

Scratch　フラクタル樹形を描いてみよう

前回、Scratchでコッホ曲線を描いた。今回はフラクタル樹形。

https://scratch.mit.edu/projects/100926629/

なにかフラクタル図形を描くことが目的に成ってるみたいだけど、ちょっと違う。

私は再帰処理は、理解できないので使いたくない。
だから、再帰処理を使わなくても再帰処理っぽいことはできないか？と思う。

で、再帰処理を使えば簡単にできるフラクタル図形だけど、これを再帰処理なしで
やってみよう。と言うのが目的。
要するに『再帰処理が嫌いだ！』って言いたい訳。

で、見た目は同じスクリプト内で自分を呼び出している様に見えるけど、
それは決して『再帰』している訳ではない。
単純に同じスクリプトを何回も実行しているに過ぎないので、
「そこんとこ宜しく！」なのだ。

https://scratch.mit.edu/projects/101234609/
（これは、作り直すかもしれない。現状では、パラメータの変更は根元の二股へ
戻った以降に反映されるが、その前でも反映できるようにしたいから）

 ※追記（2016/03/14　20:55）※
描画中に随時変更可能＆パラメータのランダム生成型を作りました。
https://scratch.mit.edu/projects/100445168/

投稿者 AO_o10yan 時刻: 9:30 0 コメント
ラベル: ,

2016年2月28日日曜日

Scratch　ローカル変数？？


Scratchで変数を作る時、「すべてのスプライト用」「このスプライトのみ」を
選択できる。

これをもって、「すべてのスプライト用」をグローバル変数、
 「このスプライトのみ」をローカル変数と解説している記事をよく目にする。
これは首を傾げずにはいられないですよね。

 或るスプライトに属する変数ではあるけど、それって、そのスプライトに関する
全てのスクリプトで参照・変更できるんですよね、、、。
スクリプト（プロシージャ）内でのみ機能する変数ではないので、それを単純に
ローカル変数として紹介してしまうのは、どうなんでしょう。

（2.0で定義ブロックってのが作れるらしいですが、その定義内にスコープが限定される
変数があるっぽいですね。）

投稿者 AO_o10yan 時刻: 17:51 0 コメント
ラベル: , ,

Scratch　スプライトに「向き」は無いよね

「何らかの角度」に関する数値は持ってると思うけど。
投稿者 AO_o10yan 時刻: 8:36 0 コメント
ラベル: , ,

Scratch　「ずっと」をbreakで抜ける


Scratchの「ずっと」ブロックには、終了後に他のブロックを組み合わせる為の
凸がない。

「ずっと」同じ処理を繰り返すのだから、次の処理を実行できないのは、
当然の理屈の様に思える。
ってか、普通にbreakして次の処理へ行きたいよね！！

仕方ないので、「[　]を送って待つ」と「スクリプトを止める」を使う。


https://scratch.mit.edu/projects/99517398/#editor

今回は、ループ処理が終了するのを待ってから次へ行くので、
「[　]を送って待つ」を使った。
並行にしたい場合は、「[　]を送る」にすればメッセージを送った後に
次の処理が始まる。
（くっ、下らねぇ、、、orz）
投稿者 AO_o10yan 時刻: 7:51 1 コメント
ラベル: , ,

Scratch　カウンタ変数でfor文


Scratchでは、「[10]回繰り返す」ブロックがある。
これ、違和感あるよね。（誰が10回を数えてるんだよ！）

なので、カウンタ変数を使ってfor文にする。


https://scratch.mit.edu/projects/99516656/#editor

この場合「まで繰り返す」の「まで」は、"i < 10"の間、真を返す。
"i = 10"になったら、ループが終了する。
 ここで、"i < 10"ってやっちゃうと、"i > 9"の間真を返すので要注意！！
（くっ、下らねぇ、、、orz）
投稿者 AO_o10yan 時刻: 7:14 0 コメント
ラベル: , ,

2016年2月27日土曜日

Scratch　はじめの「10歩」でつまずいて


Raspbianには、Scratch（と言うプログラミング環境）が入っているので、使ってみた。
（例によって、一般的な使い方や、入門編の類の話は書かないので、その辺はググってください）

先ずは、ネコを動かすところからなんだけど、
「10歩動かす」ブロックを使っても、10歩動いているようには見えない。

twitter上で悪態をついたところ、翻訳者の先生から返信を頂いたりして恐縮至極ですが、
やっぱり↓こんな風に動いて欲しいよね。
（以後、Web版のScratch 2.0を参照して行きます）
https://scratch.mit.edu/projects/99501857/#editor
 参考：https://scratch.mit.edu/discuss/topic/26943/

でも、 この「10歩動かす」ブロックの肝は、決して「歩」（距離・長さ）ではなく、
どの方向に動くかってことだと思う。所謂タートルグラフィックスと言うもの。
頭の固い老人は「10歩」と言う字面に拘ってしまうが、 子供は「動くことが楽しい」ので、
関係ないらしい。
もし、ここで引っ掛かった人は、『こう言うものだ』と思って、先に進んだ方が
良いかもしれない。
（この辺の話を、教育用のツールとして、どのように説明すべきか等を突き詰めたい人は、
それもまた面白いでしょうが。）

それならば、特性を生かした使い方をしてみよう。


https://scratch.mit.edu/projects/98641324/
タートルグラフィックスならば、小難しいことを考えなくても、この曲がり角で、
どっちを向いて進めば良いかを判定するだけで、コッホ曲線が描ける。
勿論、再帰処理を使えばもっとスッキリしたスクリプトになる。
私は、再帰処理だと、自分が今何処（どの階層）に 居るのか分からなくなるので使えない。
検索すれば、スマートなスクリプトが出てくるので、そちらを参考にして欲しい。

勢いで、作ってはみたものの、制御ブロック等に不思議な違和感があったことを
認めざるを得ない。
https://twitter.com/AO_o10yan/status/698413436561027074
 あるいは逆に、他の言語では構文を組み合わせて作らなければならない一連の操作が、
一つの単純なブロックにまとめられているのを目にした時、不満にも似た感情が沸く
のを禁じ得ない。
ってか、そのブロック使った方が簡単・便利だから使うけどね！！

いずれにしろ、Raspberry PiのOSにRaspbianを使っているなら、非常に面白いので、
使ってみるべきだと思う。
投稿者 AO_o10yan 時刻: 18:52 0 コメント
ラベル: , ,
登録: 投稿 ( Atom )