苹果II的双重低分辨率库

2020年5月7日

Posted by 苹果。

苹果。成员Marc A. Golombeck博士为Apple IIe Enhanced，IIc和IIgs开发了一个Double Low Resolution图形图形库。该库允许用户在Double Lo-Res模式下执行许多高级图形功能（在16色模式下为80 x 48像素），并且使用的操作简单且均基于Applesoft 基本知识。

双重低分辨率安培库包含许多例程，其中包括：

&GR：切换到双重LORES模式并清除屏幕
&TEXT：返回40列文字模式
&COLOR=：设置绘图颜色（范围：0..15）
&PLOT X,Y[,COLOR]：在X，Y处绘制像素。参数COLOR是可选的。
&SCRN(X,Y,C%)：根据给定的坐标读出MAIN或AUX存储器，并返回所选像素的颜色值C％（范围：$ 00 .. $ 0F / 0..15）
&VLIN Y1,Y2,X[,COLOR]：在X列的Y1到Y2之间绘制一条垂直线。参数COLOR是可选的。
&HLIN X1,X2,Y[,COLOR]：在Y行的X1到X2之间绘制一条水平线。参数COLOR是可选的。

使用这些例程，您可以编写类似于以下程序的Applesoft程序，该程序将万花筒的颜色打印到显示屏上：

10  REM  DOLORES KALEIDOSCOPE 
15  REM  LOAD DLCOREAMP FIRST! 
20  E = - 16384
30  & GR 
40  FOR W = 3 TO 50:
      W1 = W / 73:
      FOR I = 1 TO 19:
        W2 = I * W1:
        I1 = 3 / (I + 3):
        FOR J = 0 TO 19:
          K = I + J
45        IF PEEK (E) > 128然后 
            300
50 C = J * I1 + W2
60        &情节20 + I，3 + K，C：
          &地块20 + K，3 + I，C：
          &情节60-I，43-K，C：
          &情节60-K，43-I，C
70        &情节20 + K，43-I，C：
          &情节60-I，3 + K，C：
          &情节20 + I，43-K，C：
          & PLOT 60 - K,3 + I,C
80  NEXT J,I,W
90 GOTO 40：REM重新启动
300 & 文本 : END

加载了库并运行程序的Apple II显示屏上显示的图像如下所示：