#
# sgfont.rb
#
# $Id: sgfont.rb,v 1.1 2000/11/21 03:02:07 keiko Exp $
#

require "narray"
require "numru/dcl"

include NumRu
include Math


#-- graph ---
iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i

n = (puts ' FONT NO (1,2) (I)  ? ;'; gets).to_i

DCL::sgopn iws

DCL::slmgn(0.1, 0.1, 0.1, 0.1)
DCL::slrat(1.0, 1.0)

DCL::sgfrm

DCL::sgiset('IFONT', n)

DCL::sgswnd(0.0, 16.0, 0.0, 16.0)
DCL::sgsvpt(0.05, 0.95, 0.0, 0.9)
DCL::sgstrn(1)
DCL::sgstrf

for i in 0..16
  DCL::sglnzu(i.to_f, 0.0, i.to_f, 16.0, 2)
  DCL::sglnzu(0.0, i.to_f, 16.0, i.to_f, 2)
end

cttl = format("FONT NO. = %1d", n)
DCL::sgtxzv(0.5, 0.95, cttl, 0.03, 0, 0, 3)

for i in 0..255
  ux=i/16+0.5
  uy=16-(i.divmod(16))[1]-0.5
  DCL::sgtxzu(ux, uy, DCL::csgi(i), 0.035, 0, 0, 3)
  ux=ux+0.48
  uy=uy+0.38
  ch = format("%3d", i)
  DCL::sgtxzu(ux, uy, ch, 0.01, 0, +1, 1)
end

DCL::sgcls