X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=inline;f=as%2Fapp%2Fpbm%2Ffive_nn_part_pbm.casl;fp=as%2Fapp%2Fpbm%2Ffive_nn_part_pbm.casl;h=857bc5cdd832140ce98206519bab2c2071cc393a;hb=8987c22715397eda101c25fb6ca1c37852db4adf;hp=0000000000000000000000000000000000000000;hpb=1d7dc3419989a77ace5a2777169f1f15f06a875c;p=YACASL2.git

diff --git a/as/app/pbm/five_nn_part_pbm.casl b/as/app/pbm/five_nn_part_pbm.casl
new file mode 100644
index 0000000..857bc5c
--- /dev/null
+++ b/as/app/pbm/five_nn_part_pbm.casl
@@ -0,0 +1,31 @@
+;;; 「五」を表す画像を時計方向へ90度回転させた結果をPBMファイルとして出力する
+;;; 呼び出し方:
+;;;   casl2 -M 1024 five_nn_part_pbm.casl $CASL2LIB/pbm16.casl $CASL2LIB/outb_w.casl $CASL2LIB/divl.casl $CASL2LIB/rev.casl rotate_nn_part.casl >five_nn_part.pbm
+MAIN    START
+        RPUSH
+        LAD     GR1,GRAPH
+        LAD     GR2,RES
+        LAD     GR3,8
+        CALL    ROTATE
+        LAD     GR1,RES
+        CALL    PBM16
+        RPOP
+FIN     RET
+GRAPH   DC      #FFFC
+        DC      #FFFC
+        DC      #FFFC
+        DC      #0700
+        DC      #0700
+        DC      #0700
+        DC      #FFFC
+        DC      #FFFC
+        DC      #FFFC
+        DC      #071C
+        DC      #071C
+        DC      #071C
+        DC      #FFFF
+        DC      #FFFF
+        DC      #FFFF
+        DC      #0000
+RES     DS      16
+        END