TriOS-alt/demo/graphics/dlEngine-Test.spin

<EFBFBD><EFBFBD>{{
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Autor: Ingo Kripahle                                                                                 %
% Copyright (c) 2010 Ingo Kripahle                                                                     %
% See end of file for terms of use.                                                                    %
% Die Nutzungsbedingungen befinden sich am Ende der Datei                                              %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Informationen   : hive-project.de
Kontakt         : drohne235@googlemail.com
System          : TriOS
Name            : Hallo Hive!
Chip            : Regnatix
Typ             : Programm
Version         : 
Subversion      : 
Funktion        :
Komponenten     : -
COG's           : -
Logbuch         :
Kommandoliste   :
Notizen         :

}}

OBJ
        ios     : "ios"
        gr      : "gra-emu"

CON

  _CLKMODE      = XTAL1 + PLL16X
  _XINFREQ      = 5_000_000

  bitmap_base   = $2000
  display_base  = $5000

VAR

PUB main | ip

  ios.start
  ios.startram                                          'code f<00>r test im ram, sollte bei bin-datei auskommentiert werden
  ios.screeninit(string("<00>%Test: DLEngine"),2)

  ip := @dl1
  repeat
    case byte[ip++]
      _vloop: ip := @dl1
              gr.copy(display_base)
      _clear: gr.clear
      _color:
      _width:
      _colorwith:
      _point: repeat byte[ip++]
                gr.point(byte[ip++],byte[ip++])
      _lines: repeat byte[ip++]
                gr.line(byte[ip++],byte[ip++])
      _arc:
      _vec:
      _vecarc:
      _pix:
      _pixarc:
      _text:
      _textarc:
      _textmode:
      _setFont:
      _box:
      _boxXOR:
      _quad:
      _tri:
      _setXOR:
      _setOverWrite:
      _setFontPtr:
      _drawGlyph:
      _pixelColor:
      _fill:
      _justify:
      _branch:


CON     ' Kommandos
#0,     _vloop,_clear,_color,_width,_colorwith,_point,_lines,_arc,_vec,_vecarc,_pix,_pixarc,
        _text,_textarc,_textmode,_setFont,_box,_boxXOR,_quad,_tri,_setXOR,_setOverWrite,
        _setFontPtr,_drawGlyph,_pixelColor,_fill,_justify,_branch

DAT     ' DisplayList

dl1     byte  _point
        byte  2
        byte  10,10
        byte  20,20
        byte  _line
        byte  2
        byte  30,30
        byte  40,40
        byte  _vloop

DAT
     
{{

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                   TERMS OF USE: MIT License                                                  %                                                            
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%$%
%Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation    % 
%files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy,    %
%modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software%
%is furnished to do so, subject to the following conditions:                                                                   %
%                                                                                                                              %
%The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.%
%                                                                                                                              %
%THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE          %
%WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR         %
%COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,   %
%ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.                         %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}}