[FORCE]: 2019年7月

The Secret Life of Walter Mitty

オープニングのタイトルバックが良かった
全編通して、『絵』のセンスの良さが目立つ
とてもカメラが良い

オープニングのこのグラフィックの感じは全編感じる

ねっ
ちょっと新しいでしょ

2019年7月21日 (日) Movies | 固定リンク

girl next door

姉ぇさん押しでしたが、妹もいいなぁ
ホント、その辺に居そうな感じが良いのかなぁ
しかし最高の泣き笑いシーンじゃないの？

MS明

MSゴ
メイリオだけでなく
両方とも、令和の合字が入っています。
（しかし野球好きにはたまらん記号文字やなぁ…笑）

遊明
遊ゴ

こちらは縦書き用にも合字が入っています。
これは『異体字』とはちょっと違って…あくまでも『縦書き用』と『横書き用』です。

え…電話しないで、少しは自分で調べたりするように…笑

2019年7月20日 (土) TV | 固定リンク

【QR】マップ用のQRコードを作る（Google Chart利用）

マップ用のリンクは
ブラウザ閲覧用→これは正解が見つからなかった
GoogleMap用

AppleMap用　の振り分け

GoogleMap用
https://www.google.com/maps/@Latitude,Longitude,range
→この方式を選択
↓この方法でも良かったかな…
https://www.google.com/maps/search/?api=1&query=Latitude,Longitude

AppleMap用は
GEO:Latitude,Longitude　←これはiOS専用かね？

そして汎用として
http://maps.apple.com/?q=Latitude,Longitude
↑
iOS以外のデバイスでアクセスするとGoogleMapに転送されるので両刀使いでお勧め

(*

Geo2Qr4Chrome.scpt
Chromeで開いているページのQRを作成します。
たぶんiOS専用　

20190715　初回作成

APIの仕様は
https://developers.google.com/chart/infographics/docs/qr_codes


*)

tell application "Google Chrome"
activate
tell window 1
tell active tab
set theURL to URL as text
end tell
end tell
end tell

tell application "Finder"
activate
set objAns to ¬
display alert ¬
"どちら用のQRコードを作成しますか？" message ¬
"iOS用AppleMapのQRコードを作成する OR 一般的なQRコードを作成する" default button 1 ¬
buttons {"AppleMap用", "GoogleMap用", "汎用"}
end tell


set AppleScript's text item delimiters to {"/"}
set listUrl to every text item of theURL as list
set numCntUrl to (count of listUrl) as number
set numSepUrl to 1 as number
set AppleScript's text item delimiters to {""}
log numCntUrl

repeat numCntUrl times
set theSepUrl to (item numSepUrl of listUrl) as text
try
set theUrlParts to (the character 1 of theSepUrl)
on error
set theUrlParts to " "
end try


if theUrlParts is "@" then
set theGooglemapParts to theSepUrl
set theSepUrl to doReplace(theSepUrl, "@", "")
set AppleScript's text item delimiters to {","}
set listSepUrl to every text item of theSepUrl as list
set theLatitude to (item 1 of listSepUrl) as text
set theLongitude to (item 2 of listSepUrl) as text
set AppleScript's text item delimiters to {""}
end if
set numSepUrl to numSepUrl + 1 as number
end repeat


if (button returned of objAns) is "AppleMap用" then
set theChl to ("GEO:" & theLatitude & "," & theLongitude & "") as text
log theChl
else if (button returned of objAns) is "GoogleMap用" then
set theChl to ("https://www.google.com/maps/" & theGooglemapParts & "") as text
else
set theChl to ("http://maps.apple.com/?q=" & theLatitude & "," & theLongitude & "") as text
end if


--API各項目
--BASE URL
set theApiUrl to "https://chart.googleapis.com/chart?" as text

set theCht to "qr" as text

set theChs to "540x540" as text

set theChoe to "UTF-8" as text

---L M Q R
set theChld to "Q" as text

