GINPRO / SQLの窓と銀プログラマ

;
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Analogize script  for GIMP 2.4
; Copyright (C) 2005 Ismael Valladolid Torres <ivalladt@punkass.com>
;
; Tags: photo, old
;
; Author statement:
;; A script-fu for the GIMP that makes any picture look as if it had
;; been taken using an old analog camera. Exaggerates contrast and
;; saturation and creates a bright and a dark overlay randomly
;; placed. Think of it as kind of a Lomo Kompakt or Kodak instantmatic
;; faking effect. However it still can't make anything to emulate the
;; peculiar chromatism usually achieved using the real thing.
;;
;; Check http://analogize.berlios.de/ for more information.
;
;
; --------------------------------------------------------------------
; Distributed by Gimp FX Foundry project
; --------------------------------------------------------------------
;   - Changelog -
;
; --------------------------------------------------------------------
;
;    This program is free software: you can redistribute it and/or modify
;    it under the terms of the GNU General Public License as published by
;    the Free Software Foundation, either version 3 of the License, or
;    (at your option) any later version.
;
;    This program is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;    GNU General Public License for more details.
;
;    You should have received a copy of the GNU General Public License
;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (script-fu-analogize img
                 drawable
                 contrast
                 saturation
                 bright-opacity
                 shadow-opacity
                 duplicate-shadow
                 flatten
                 copy)
 (let* (
        (image 0)
        (layer 0)
        (image-width 0)
        (image-height 0)
        (half-image-width 0)
        (half-image-height 0)
        (center-x 0)
        (center-y 0)
        (bright-layer 0)
        (shadow-layer 0)
        (shadow-layer2 0)
        (width-factor 0)
        (height-factor 0)
       )

  (set! image (if (= copy TRUE)
          (car (gimp-image-duplicate img))
          img))

  (gimp-image-undo-group-start image)

  (set! layer (car (gimp-image-flatten image)))

  (set! image-width (car (gimp-image-width image)))
  (set! image-height (car (gimp-image-height image)))

  (set! half-image-width (/ image-width 2))
  (set! half-image-height (/ image-height 2))

  (set! width-factor (/ (- 85 (rand 170)) 100))
  (set! height-factor (/ (- 85 (rand 170)) 100))

  (set! center-x (+ half-image-width (* half-image-width width-factor)))
  (set! center-y (+ half-image-height (* half-image-height height-factor)))

  (gimp-brightness-contrast layer 0 contrast)
  (gimp-hue-saturation layer 0 0 0 saturation)

  (set! bright-layer (car (gimp-layer-new image
                      image-width
                      image-height
                      1 "Brillo" bright-opacity 5)))

  (gimp-image-add-layer image bright-layer 0)
  (gimp-edit-clear bright-layer)
  (gimp-context-set-foreground '(255 255 255))

  (gimp-edit-blend bright-layer 2 0 2 100 0 0 FALSE FALSE 0 0 TRUE
           center-x center-y
           (+ half-image-width center-x) 0)

  (set! shadow-layer (car (gimp-layer-new image
                      image-width
                      image-height
                      1 "Sombra" shadow-opacity 5)))

  (gimp-image-add-layer image shadow-layer 0)
  (gimp-edit-clear shadow-layer)
  (gimp-context-set-foreground '(0 0 0))

  (if (= (rand 2) 0)
      (begin
    (gimp-edit-blend shadow-layer 2 0 0 100 0 0 FALSE FALSE 0 0 TRUE
             0 0
             center-x center-y)

    (gimp-edit-blend shadow-layer 2 0 0 100 0 0 FALSE FALSE 0 0 TRUE
             image-width image-height
             center-x center-y))
      (begin
    (gimp-edit-blend shadow-layer 2 0 0 100 0 0 FALSE FALSE 0 0 TRUE
             image-width 0
             center-x center-y)

    (gimp-edit-blend shadow-layer 2 0 0 100 0 0 FALSE FALSE 0 0 TRUE
             0 image-height
             center-x center-y)))

  (cond ((= duplicate-shadow TRUE)
     (set! shadow-layer2 (car (gimp-layer-copy shadow-layer 0)))
     (gimp-image-add-layer image shadow-layer2 0)))

  (cond ((= flatten TRUE)
     (gimp-image-flatten image)))

  (cond ((= copy TRUE)
     (gimp-display-new image)))

  (gimp-image-undo-group-end image)
  (gimp-displays-flush)
  )
)

(script-fu-register "script-fu-analogize"
            "Analogize..."
            "A simple analog camera faking effect"
            "Ismael Valladolid Torres <ivalladt@punkass.com>"
            "Ismael Valladolid Torres"
            "2005"
            "RGB*"
            SF-IMAGE "The image" 0
            SF-DRAWABLE "The layer" 0
            SF-ADJUSTMENT "コントラスト(20)" '(20 0 60 1 5 0 0)
            SF-ADJUSTMENT "彩度(20)" '(20 0 60 1 5 0 0)
            SF-ADJUSTMENT "レイヤーの不透明度(80)" '(80 0 100 1 10 0 0)
            SF-ADJUSTMENT "影のレイヤーの不透明度(100)" '(100 0 100 1 10 0 0)
            SF-TOGGLE "影のレイヤーを２枚にして濃くする" TRUE
            SF-TOGGLE "処理後の画像を統合する" FALSE
            SF-TOGGLE "Work on copy" TRUE)

(script-fu-menu-register "script-fu-analogize"
             "<Image>/Effects")

        private async void webView_LoadComplete(object sender, NavigationEventArgs e)
        {

            String token = e.Uri.ToString();

            if (token.IndexOf("access_token=") != -1)
            {

                // 0 番目が 位置情報としてのURL 部分
                String[] url_params = token.Split(new Char[] { '?', '&' });
                String[] key_value = url_params[1].Split(new Char[] { '=' });

                ((TextBox)App.mainPage.FindName("PostBody")).Text = key_value[1];
                
            }

        }

<?
session_start();

//$_SESSION['login'] = '';
//$_SESSION['client_id'] = '';

$login_script = 'http://localhost/lightbox/work/api/login.php';

// 入力では無い
if ( $_SERVER['REQUEST_METHOD'] == 'GET' ) {
	// ログインされていない
	if ( $_SESSION['login'] != 'yes' ) {
		// アプリケーション ID が指定されていない
		if ( $_GET['client_id'] != 'abcdefg0123456789' ) {
			// エラーによるリダイレクトでは無い
			if ( $_GET['er'] != '000' ) {
				// エラーコード 000 でリダイレクト
				header("Location: {$login_script}?er=000");
				exit();
			}
		}
	}
	// ログインされている
	else {
		// ログイン時のアプリ ID と一致しない
		if ( $_GET['client_id'] != $_SESSION['client_id'] ) {
			// ログアウトする
			$_SESSION['login'] = '';
			$_SESSION['client_id'] = '';
			// エラーコード 000 でリダイレクト
			header("Location: {$login_script}?er=000");
			exit();
		}
	}
}

// 入力である
if ( $_SERVER['REQUEST_METHOD'] == 'POST' ) {
	if ( $_SESSION['login'] != 'yes' ) {
		// ユーザが正しく無い
		// 一般 WEB では、この場合のメッセージは、『ユーザまたはパスワードが正しくありません』とする
		if ( $_POST['login_user'] != 'lightbox' ) {
			header("Location: {$login_script}?er=001&client_id={$_GET['client_id']}");
			exit();
		}
		// パスワードが一致しない
		// 一般 WEB では、この場合のメッセージは、『ユーザまたはパスワードが正しくありません』とする
		if ( hash_hmac('sha256', $_POST['login_pass'], "r101" ) != 'aba283b0fece03ad2e0394cdbd6d163a2c45bbdb3b3697979e8f3c0fde3e939d' ) {
			header("Location: {$login_script}?er=002&client_id={$_GET['client_id']}");
			exit();
		}
	
		// ログイン終了
		$_SESSION['login'] = 'yes';
		$_SESSION['client_id'] = $_GET['client_id'];
		// アプリケーション ID を引き渡して『許可画面』に遷移する
		header("Location: {$login_script}?client_id={$_GET['client_id']}");

	}
}

// ログインしている
if ( $_SESSION['login'] == 'yes' ) {
	// アプリ ID がある
	if ( $_SESSION['client_id'] != '' ) {
		// 許可ボタンを押した
		if ( $_POST['allow_button'] != '' ) {
			header("Location: {$login_script}?access_token=アクセストークン&client_id={$_GET['client_id']}");
		}
	}
}


?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>API ログイン</title>
</head>
<body>
<?
if ( $_GET['er'] != '' ) {
	if ( $_GET['er'] == '000' ) {
		print '<span style="color:red;font-weight:bold;">処理できません</span>';
	}
	if ( $_GET['er'] == '001' ) {
		print '<span style="color:red;font-weight:bold;">ユーザが正しくありません</span>';
	}
	if ( $_GET['er'] == '002' ) {
		print '<span style="color:red;font-weight:bold;">パスワードが正しくありません</span>';
	}
}
if ( $_SESSION['login'] != 'yes' ) {
	require_once('pass_1.php');
}
else {
	if ( $_SESSION['client_id'] != '' ) {

		if ( $_GET['access_token'] != '' ) {
			print "アクセストークン処理完了";
		}
		else {
			// 許可ホタンを押す前
			require_once('pass_2.php');
		}

	}
}

?>
<pre>
<? //print_r($_SESSION)  ?>
</pre>

</body>
</html>

<!-- ログインフォーム -->
<form method="post">
ユーザ <input name="login_user" type="text"/> <br />
パスワード  <input name="login_pass" type="password"/> <br />
<input name="login_button" type="submit" value="ログイン"/> <br />
</form>

<!-- 許可フォーム -->
<form method="post">
<input name="allow_button" type="submit" value="許可する"/> <br />
</form>