SPT图形的放大 四川 黄允中 1994-08-05 SPT图形数据是按显示水平排列的，因此只要读一行数据，在目标文件中写两次，再修改版面高的信息即可。这样是竖向放大一倍。水平放大则需在SPT中“整版旋转”后，如上放大就行。 按这个思路，如果在数行之后对一行重写，就可以放大数倍。反过来，也可以缩小图形。当然，缩小图形可能造成某些图形细节的丢失。 input "Please input source file name.",f$ input "please input target file name.",fl$ define a-z open f$ for binary as#1 open fl$ for binary as#2 get$#,64,x$:put$#2,x$ seek#,34 get$#1,1,x$ x(i)=asc(x$) next i l=x(2)*256+x(1) v=x(4)*256+x(3) k=v/2 v2=v+k x$(2)=chr$(v2/256) x$(1)=chr$(v2 mod 256) seek#2,36 put$#2,x$(1)+x$(2) seek#1,64:seek#2,64 for i=1 to v get$#1,1/8,x$ put$#2,x$ if (i mod 2)=0 then put$#2,x$ end if next i close print "end" end (四川 黄允中)