--URLを整形
set theOpenUrl to ("" & theApiUrl & "&cht=" & theCht & "&chs=" & theChs & "&choe=" & theChoe & "&chld=" & theChld & "&chl=" & theChl & "") as text


-----Chromeで開く
tell application "Google Chrome"
activate
tell window 1
set active tab index to 1
make new tab
tell active tab
set URL to theOpenUrl
end tell
end tell
end tell







to doReplace(theText, orgStr, newStr)
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to orgStr
set tmpList to every text item of theText
set AppleScript's text item delimiters to newStr
set tmpStr to tmpList as text
set AppleScript's text item delimiters to oldDelim
return tmpStr
end doReplace

ダウンロード - geo2qr4chrome.scpt.zip

2019年7月15日 (月) Barcode2D | 固定リンク

【QR】イベント・カレンダー登録用のQRコードを作る（Google Chart利用）

iCalフォーマットのicsファイルをQRコードに変換します。

(*

make_qrcode4_eventfile.scpt
イベント登録用のQRを作成します。
たぶんiOS専用　

20190714　初回作成

APIの仕様は
https://developers.google.com/chart/infographics/docs/qr_codes


*)


on run
set theWithPrompt to "QRコードを作成します。"
set theDefLoc to path to downloads folder from user domain
set theFileType to "public.vcard,com.apple.ical.ics" as text
set AppleScript's text item delimiters to {","}
set theFileTypeList to every text item of theFileType
open (choose file default location theDefLoc ¬
with prompt theWithPrompt ¬
of type theFileTypeList ¬
without invisibles)
end run



on open DropObj
set theFilePath to POSIX path of DropObj
set theChl to (do shell script "cat '" & theFilePath & "'") as text
set theChl to doReplace(theChl, "\r ", "") as text
set theChl to doReplace(theChl, "\"", "\\\"") as text
set theChl to my encodeURL(theChl) as text
set theChl to doReplace(theChl, "+", "%20") as text

--BASE URL
set theApiUrl to "https://chart.googleapis.com/chart?" as text

set theCht to "qr" as text

set theChs to "540x540" as text

set theChoe to "UTF-8" as text

---L M Q R
set theChld to "L" as text

--URLを整形
set theOpenUrl to ("" & theApiUrl & "&cht=" & theCht & "&chs=" & theChs & "&choe=" & theChoe & "&chld=" & theChld & "&chl=" & theChl & "") as text


-----サファリで開く
tell application "Safari"
activate
make new document with properties {name:"QR-CODE by Google API"}
tell window 1
open location theOpenUrl
end tell
end tell


end open


--------------文字の置き換えサブルーチン
to doReplace(theText, theOrgStr, theNewStr)
set theOldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to theOrgStr
set theTmpList to every text item of theText
set AppleScript's text item delimiters to theNewStr
set theReplaceStr to theTmpList as text
set AppleScript's text item delimiters to theOldDelim
return theReplaceStr
end doReplace


---URLエンコードのサブルーチン
on encodeURL(str)
set scpt to "php -r 'echo urlencode(\"" & str & "\");'"
return do shell script scpt
end encodeURL

ダウンロード - make_qrcode4_eventfile.zip

2019年7月14日 (日) Barcode2D | 固定リンク

PostScript Nameの取得

PostScript Nameを取得したい。
いわゆる『これ』

答え先に言うと、フォントの情報ってファウンダリー毎にマチマチだったりして
『これ』って方法は無いんです。

だいたいこの３つの『組み合わせ』

AppleScriptからの取得
exiftoolからの取得
スポットライト　mdls

と
PostScriptName（Aiのドキュメンド情報と＝って意味での）だとexiftoolになりますが

ファミリーネーム等だと

そうじゃないだろ…って思いますよね『ファミリー名』だから
まぁ、これは仕様の部分もあるし、ファウンダリーでマチマチな部分でもありますので
正解が無いって感じで『だいたい、こんなもんかな』程度までで良いと思います。

