X-Google-Thread: 9f2349c2e8,4c828408244ba30f,start
X-Google-Attributes: gid9f2349c2e8,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: POLISH,Latin2
Path: 
 g2news1.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!newsfeed00.sul.t-online.de!t-online.de!news.nask.pl!news.nask.org.pl!feed.news.interia.pl!newsfeed.gazeta.pl!news.gazeta.pl!not-for-mail
From: "Eneuel Leszek Ciszewski" <prosze@czytac.fontem.lucida.console>
Newsgroups: pl.rec.ascii-art
Subject: =?iso-8859-2?Q?Kiedy=B6_trzeba_to_by=B3o_zrobi=E6...?=
Date: Fri, 8 Jan 2010 23:46:58 +0100
Organization: Aleuania-Pueruania
Lines: 179
Message-ID: <hi8clp$pan$2@inews.gazeta.pl>
Reply-To: "Eneuel Leszek Ciszewski" <eneuel@gmail.com>
NNTP-Posting-Host: csknet-84-234-43-13.csk.pl
Mime-Version: 1.0
Content-Type: text/plain;
	format=flowed;
	charset="iso-8859-2";
	reply-type=original
Content-Transfer-Encoding: 8bit
X-Trace: inews.gazeta.pl 1262990843 25943 84.234.43.13 (8 Jan 2010 22:47:23
 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Fri, 8 Jan 2010 22:47:23 +0000 (UTC)
X-MimeOLE: Numer mego telefonu '665 363835'='moj eneuel'
X-Priority: 3
X-User: eneuell
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5843
Xref: g2news1.google.com pl.rec.ascii-art:84

...wi�c postanowi�em wczoraj, �e zrobi� to wkr�tce...





%Ta linia jest ucinana przez HP LJ IIP
%%%%%%%%%%%%
%18:27 1997.03.24
%new.tex%%%%
%Program ten s/lu/zy do rysowania kresek pionowych, poziomych,
%prawosko/snych i lewosko/snych, nachylonych do
%pionu i poziomu pod k/atem 45 stopni.
%Pobiera on dane z program/ow o rozszerzeniu .inu.
%Efektem pracy tego programu jest jedna strona
%przedstawiaj/aca kreski w zadanej skali wraz z opisem.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\hsize=1100mm\vsize=1100mm\nopagenumbers\font\pll=p1r10\font\pol=p1r8\pol\null%
\offinterlineskip\parskip0pt\parindent0pt\baselineskip0pt\lineskip0pt%
\newdimen\wv\newdimen\wh\newdimen\wd\newcount\aa\newcount\bb\aa=1\bb=2%

\def\div{\divide}\def\mlp{\multiply}\def\adv{\advance}\def\gad{\global\advance}
\def\vtt{\vbox to0pt}\def\htt{\hbox to0pt}\def\vv{\vskip\wv}\def\hh{\hskip\wh}%
\def\poi #1{\vtt{\vv\htt{\hh{#1}\hss}\vss}}\def\num{\number}%
\def\pod #1{\adv\wv\wd\ifx h\tp\adv\wv-\wd\adv\wh\wd\else%
\ifx p\tp\adv\wh\wd\else\ifx l\tp\adv\wh-\wd\fi\fi\fi\poi{#1}}%
\def\ab{\special{em:point \num\aa}}\def\ba{\special{em:point \num\bb}}%
\def\a{\ab}\def\b{\ba}\def\Sk=#1.{\def\Sk{#1}}\def\alA=#1.{\def\alA{#1}}%
\def\ust{\mlp\wv\Sk\mlp\wh\Sk\div\wv\alA\div\wh\alA}%

\def\wy y#1,x#2:y#3,x#4;k#5,z#6:y#7,x#8.%
{\wv=#1mm\wh=#2mm\ust\adv\wv#7mm\adv\wh#8mm\adv\wv-#3mm\adv\wh-#4mm%
\vtt{\vv\htt{\hh{\pll{#6};~skala~\Sk:\alA0}\hss}\vss}\let\ko=#5%
\adv\wv-#7mm\adv\wh-#8mm\voffset-\wv\hoffset-\wh}%

\def\lin y#1,x#2,d#3;k#4,z#5.{\vtt{\wv=#1mm\wh=#2mm\wd=#3mm\let\tp=#4%
\ust\mlp\wd\Sk\div\wd\alA\poi{\a}\pod{\b}\special{em:line \num\bb,\num\aa,1sp}%
\gad\aa2\gad\bb2\def\a{\ab}\def\b{\ba}%
\ifx k\ko\adv\wv-1.75pt\adv\wh+0.30pt\div\wd-2%
\ifx h\tp\adv\wv+2.25pt\adv\wh-3.00pt\else%+2.25,-2.20;-4.25,-3.00
\ifx p\tp\adv\wv+1.25pt\adv\wh-4.30pt\else%
\ifx l\tp\adv\wv+1.25pt\adv\wh-0.30pt\fi\fi\fi\pod{#5}\fi\vss}}%

\input
mojeprze.inu
\bye%






%Ta linia jest ucinana przez HP LJ IIP
%%%%%%%%%%%%
%mojeprze.inu%%%%
%Program ten podaje dane s/lu/z/ace do
%narysowania szkicu rzutu mieszkania.
%Efektem pracy programu jest jedna strona
%przedstawiaj/aca szkic rzutu mieszkania
%w skali Sk:(10*\alA).
%;kk -- rysowanie z opisem
%````````````````````````````````````````````````````
%\Sk={1}.\alA={5}.\wy y-32,x-124:y10,x10;kk,zOba 98.11.11:y30,x+90.
\Sk={1}.\alA={5}.\wy y-32,x-124:y10,x10;kK,z~:y30,x+90.
%\Sk={1}.\alA={5}.\wy y-32,x-124:y10,x10;kK,zPrzej/sciowe~II~97.01.13:y30,x+90.
%\Sk={1}.\alA={5}.\wy y-32,x-124:y10,x10;kk,zprzej/sciowe II 97.03.19:y30,x+90.
%\Sk={1}.\alA={1}.\wy y732,x+125:y30,x30;kl,zWC:y20,x+60.
%\Sk={1}.\alA={1}.\wy y804,x+302:y10,x10;kk,z{przesuni/ete~m~}:y30,x+90.
%\Sk={1}.\alA={2}.\wy y732,x+135:y30,x30;kl,z{kuchnia}:y30,x+90.
%\Sk={1}.\alA={1}.\wy y552,x+462:y20,x20;kl,z/lazienka:y285,x+60.
%````````````````````````````````````````````````````

%sciany pod k/atem
\lin y428.68629,x265,d25.83705;kp,z1.
\lin y432,x257,d28.18020;kp,z2.
\lin y454.52334,x290.83705,d5.65685;kl,z3.
\lin y518.16295,x354.47666,d5.65685;kl,z4.
\lin y518.16295,x354.47666,d25.83705;kp,z5.
\lin y523.81981,x348.81981,d28.18020;kp,z6.
\lin y732,x215.31371,d6.09441;kp,z7.
\lin y740,x212,d3.75126;kp,z8.
\lin y738.09441,x221.40812,d5.65685;kl,z9.
\lin y787.59189,x270.90560,d5.65685;kl,za.
\lin y787.59189,x270.90560,d6.09441;kp,zc.
\lin y793.24874,x265.24874,d3.75126;kp,ze.
\lin y804.34315,x454,d3.00862;kl,zx.
\lin y810,x459.65685,d3.00862;kl,zn.
\lin y807.35177,x450.99138,d5.65685;kp,zo.
\lin y870.99138,x387.35177,d5.65685;kp,zr.
\lin y870.99138,x387.35177,d3.00862;kl,zs.
\lin y876.64823,x393.00862,d3.00862;kl,zu.

%okna
\lin y-32,x50,d32;kv,z{~sypialnia 160}.
\lin y-32,x210,d32;kv,z2.
\lin y-32,x330,d32;kv,z{~balkon 240}.
\lin y-32,x570,d32;kv,z4.
\lin y1185,x185,d32;kv,z{~kuchnia 120}.
\lin y1185,x305,d32;kv,z6.
\lin y1185,x425,d32;kv,z{~pok/oj 160}.
\lin y1185,x585,d32;kv,z8.

%sciany proste
\lin y-32,x-24,d626;kv,z1.
\lin y-32,x-24,d684;kh,z2.
\lin y-32,x660,d1249;kv,z3.
\lin y1217,x111,d549;kh,z4.
\lin y724,x111,d493;kv,z5.
\lin y594,x111,d40;kv,z6.
\lin y594,x-24,d135;kh,z7.
\lin y1185,x135,d247;kh,z8.
\lin y382,x0,d135;kh,za.
\lin y882,x372,d10;kh,zb.
\lin y874,x372,d12.34315;kh,zc.
\lin y382,x135,d68;kv,zd.
\lin y382,x215,d42;kh,ze.
\lin y530,x127,d40;kv,zf.
%%%%%%%%%%%%
%%%%%%%%%%%%
%%%%%%%%%%%%
\lin y450,x127,d8;kh,zg.
\lin y0,x265,d428.68629;kv,zh.
\lin y0,x257,d382;kv,zi.
\lin y0,x265,d371;kh,zj.
\lin y717,x454,d87.34315;kv,zk.
\lin y552,x454,d92;kv,zl.
\lin y874,x372,d8;kv,z{\hskip-3mm{m}}.
\lin y882,x382,d303;kv,zn.
\lin y874,x135,d134;kh,zo.
\lin y530,x127,d8;kh,zp.
\lin y390,x127,d60;kv,zq.
\lin y732,x135,d80.31371;kh,zr.
\lin y874,x277,d5;kh,zs.
\lin y797,x269,d77;kv,zt.
\lin y382,x215,d8;kv,zu.
\lin y724,x135,d8;kv,zv.
\lin y544,x380.31371,d255.68629;kh,zw.
\lin y874,x282,d8;kv,zx.
\lin y717,x454,d8;kh,zy.
\lin y802,x462,d174;kh,zz.
\lin y390,x215,d42;kh,zA.
\lin y644,x454,d8;kh,zB.
\lin y0,x636,d544;kv,zC.
\lin y390,x0,d127;kh,zD.
\lin y0,x0,d257;kh,zE.
\lin y634,x111,d24;kh,zF.
\lin y530,x135,d104;kv,zG.
\lin y740,x135,d134;kv,zH.
\lin y390,x257,d42;kv,zI.
\lin y882,x135,d147;kh,zJ.
\lin y882,x135,d303;kv,zK.
\lin y390,x0,d180;kv,zL.
\lin y570,x0,d127;kh,zM.
\lin y552,x462,d92;kv,zN.
\lin y740,x135,d77;kh,zO.
\lin y810,x459.65685,d176.34315;kh,zP.
\lin y810,x636,d375;kv,zQ.
\lin y552,x462,d174;kh,zR.
\lin y0,x0,d382;kv,zS.
\lin y879.656854,x390,d305.34315;kv,zT.
\lin y552,x377,d77;kh,zU.
\lin y552,x636,d250;kv,zV.
\lin y793.68629,x277,d80.31371;kv,zW.
\lin y1185,x390,d246;kh,zX.
\lin y717,x462,d85;kv,zY.
\lin y724,x111,d24;kh,zZ.%



To szkic mieszkania -- rysowany programem s�u��cym do sk�adania tekstu. :)



-- 
   .`'.-.         ._.                           .-.
   .'O`-'     ., ; o.'    eneuel@@gmail.com    '.O_'
   `-:`-'.'.  '`\.'`.'    ~'~'~'~'~'~'~'~'~    o.`.,
  o'\:/.d`|'.;. p \ ;'. . ;,,. ; . ,.. ; ;. . .;\|/....