/ 親階層)  おえかきてすと

□投稿者/ まっちゃん さん ( ) 【111.97.94.170】(2016/01/27(Wed) 22:46:43)

   
    #------------------------------------------
    #【ソフト名】 おえかきてすと
    #【 作 者 】 まっちゃん
    #【 転載 】 全て許可
    #【なでしこのバージョン】 ver.1.555
    #【  実行 の 注意点  】 なし
    #【   紹 介     】 お絵かき帳のテストです。
    # 使える機能は少しです

    円イメージとはイメージ
    その可視はオフ
    そのレイアウトは全体
    モード=1
    D線太=線太さ
    D線色=黒色
    母艦のマウス押時は
     描画フラグはオン
     X1=母艦のマウスX
     Y1=母艦のマウスY
     線色=D線色
     もしOR(モード=2,モード=3)なら
      円イメージのX1-5,Y1からX1+5,Y1へ線
      円イメージのX1,Y1-5からX1,Y1+5へ線

    母艦のマウス移動した時は〜
     もし描画フラグがオンなら
      モードで条件分岐
       1なら//線
        線太さ=D線太
        線色=D線色
        X1,Y1から母艦のマウスX,母艦のマウスYへ線
        X1=母艦のマウスX
        Y1=母艦のマウスY
       2なら//楕円
        円イメージの画面クリア
        円イメージの可視はオン
        線スタイル=実線
        塗りスタイル=透明
        線太さ=1
        線色=黒色
        母艦を円イメージの0,0へ画像コピー
        円イメージのX1-5,Y1からX1+5,Y1へ線
        円イメージのX1,Y1-5からX1,Y1+5へ線
        母艦=X1,Y1と母艦のマウスX,母艦のマウスYの距離
        線スタイル=点線
        円イメージのX1-(母艦のマウスX-X1),Y1-(母艦のマウスY-Y1)から母艦のマウスX,母艦のマウスYへ円
        線太さ=D線太
        線色=D線色
       3なら//円
        円イメージの画面クリア
        円イメージの可視はオン
        線スタイル=実線
        塗りスタイル=透明
        線太さ=1
        線色=黒色
        母艦を円イメージの0,0へ画像コピー
        円イメージのX1-5,Y1からX1+5,Y1へ線
        円イメージのX1,Y1-5からX1,Y1+5へ線
        //母艦=X1,Y1と母艦のマウスX,母艦のマウスYの距離
        線スタイル=点線
        X半径=ABS(母艦のマウスX-X1)
        Y半径=ABS(母艦のマウスY-Y1)
        もしAND(X半径>0,X半径>Y半径)なら
         X3=X1-X半径。Y3=Y1-X半径。X4=X1+X半径。Y4=Y1+X半径。母艦=3
        もしAND(Y半径>0,X半径<Y半径)なら
         X3=X1-Y半径。Y3=Y1-Y半径。X4=X1+Y半径。Y4=Y1+Y半径。母艦=4
        円イメージのX3,Y3からX4,Y4へ円
        線太さ=D線太
        線色=D線色
       4なら//直線
        円イメージの画面クリア
        円イメージの可視はオン
        線スタイル=実線
        塗りスタイル=透明
        線太さ=1
        線色=黒色
        母艦を円イメージの0,0へ画像コピー
        円イメージのX1-5,Y1からX1+5,Y1へ線
        円イメージのX1,Y1-5からX1,Y1+5へ線
        X2=母艦のマウスX
        Y2=母艦のマウスY
        円イメージのX2-5,Y2からX2+5,Y2へ線
        円イメージのX2,Y2-5からX2,Y2+5へ線
        線スタイル=点線
        円イメージのX1,Y1から母艦のマウスX,母艦のマウスYへ線
        線太さ=D線太
        線色=D線色
    母艦のマウス離した時は〜
     描画フラグはオフ
     線スタイル=実線
     塗りスタイル=透明
     線太さ=D線太
     もしモード=2なら
      円イメージの可視はオフ
      X1-(母艦のマウスX-X1),Y1-(母艦のマウスY-Y1)から母艦のマウスX,母艦のマウスYへ円
     もしモード=3なら
      円イメージの可視はオフ
      X3,Y3からX4,Y4へ円
     もしモード=4なら
      円イメージの可視はオフ
      X1,Y1から母艦のマウスX,母艦のマウスYへ線
    ●距離({数値}X1,{数値}Y1と{数値}X2,{数値}Y2の)
     SQRT((X1-X2)^2+(Y1-Y2)^2)を戻す。
    「,pen,ペン
    pen,col,色選択,,,D線色は色選択
    pen,lw,線太さ,,,線太さ選択
    ,mode,モード
    mode,mode1,線,,チェック,1にモード変更
    mode,mode4,直線,,,4にモード変更
    mode,mode2,楕円,,,2にモード変更
    mode,mode3,円,,,3にモード変更」をメニュー一括作成
    ●線太さ選択
     "線の太さを決めてください"と尋ねる
     もしそれ<>「」ならD線太=それ
    ●モード変更(Aに)
     モード=A
     4回
      EVAL(「mode{回数}→チェックはオフ」)
     EVAL(「mode{A}→チェックはオン」)


    ※(2016/01/27(Wed) 22:47:45 編集[投稿者])
削除キー/

コメントを記入

 
関連内容&回答

Nomal おえかきてすと / まっちゃん (16/01/27(Wed) 22:46) [#1321] 【 表 示 内 容 】


Name/
E-Mail/
Title/
URL/
Icon/ (画像を選択/サンプル一覧)
削除キー/ (半角8文字以内)
確認キー/ (”日本語でナデシコ”と記入)
 

Pass/

BBS CGI RSS CGI
Child Tree RSS/SPAM対応版