続く

2019年7月14日 (日) AppleScriptFontBook | 固定リンク

【QR】ブラウザで表示中のURLをQRコードにする（Google Chart利用）

ユーザーのアプリケーションスクリプトフォルダに入れて使います。

(*

Url2QR4Safari.scpt
サファリで開いているページのQRを作成します。
たぶんiOS専用　

20190706　初回作成

APIの仕様は
https://developers.google.com/chart/infographics/docs/qr_codes


*)

tell application "Safari"
activate
tell window 1
set theChl to do JavaScript "encodeURIComponent(document.URL)" in front document
end tell
end tell


--API各項目
--BASE URL
set theApiUrl to "https://chart.googleapis.com/chart?" as text

set theCht to "qr" as text

set theChs to "540x540" as text

set theChoe to "UTF-8" as text

---L M Q R
set theChld to "Q" as text

--URLを整形
set theOpenUrl to ("" & theApiUrl & "&cht=" & theCht & "&chs=" & theChs & "&choe=" & theChoe & "&chld=" & theChld & "&chl=" & theChl & "") as text


-----サファリで開く
tell application "Safari"
activate
make new document with properties {name:"QR-CODE by Google API"}
tell window 1
open location theOpenUrl
end tell
end tell

ダウンロード - url2qr.zip

2019年7月 6日 (土) Barcode2D | 固定リンク

【QR】アドレス帳登録用のQRコードを作る（Google Chart利用）

こんな感じのQRコードを作成します。

(*

chart.googleapis.com.scpt
アドレス帳登録用のQRコードを生成します。
たぶんiOS専用　

20190706　初回作成

APIの仕様は
https://developers.google.com/chart/infographics/docs/qr_codes


*)

----設定項目
set theNa to "林檎" as text ---姓
set theNb to "太郎" as text ---名
set theOrg to "アップルコンピュータ" as text ---会社名
set theMailWork to "work@hoge.com" as text ---メール会社
set theMailHome to "home@hoge.com" as text ---メール自宅
set theTelWork to "0123-456-7890" as text ---電話会社
set theTelCell to "000-000-00000" as text --- 電話携帯
set theTelInt to "1234" as text ---内線

----設定ここまで
--姓名表示をを整形　半角スペース区切り
set theFN to (theNa & " " & theNb) as text

----Vカードデータを整形　改行コードはMac
set theChl to "BEGIN:VCARD\rVERSION:3.0\rN:" & theNa & ";" & theNb & ";;;\rFN:" & theFN & "\rORG:" & theOrg & ";\rEMAIL;type=INTERNET;type=WORK;type=pref:" & theMailWork & "\rEMAIL;type=INTERNET;type=HOME:" & theMailHome & "\rTEL;type=WORK;type=pref:" & theTelWork & "\rTEL;type=CELL:" & theTelCell & "\ritem1.TEL:" & theTelInt & "\ritem1.X-ABLabel:内線\rEND:VCARD" as text


----URLエンコード
set theChl to my encodeURL(theChl)

--API各項目
--BASE URL
set theApiUrl to "https://chart.googleapis.com/chart?" as text

set theCht to "qr" as text

set theChs to "540x540" as text

set theChoe to "UTF-8" as text

---L M Q R
set theChld to "Q" as text

--URLを整形
set theOpenUrl to ("" & theApiUrl & "&cht=" & theCht & "&chs=" & theChs & "&choe=" & theChoe & "&chld=" & theChld & "&chl=" & theChl & "") as text


-----サファリで開く
tell application "Safari"
activate
make new document with properties {name:"QR-CODE by Google API"}
tell window 1
open location theOpenUrl
end tell
end tell



---URLエンコードのサブルーチン
on encodeURL(str)
set scpt to "php -r 'echo urlencode(\"" & str & "\");'"
return do shell script scpt
end encodeURL