🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: fj.lang.postscript
1 messages
1 total messages Started by 平山唯樹 Wed, 08 May 1996 00:00
Atelier Stream
#702
Author: 平山唯樹
Date: Wed, 08 May 1996 00:00
68 lines
2424 bytes
平山と申します。

PostScript記述用 Cライク言語の Atelier Stream パッケージを公開します。
Atelier Stream は C言語によく似た言語です。Atelier Streamで記述
したソースファイルをコンパイル・リンクすると、PostScript言語が出力
されます。

このパッケージには Atelier Stream用のコンパイラ、リンカ、
ライブラリマネージャのソースファイル、そしてヘッダファイル、ライブラリソース、
ドキュメント、チュートリアル、およびサンプルプログラム等が含まれています。
下記からftpで取ることができます。

ftp://ftp.tsubasa.com/pub/AS/assrc084.tar.gz      ソースファイル
                             asdoc103.tar.gz      ドキュメント類

それぞれ、適当なディレクトリをつくり、その中で解凍してください。
また、バイナリの作成にはyacc,lex,およびCコンパイラが必要です。

次にAtelier Streamによるプログラムのコンパイル・リンク例をあげます。
-------------------
#include <ps.ah>

void rect( real x1, real y1, real x2, real y2 )
{
moveto( x1,y1 );
lineto( x2,y1 );
lineto( x2,y2 );
lineto( x1,y2 );
closepath();
stroke();
}

void main( void )
{
rect( 10,20,300,400 );
showpage();
}
--------------------
      |
      | compile,link
      V
--------------------
%!PS-Adobe-
/@rect { 3 index 3 index moveto 1 index 4 -1 roll lineto exch 1 index 
lineto lineto closepath stroke } bind def 
10 20 300 400 @rect showpage 
--------------------

なるべくOSに依存しないコードを心掛けており、現在次のOSでの稼動が確認されています
。

DOS/V
OS/2
Linux
AIX
FreeBSD 2.1.OR
Solaris 2.4(J)
HPPA HP-UX 9.x
BSD/OS
NEWS-OS4.*(4.3BSD)

以上です。
興味のある方は使ってみてください。
使用してみた上での感想、アドバイス、稼動OSの情報、バグレポート等は大歓迎です。
(バグはまだまだ含まれていると思われます:-)
メールの場合は hirayama@tsubasa.com、VYH02642@niftyserve.or.jp 
(なるべく前者)にお願いします。
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads