苹果II的双重低分辨率库

苹果。成员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显示屏上显示的图像如下所示:

有关Double Low-Res Amper库的更多信息,请访问Marc’s website at: http://www.golombeck.eu/index.php?id=48&L=1

请关注并喜欢我们:

关于作者