Jw_cad 情報交換室

Jw_cad 情報交換室－その３ New

　JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談室－その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言は過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

493 / 1498 ←次へ　｜　前へ→

発想の転換　文字をずらして立体文字

kojima - 19/5/25(土) 14:39 -

文字を微小にずらして立体的に浮き上がって見せるようにします。

@REM 微小なズレの文字を重ねて立体文字
@echo off
REM #jww
REM #cd
REM #zc
REM #h3
REM #c重ね文字の間隔　無指定:0.2/_/a
REM #c角度　無指定:30/_/b
REM #c重ねる回数　無指定:10/_/c
REM #k方向|1)右上り(L)|2)右下り(R)|3)左上り|4)左下り|/_/d
REM #bz
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt %1 %2 %3 %4> jwc_temp.txt
pause
goto end
#!ruby -Ks
include Math
zure=0.2;n=10;kakudo=30
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
zure=argument[2..-1].to_f
when /\/b/
kakudo=argument[2..-1].to_f
when /\/c/
n=argument[2..-1].to_i
when /\/d/
muki=argument[2..-1].to_i
end
end
k_arg=kakudo*PI/180
kei_x=1;kei_y=1
if muki==3 or muki==4
kei_x= -1

end
if muki==2 or muki==4
kei_y= -1
end
hcw=[];hch=[];hcd=[]
while ARGF.gets
xy=$_.split
if xy[0]=~/^hq/
elsif xy[0]=~/^hcw/
xy.each{|item|hcw<<item.to_f}
elsif xy[0]=~/^hch/
xy.each{|item|hch<<item.to_f}
elsif xy[0]=~/^hcd/
xy.each{|item|hcd<<item.to_f}

elsif xy[0]=~/^cn\"/
print $_
font=$_.chomp
elsif xy[0]=~/^cn(\d+)/
cn=$_.chomp
if xy.size==1
moji_w=hcw[$1.to_i]
moji_h=hch[$1.to_i]
moji_d=hcd[$1.to_i]
else
moji_w=xy[1].to_f
moji_h=xy[2].to_f
moji_d=xy[3].to_f
end
elsif xy[0]=~/^ch/
str=$'.chomp if $_=~/\"/
x,y,xw,yh=xy[1].to_f,xy[2].to_f,xy[3].to_f,xy[4].to_f
arg=atan2(yh,xw)
puts "cn0 #{moji_w} #{moji_h} #{moji_d} 2"
n.times{
x=x+zure*cos(arg+k_arg)*kei_x
y=y+zure*sin(arg+k_arg)*kei_y
printf("ch %.11f %.11f %.11f %.11f \"%s\n",x,y,xw,yh,str)
}
puts cn
print $_
else
print $_
end
end
__END__
:end