会社のレンタルサーバの移転で、DNSの設定が簡単そうだったのでonamaeさんのレンタルDNSにしてみました。
AレコードとMXとspfレコードを書いたら終了。らくちんw で、最近は$TTLが非常に短く設定されているので、数分で新サーバに切り替わりました。勝ったw
って、あれ？ .in-addr.arpaを書いた記憶が無い……。
onamaeさんのレンタルDNSをプライマリにすると逆引きの設定がないのでした……。
yahooさんは割と緩くて、これでもpassが付きますが、gmailではsoftfailと普通の対応。スパムギリギリです。
忙しいので、しばらくはこのまま運用して、スパム扱いが多いようだったらレンタルサーバ側にプライマリの設定をしよう。
サイズ変更時にめんどくさいので、変更してからもう一度やればいいように変更。
■の外側に追加する方は大きさが変わるんで放置。位置決めが変わらない内側で何とかするタイプだけ。
tell application "Adobe InDesign CS5"
tell document 1
try
set ss to object reference of selection
on error
display dialog "選択されていません" buttons {"キャンセル"} default button 1
end try
set {button returned:btres} to display dialog "上下or左右" buttons {"上下", "左右", "キャンセル"} default button 3
repeat with s in ss
convert shape s given convert to rectangle
set r to rotation angle of s
tell application "Adobe InDesign CS5"
set myRotateMatrix_org to make transformation matrix with properties {counterclockwise rotation angle:r}
set myRotateMatrix_flat to make transformation matrix with properties {counterclockwise rotation angle:-r}
end tell
transform s in pasteboard coordinates from center anchor with matrix myRotateMatrix_flat
set {y, x, yy, xx} to geometric bounds of s
set {pr1, pr2, ps} to {{y, x, yy, x + yy - y}, {y, xx - (yy - y), yy, xx}, {y, x + ((yy - y) / 2), yy, xx - ((yy - y) / 2)}}
if btres = "上下" then set {pr1, pr2, ps} to {{y, x, y + xx - x, xx}, {yy - (xx - x), x, yy, xx}, {y + ((xx - x) / 2), x, yy - ((xx - x) / 2), xx}}
set r1 to duplicate s
convert shape r1 given convert to oval
set geometric bounds of r1 to pr1
set r2 to duplicate s
convert shape r2 given convert to oval
set geometric bounds of r2 to pr2
set geometric bounds of s to ps
set ns to add path s with {r1, r2}
transform ns in pasteboard coordinates from center anchor with matrix myRotateMatrix_org
end repeat
end tell
end tell
今あるものの外側に角丸をくっつけるタイプ。
tell application "Adobe InDesign CS5"
tell document 1
try
set ss to object reference of selection
on error
display dialog "選択されていません" buttons {"キャンセル"} default button 1
end try
set {button returned:btres} to display dialog "上下or左右" buttons {"上下", "左右", "キャンセル"} default button 3
repeat with s in ss
set {y, x, yy, xx} to geometric bounds of s
set {pr1, pr2, ps} to {{y, x - ((yy - y) / 2), yy, x - ((yy - y) / 2) + (yy - y)}, {y, xx - ((yy - y) / 2), yy, xx - ((yy - y) / 2) + (yy - y)}, {y, x, yy, xx}}
if btres = "上下" then set {pr1, pr2, ps} to {{y - ((xx - x) / 2), x, y - ((xx - x) / 2) + (xx - x), xx}, {yy - ((xx - x) / 2), x, yy - ((xx - x) / 2) + (xx - x), xx}, {y, x, yy, xx}}
set r1 to duplicate s
convert shape r1 given convert to oval
set geometric bounds of r1 to pr1
set r2 to duplicate s
convert shape r2 given convert to oval
set geometric bounds of r2 to pr2
add path s with {r1, r2}
end repeat
end tell
end tell
indesignの角丸が真ん丸にできないのは有名ですが、パスファインダを使ってきれいな角丸にする有名な手段はしちめんどくさいので作りました。
画像の上がindesignの角オプションでやったもの。下が↓でやったものです。
構文のカラーリングがjs用なのは気にしない方向で
tell application "Adobe InDesign CS5"
tell document 1
try
set ss to object reference of selection
on error
display dialog "選択されていません" buttons {"キャンセル"} default button 1
end try
set {button returned:btres} to display dialog "上下or左右" buttons {"上下", "左右", "キャンセル"} default button 3
repeat with s in ss
set {y, x, yy, xx} to geometric bounds of s
set {pr1, pr2, ps} to {{y, x, yy, x + yy - y}, {y, xx - (yy - y), yy, xx}, {y, x + ((yy - y) / 2), yy, xx - ((yy - y) / 2)}}
if btres = "上下" then set {pr1, pr2, ps} to {{y, x, y + xx - x, xx}, {yy - (xx - x), x, yy, xx}, {y + ((xx - x) / 2), x, yy - ((xx - x) / 2), xx}}
set r1 to duplicate s
convert shape r1 given convert to oval
set geometric bounds of r1 to pr1
set r2 to duplicate s
convert shape r2 given convert to oval
set geometric bounds of r2 to pr2
set geometric bounds of s to ps
add path s with {r1, r2}
end repeat
end tell
end tell
角丸の直径が左右幅を超えると、変なことになります。
角丸が間尺に合ってる範囲内では、最初のアイテムと同じ外形寸法になります。
普通の方法でサイズ変更をすると角丸の半径が変わりますので、一旦、長方形シェイプに戻してからサイズ変更をして、再度角丸にしてください。
applescriptでごめんなさい……。
