HOME HELP 新着記事 ツリー表示 発言ランク ファイル一覧 検索 過去ログ

■213 / 1階層) 　引き出し直線タイプ
□投稿者/ Makino 18回-(2006/04/30(Sun) 22:54:14)
https://www.geocities.jp/se_m646/

    記事内容:[|]　

    引き出し直線タイプ、出来ましたのでアップします。
    以下データー

    #引き出し線付き文字(引き出し直線タイプ)　　レイヤ固定

    input"文字入力 "%mozimei="ａｂｃ"
    input"文字ＮＯ "%mozino=3

    #線レイヤ番号
    %slay1=1
    #文字レイヤ番号
    %Mojilay1=2

    #選択後、元レイヤボタンをチェックする
    #記述すると決定後、元レイヤボタンがＯＮになる
    $motolayer_set

    #図寸に設定
    zusun_set
    #角度毎15度に設定
    $readkakudogoto_set:15
    #2点座標を読む
    gpoint_read2

    %gpread_x1=0
    %gpread_x2=9
    %gpread_y1=0
    %gpread_y2=0

    %zax1=%gpread_x2-%gpread_x1
    %zay1=%gpread_y2-%gpread_y1

    #2点間の角度を取得
    $sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
    #結果変数代入
    %kakudo1=%result_a

    #2点間の長さ取得
    $sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
    %LL1=%result_a

    #2点間の角度で回転させた座標取得
    $rotate:0:0:%LL1:0:%kakudo1
    %zax1=%result_x1
    %zay1=%result_y1

    #矢印
    line:0:0:2.8977:0.7764:%kakudo1:-1:-1:%slay1
    line:0:0:2.8977:-0.7764:%kakudo1:-1:-1:%slay1
    line:2.8977:0.7764:2.8977:-0.7764:%kakudo1:-1:-1:%slay1
    #引き出し
    line:2.8977:0:%LL1:0:%kakudo1:-1:-1:%slay1

    #文字の長さを計算する関数
    $moji_nagasa:%mozimei:%mozino
    %takasa1=(%result_y1)/2+1

    #角度が０以上の時
    if %kakudo1>=0 then
    %haba1=%result_x1+2
    %haba2=1
    endif
    #角度が90以上の時
    if %kakudo1>90 then
    %haba1=-(%result_x1+2)
    %haba2=-(%result_x1+1)
    endif
    #角度が270以上の時
    if %kakudo1>270 then
    %haba1=%result_x1+2
    %haba2=1
    endif

    #文字
    moji:%zax1+%haba2:%zay1:0:%mozino:8:0:%mozimei:%Mojilay1

    #線枠
    line:%zax1:%zay1+%takasa1:%zax1+%haba1:%zay1+%takasa1:0:-1:-1:%slay1
    line:%zax1:%zay1-%takasa1:%zax1+%haba1:%zay1-%takasa1:0:-1:-1:%slay1
    line:%zax1:%zay1-%takasa1:%zax1:%zay1+%takasa1:0:-1:-1:%slay1
    line:%zax1+%haba1:%zay1-%takasa1:%zax1+%haba1:%zay1+%takasa1:0:-1:-1:%slay1


記事引用 [メール受信/OFF] 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←変形図形 /bear →Re[2]: 引き出し直線タイプ /bear
→Re[2]: 引き出し直線タイプ /独ターＫ
　
上記関連ツリー

Nomal 変形図形 / bear (06/04/29(Sat) 00:11) #207
├Nomal Re[1]: 変形図形 / Makino (06/04/29(Sat) 00:25) #208
├Nomal 引き出しアールタイプ / Makino (06/04/30(Sun) 22:51) #212
└Nomal 引き出し直線タイプ / Makino (06/04/30(Sun) 22:54) #213 ←Now
  ├Nomal Re[2]: 引き出し直線タイプ / bear (06/05/01(Mon) 09:04) #214
  └Nomal Re[2]: 引き出し直線タイプ / 独ターＫ (06/05/02(Tue) 03:12) #215

All 上記ツリーを一括表示
　
上記の記事へ返信