summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/itrans/flag.ips
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/fonts/itrans/flag.ips')
-rw-r--r--Master/texmf-dist/doc/fonts/itrans/flag.ips171
1 files changed, 171 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/fonts/itrans/flag.ips b/Master/texmf-dist/doc/fonts/itrans/flag.ips
new file mode 100644
index 00000000000..23e8f8abeda
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/itrans/flag.ips
@@ -0,0 +1,171 @@
+% Devanagari Example
+% $Header: /home/cvsroot/itrans/nextrel/doc/flag.ips,v 1.1.1.1 1996/11/29 01:45:31 avinash Exp $
+% This is an example direct PostScript input to the itrans program.
+% This file shows how to change fonts, change font size, etc
+% in the file..
+%
+% Prints indian anthem, flag song, and the flag itself! Must SEE!
+
+% *** Thanks to numerous others for making lots of spelling corrections
+% in the original document I wrote... [abc]
+
+% 15 englishfont % set current font to be an english font (see itrans.pro)
+% (itrans sample file: flag.ips) show
+% first, the two songs......
+
+% define functions that load in the font..
+/devn18 {
+ 18 normalfont % get the normal devnagri font, at 18 point size
+} def
+
+/devns25 {
+ 25 slantfont % define a slanted font, using the a 25pt font size
+} def
+
+#hindiifm=dvnc.ifm
+#hindifont=devn18
+
+#hindi
+vijayii vishvatira.ngaa pyaaraa |
+ jha.nDaa uu.Nchaa rahe hamaaraa ||
+sadaa shakti sarasaanevaalaa |
+premasudhaa barasaanevaalaa ||
+viiro.nko harashhaanevaalaa |
+maat.rbhuumi kaa tanamana saaraa |
+ jha.nDaa uu.Nchaa rahe hamaaraa ||
+shaana na isakii jaane paaye |
+chaahe jaana bhale hii jaaye ||
+vishvavijaya karake dikhalaaye |
+taba hove praNa puurNa hamaaraa |
+ jha.nDaa uu.Nchaa rahe hamaaraa ||
+#endhindi
+
+newline
+0.4 setlinewidth
+currentpoint
+currentpoint exch pop 0.0 exch moveto
+206 0 rmoveto 200 0 rlineto stroke % draw a straight line..
+moveto % use x,y of first currentpoint above
+ % this is important, the current point must always exist
+ % for itrans.pro and this document to print correctly:
+ % the macros newline, etc make use of it.
+newline
+
+#hindifont=devns25 % use the slanted font, 25pt font size
+
+#hindi
+ jana gaNa mana adhinaayaka jaya he
+ bhaarata bhaagya vidhaataa
+ pa.njaaba si.ndhu gujaraata maraaThaa
+ dravi.Da utkala va.nga
+ vi.ndhya himaachala yamunaa ga.ngaa
+ uchchhala jaladhi tara.nga
+ tava shubha naame jaage
+ tava shubha aashishha maage
+ gaahe tava jaya gaathaa
+ jana gaNa ma.ngala daayaka jaya he
+ bhaarata bhaagya vidhaataa
+ jaya he jaya he jaya he
+ jaya jaya jaya jaya he
+
+ - raviindranaatha Taagora #endhindi
+
+% now, code to draw an indian flag.
+% draw the center wheel
+/drawwheel { % diameter drawwheel --
+ % draws a wheel at the currentpoint, of the given diameter
+
+ 2 div /rad exch def % get radius
+ gsave
+
+ currentpoint translate
+
+ 0 0 rad 0 360 arc stroke % draw the wheel outline
+
+ % compute radius of the small circles hanging off the wheel..
+ /smallrad rad 7.5 sin mul def
+ /smallcx rad 7.5 cos mul def
+
+ 0 15 345 { % draw the 24 spokes
+ gsave
+ rotate % use the for loop variable value, 0..245
+
+ 0 0 moveto rad 0 lineto stroke % draw spoke
+
+ smallcx smallrad -1 mul smallrad 82.5 262.5 arc fill
+ grestore
+ } for
+ grestore
+} def
+
+% some color definitions
+/blackcolor {
+ 0.0 setgray
+} def
+
+/whitecolor {
+ 1.0 setgray
+} def
+
+/redcolor {
+ 1.0 0.0 0.0 setrgbcolor
+} def
+
+/bluecolor {
+ 0.0 0.0 1.0 setrgbcolor
+} def
+
+/greencolor {
+ 0.0 1.0 0.0 setrgbcolor
+} def
+
+/saffroncolor {
+ 1.0 0.34 0.0 setrgbcolor
+} def
+
+%------------------------------------------------------------------------
+% The following may be redefined to blackcolor, see below....
+
+
+% draw the entire flag
+/drawflag { % width drawwheel --
+ % draws a flag at the currentpoint, of the given width
+ % (height = width/2)
+ /width exch def
+ gsave
+ currentpoint translate
+ /height width 2.0 div def
+ /hrect height 3.0 div def
+
+ % draw bottom green rect (use intensity = 58.7%)
+ greencolor
+ 0 0 moveto width 0 lineto width hrect lineto 0 hrect lineto
+ closepath fill
+
+ % draw top saffron rect (== 100% red, 34% green use intensity=50.0%)
+ 0 hrect 2.0 mul translate
+ saffroncolor
+ 0 0 moveto width 0 lineto width hrect lineto 0 hrect lineto
+ closepath fill
+ 0 hrect -2.0 mul translate % restore matrix
+
+ % draw center wheel
+ blackcolor
+ 0.8 setlinewidth
+ width 2.0 div height 2.0 div moveto
+ hrect 0.95 mul drawwheel
+
+ % draw a boundary
+ blackcolor 0.4 setlinewidth
+ 0 0 moveto width 0 lineto width height lineto 0 height lineto
+ closepath stroke
+ 0 hrect moveto width hrect lineto stroke
+ 0 hrect hrect add moveto width hrect hrect add lineto stroke
+
+ grestore
+} def
+
+% draw the flag next to the first song...
+250 560 moveto 300 drawflag
+
+% no showpage in flag.ips, since itrans will produce it..