mieki256's diary

sudo apt-get update
sudo apt-get dist-upgrade
sudo apt-get install git build-essential libgtk-3-dev libsdl2-dev zlib1g-dev
sudo apt-get install libgif-dev
sudo apt-get install liblua5.3-dev

git clone --recursive --branch v0.70.6 https://github.com/nesbox/TIC-80
cd TIC-80
./build.sh

vi Makefile

 LINUX_LIBS= \
        -L/opt/vc/lib \
        $(GTK_LIBS) \

 LINUX_LINKER_FLAGS= \
        -lbcm_host \
        -llua \

• LINUX_LIBS に、-L/opt/vc/lib \ を挿入。
• LINUX_LINKER_FLAGS に、-lbcm_host \ を挿入。

cp bin/tic80 ~/bin

• サブネットマスクは 255.255.255.0 だったので合ってる。
• Windowsファイアウォールを一時的に無効にしても症状は変わらず。

• avbin のバージョンを調べる、pyglet.media.avbin.get_version() が見当たらない。
• avbin が使えるかどうかを調べる pyglet.media.have_avbin を pyglet.media.have_avbin() の形で呼ばないと True , False を返してくれない。ただ、コレは以前のスクリプトで記述ミスをしていた可能性もありそう。

    self.sndplayer = pyglet.media.ManagedSoundPlayer()
    self.sndplayer.queue(self.bgm_src)
    self.sndplayer.eos_action = self.sndplayer.EOS_LOOP  # ループ再生を設定
    self.sndplayer.play()  # 再生開始

    self.loop_music = pyglet.media.SourceGroup(self.bgm_src.audio_format, None)
    self.sndplayer = pyglet.media.Player()
    self.loop_music.queue(self.bgm_src)
    self.loop_music.loop = True               # ループ再生を設定
    self.sndplayer.queue(self.loop_music)
    self.sndplayer.play()  # 再生開始

"""
draw glut teapot on pygame

* Windows10 x64 + Python 2.7.15
* pygame 1.9.4 + PyOpenGL 3.1.0 + PyOpenGL-accelerate 3.1.0
"""

import pygame
from pygame.locals import *

from OpenGL.GL import *
from OpenGL.GLU import *
from OpenGL.GLUT import *

SCRW, SCRH = 640, 480


class PyGame:
    def __init__(self):
        self._running = True
        self._screen = None

    def initialize(self, w, h):
        self.scrw = w
        self.scrh = h

        glutInit()
        glutInitDisplayMode(GLUT_RGB | GLUT_SINGLE | GLUT_DEPTH)

        pygame.init()

        # OPENGL向けに初期化
        self._screen = pygame.display.set_mode(
            (w, h), pygame.OPENGL | pygame.DOUBLEBUF)

        if not self._screen:
            return

        glClearColor(0.0, 0.0, 0.0, 1.0)
        glMatrixMode(GL_PROJECTION)
        glLoadIdentity()
        gluPerspective(45.0, float(w) / float(h), 0.1, 100.0)
        # gluOrtho2D(0, w, h, 0)
        glEnable(GL_DEPTH_TEST)  # enable shading

        self.clock = pygame.time.Clock()

        self.xrot, self.yrot = (0.0, 0.0)
        self.xpos, self.ypos, self.zpos = (0.0, 0.0, -5.0)

        return True

    def onKeyDown(self, event):
        print(event.key, event.mod, event.unicode)
        if event.key == pygame.K_ESCAPE or event.unicode == u'q':
            self._running = False

    def onKeyUp(self, event):
        print(event.key, event.mod)

    def update(self):
        spd = 0.05
        pressed_keys = pygame.key.get_pressed()
        if pressed_keys[pygame.K_UP]:
            self.zpos -= spd
        if pressed_keys[pygame.K_DOWN]:
            self.zpos += spd
        if pressed_keys[pygame.K_LEFT]:
            self.xpos -= spd
        if pressed_keys[pygame.K_RIGHT]:
            self.xpos += spd

        self.xrot += 0.25
        self.yrot += 1.0

    def draw(self):
        """ draw object """

        # Clear OpenGL Buffer
        glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)

        glMatrixMode(GL_MODELVIEW)
        glLoadIdentity()

        # set camera
        # gluLookAt(0.0, 1.0, 5.0, 0.0, 0.0, 0.0, 0.0, 1.0, 0.0)

        glTranslatef(self.xpos, self.ypos, self.zpos)
        glRotatef(self.xrot, 1.0, 0.0, 0.0)
        glRotatef(self.yrot, 0.0, 1.0, 0.0)
        glScale(1.0, 1.0, 1.0)

        # draw teapot
        glColor3f(1.0, 0.0, 0.0)  # color red
        glutWireTeapot(1.0)   # wireframe
        # glutSolidTeapot(1.0)  # solid

        # OpenGL drawing
        glFlush()

        # flip pygame double buffer
        pygame.display.flip()

    def execute(self, w, h):
        if not self.initialize(w, h):
            return

        # main loop
        while self._running:
            # self.clock.tick(60)
            self.clock.tick_busy_loop(60)

            for event in pygame.event.get():
                if event.type == pygame.QUIT:
                    self._running = False
                elif event.type == pygame.KEYDOWN:
                    self.onKeyDown(event)
                elif event.type == pygame.KEYUP:
                    self.onKeyUp(event)

            self.update()
            self.draw()

            cap = '%5.2f FPS' % (self.clock.get_fps())
            pygame.display.set_caption(cap)


if __name__ == "__main__":
    game = PyGame()
    game.execute(SCRW, SCRH)
    pygame.quit()

# replace time stamp filter

use strict;
use warnings;

my $patstart = "Last updated: <";
my $patend = ">";
my $chklines = 8;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon += 1;

my $cnt = 0;
while(<>) {
    chomp $_;
    if ($cnt <= $chklines && $_ =~ /(.+)$patstart.*$patend$/) {
        my $tmstr = sprintf("%04d/%02d/%02d %02d:%02d:%02d +0900", $year, $mon, $mday, $hour, $min, $sec);
        print "$1$patstart$tmstr$patend\n";
    } else {
        print "$_\n";
    }
    $cnt++;
}

#!/usr/bin/perl -w
# -*- mode: perl; Encoding: sjis; coding: sjis -*-
# Last updated: <>
# Last updated: <>
# Last updated: <>
# Last updated: <>
# Last updated: <>
# Last updated: <>
# Last updated: <>
# Last updated: <>
# Last updated: <>
# Last updated: <>
# Last updated: <>
#

> cat test.txt | perl timestamp.pl
#!/usr/bin/perl -w
# -*- mode: perl; Encoding: sjis; coding: sjis -*-
# Last updated: <2018/11/09 20:33:27 +0900>
# Last updated: <2018/11/09 20:33:27 +0900>
# Last updated: <2018/11/09 20:33:27 +0900>
# Last updated: <2018/11/09 20:33:27 +0900>
# Last updated: <2018/11/09 20:33:27 +0900>
# Last updated: <2018/11/09 20:33:27 +0900>
# Last updated: <2018/11/09 20:33:27 +0900>
# Last updated: <>
# Last updated: <>
# Last updated: <>
# Last updated: <>
#

pl2bat timestamp.pl

pl2bat hoge.pl

#!/usr/bin/perl -w
# -*- mode: perl; Encoding: sjis; coding: sjis -*-

use strict;
use warnings;

print "Hello. I am Perl";

@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!/usr/bin/perl -w
#line 15
# -*- mode: perl; Encoding: sjis; coding: sjis -*-

use strict;
use warnings;

print "Hello. I am Perl";

__END__
:endofperl

• batファイルの前半で、「perl -x -S batファイル名」を呼び出して、
• 呼び出されたPerlは、渡されたbatファイルの後半(「#!/usr/bin/perl -w」以降の行)に書かれたPerlスクリプト部分だけを実行。

-x directory

メールのような大きな無関係のASCII テキストのかたまりの中に プログラムが埋め込まれている事を Perl につたえます。
最初の #! で始まり、"perl" という文字列を含む行までの、 先行するゴミは捨てられます。
その行にある意味を持つスイッチは適用されます。
directory が指定されると、Perl はプログラムの実行前に、 そのディレクトリに移ります。
-x スイッチは先行するゴミの処分を制御するだけです。
プログラムの後に無視すべきゴミがある場合には、 __END__ でプログラムを終了する必要があります
(その、後に続く ゴミの一部または全部は、必要に応じて DATA ファイルハンドルを通して、 そのプログラムで処理する事ができます)。

perlrun - Perl インタプリタの起動方法 - perldoc.jp より

• perl に渡している -S は、環境変数PATH からスクリプトファイルを探す指定。
• batファイル中で %0 と書くと、その部分は、実行ファイル名で置き換えられる。
• %* と書くと、batファイルに与えられた引数全てで置き換えられる。
• if "%OS%" == "Windows_NT" goto WinNT で、Windows NT系のOSなら :WinNT に飛び、そうでなければ次の行へと進む。
• goto endofperl で、:endofperl に飛ぶ。
• batファイル中で存在しないコマンドを実行しようとした場合、%errorlevel% に 9009 が入るので、エラー発生時の処理が書ける。
• Perlスクリプトが正常終了すると errorlevel には 0 が入る。0以外ならスクリプト実行中に何かエラーが発生したということ。(エラーが発生した際に 1 等を返すようにスクリプトを記述しておくのがお約束。)

#!ruby -Ks
# -*- mode: ruby; coding: sjis -*-

puts "Hello. I am Ruby."

@echo off
ruby -x "%~f0" %*
goto endofruby

#!ruby -Ks
# -*- mode: ruby; coding: sjis -*-

puts "Hello. I am Ruby."
__END__
:endofruby

> ruby rb2bat_test.rb
Hello. I am Ruby.

> rb2bat_test.bat
Hello. I am Ruby.

echo "%~f0"

D:\temp> cat test.bat
echo "%~f0"

D:\temp> test.bat

D:\temp> echo "D:\temp\test.bat"
"D:\temp\test.bat"

-x

Unix 以外の形式の #!cmd を使うために、ソースの最初の行をスキップします。これは、DOS専用のハックのみを目的としています。

1. コマンドラインと環境 - Python 3.7.1 ドキュメント より

#!python
# -*- mode: python; Encoding: utf-8; coding: utf-8 -*-

print("Hello. I am python.")

python py2bat.py hello.py

@echo off
rem="""
if "%OS%" == "Windows_NT" goto WinNT
python -x "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofpython
:WinNT
python -x "%0" %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofpython
if %errorlevel% == 9009 echo ERROR: You do not have Python in your PATH.
goto endofpython
rem """

# python script starts here
#!python
# -*- mode: python; Encoding: utf-8; coding: utf-8 -*-

print("Hello. I am python.")

# end of python script
rem="""
:endofpython
rem """

• -x オプションをつけて呼んでいるから、1行目の @echo off は無視される。
• batファイルとして使われる部分は、Python から見て、remという変数に文字列を代入する形にしているので、Pythonスクリプトの動作には絡んでこない。(rem=""" 〜 rem """ までは、Pythonにとっては文字列の代入になる。)

> python hello.py
Hello. I am python.

> cat hello.py
#!python
# -*- mode: python; Encoding: utf-8; coding: utf-8 -*-

print("Hello. I am python.")

> python py2bat.py hello.py
generating hello.bat

> hello.bat
Hello. I am python.

@python -x %~f0 %* & goto :EOF

また暗黙のラベルとして、バッチファイルの最後には「:eof」というラベルがあるものと想定されており（EOFはファイル終了、End Of Fileの略）、「goto :eof」とするとバッチファイルが終了する（「goto eof」ではなく「goto :eof」にしないとエラーになる。「help goto」参照）。

Windowsのバッチファイルの基本的な使い方 (4/4)：Tech TIPS - ＠IT より

<command1> を実行した後、その結果に関わらず <command2> を実行します。
ただし、<command1> がExitなどでプロンプト(セッション)を終了させた場合は実行されません。
「&」を使用した場合、Errorlevel(または環境変数ERRORLEVEL)の値は <command2> の実行結果(& で複数つないだ場合はその最後のコマンド)による値となります。

「&」 - DOS コマンド一覧 - Programming Field より

@python -x "%~f0" %* & goto :EOF
#!python
# -*- mode: python; Encoding: utf-8; coding: utf-8 -*-

print("Hello. I am python.")

It starts playing the track created in the Music Editor.

Call without arguments to stop the music.

music ・ nesbox/TIC-80 Wiki より

music(0)  -- play music (tack 0)

music(0,0)  -- play music (tack 0, frame 0)

music()  -- stop music

-- title:  NEWTOTOTONE
-- author: mieki256
-- desc:   It's a game to catch an apple.
-- script: lua

scrw,scrh=240,136

Player={}
Player.new=function()
 local obj={
  alive=true,flip=0,
  x=scrw/2,y=scrh-32+8
 }
 setmetatable(obj,{__index=Player})
 return obj
end

Player.init=function(self)
 self.alive=true
 self.x=scrw/2
 self.y=scrh-32+8
 self.flip=0
end

Player.update=function(self)
 if not self.alive then return end
 local spd=2
 if btn(2) then
  self.x=self.x-spd
  self.flip=0
 end
 if btn(3) then
  self.x=self.x+spd
  self.flip=1
 end
 if self.x <= 8 then self.x=8 end
 if self.x >= scrw-8 then
  self.x=scrw-8
 end
end

Player.draw=function(self)
 local id
 if self.alive then
  id=1+t%60//30*2
 else
  id=9
  self.flip=t%20//10
 end
 local x,y=self.x-8,self.y-8
 spr(id,x,y,14,1,self.flip,0,2,2)
end

Item={}
Item.new=function(_x,_y,_kind)
 local obj={
  alive=true,
  x=_x,y=_y,dx=0,dy=0,
  hit=false,kind=_kind,
  sprid=5
 }
 if _kind==1 then obj.sprid=7 end
 setmetatable(obj,{__index=Item})
 return obj
end

Item.update=function(self)
 self.x=self.x+self.dx
 self.y=self.y+self.dy
 self.dy=self.dy+0.3*9.8/60.0
 if self.y >= scrh then
  self.y=-16
  self.dy=0
  self.alive=false
 end
 if self.hit then
  if self.kind==0 then
   score=score+10
   bornInfo(self.x,self.y,10)
  end
  self.alive=false
 end
end

Item.draw=function(self)
 if self.alive then
  spr(self.sprid,self.x-8,self.y-8,
      14,1,0,0,2,2)
 end
end

Info={}
Info.new=function(_x,_y,_str)
 local obj={
  alive=true,
  x=_x,y=_y,str=_str,timer=0
 }
 setmetatable(obj,{__index=Info})
 return obj
end

Info.update=function(self)
 self.y=self.y-0.5
 self.timer=self.timer+1
 if self.timer>30 then
  self.alive=false
 end
end

Info.draw=function(self)
 print(self.str,self.x+1,self.y+1,0)
 print(self.str,self.x,self.y,15)
end

function bornInfo(_x,_y,_score)
 local info=Info.new(_x,_y-16,"+".._score)
 table.insert(infos,info)
end

function hitcheck(p,objs)
 for i,spr in ipairs(objs) do
  local dx,dy,dist
  dx=math.abs(spr.x-p.x)
  dy=math.abs(spr.y-p.y)
  if spr.kind==0 then
   if dx<=8 and dy<=8 then
    spr.hit=true
    sfx(1, "C-5")
   end
  elseif spr.kind==1 then
   if (dx*dx+dy*dy)<(8*8) then
    spr.hit=true
    p.alive=false
   end
  end
 end
end

function updateSprites(objs)
 for i,spr in ipairs(objs) do
  spr:update()
 end
end

function removeSprites(objs)
 local elen=#objs
 for i=elen,1,-1 do
  if not objs[i].alive then
   table.remove(objs,i)
  end
 end
end

function drawSprites(objs)
 for i,spr in ipairs(objs) do
  spr:draw()
 end
end

function printCt(_s,_y,_scale)
 local w=print(_s,0,-6)
 local x=(scrw-(w*_scale))//2
 local a=_scale
 print(_s,x+a,_y+a,0,false,_scale)
 print(_s,x,_y,15,false,_scale)
end

score=0
hiscore=0
gmstep=0
t=0
brate=100

player=Player.new()
items={}
infos={}

PALADDR=0x3FC0+14*3
R1,G1,B1=0x59,0x7D,0xCE
R2,G2,B2=0x6D,0xC2,0xCA

function SCN(row)
 -- sky gradient
 local d,hh,h
 hh=scrh-8*4
 h=hh*0.75
 if row<h then d=0
 elseif row>hh then d=1
 else d=(row-h)/(hh-h) end
 poke(PALADDR,R1+(R2-R1)*d)
 poke(PALADDR+1,G1+(G2-G1)*d)
 poke(PALADDR+2,B1+(B2-B1)*d)
end

function TIC()
 if gmstep==0 then
  -- title
  if btnp(0) then
   gmstep=1
   score=0
   brate=100
   music(0)
   math.randomseed(0)
  end
 elseif gmstep==1 then
  -- game main
  hitcheck(player,items)
  player:update()

  -- born item
  if t%60==0 then
   brate=brate-1
   if brate<=1 then brate=100 end
  end
  if t%8==0 then
   local ex,b,k,item
   ex=math.random(8,scrw-8)
   b=math.max(20,brate)
   k=(math.random(100)>b) and 1 or 0
   item=Item.new(ex,-16,k)
   table.insert(items,item)
  end
 
  updateSprites(items)
  updateSprites(infos)
  
  removeSprites(items)
  removeSprites(infos)
  
  if score>hiscore then
   hiscore=score
  end
  
  if not player.alive then
   gmstep=2
   t=0
   sfx(2,"C-5")
   music()  -- music stop
  end
 elseif gmstep==2 then
  -- game over
  if t>=60+30 then
   player:init()
   gmstep=0
   items={}
   infos={}
  end
 end

 -- draw 
 cls(14)
 map(0,0,30,17,0,0,14)
 player:draw()
 drawSprites(items)
 drawSprites(infos)
 print("SCORE: "..score,4,2)
 print("HI-SCORE: "..hiscore,120,2)
 
 if gmstep==0 then
  printCt("NEWTOTOTONE",52,2)
  printCt("MOVE: LEFT,RIGHT KEY",84,1)
  printCt("PUSH UP KEY TO START",94,1)
 elseif gmstep==2 then
  printCt("GAME OVER",54,2)
 end
 
 t=t+1
end

• 〜.new が、クラスのインスタンス発生＋初期化処理
• 〜.update が更新処理(1秒間に60回呼ばれる)
• 〜.draw が描画処理

• 時間制限をつけて、1分以内に何点稼げるかで競う感じにするとか。
• 地面の上に蛇でも出すとか。プレイヤーキャラはジャンプで避けるとか。あるいは弾を撃って蛇を倒すとか。
• フィーバータイムをつけるとか。何かを取ると一定時間、全てが林檎に変化したり。
• ステージを設けるとか。ある程度取るとステージクリア。
• 長くプレイしてると背景が変わってくるとか。徐々に夕焼けになったり、夜空になったり。

• 横スクロールシューティングゲームを作れ。
• 自機はカーソルキーで上下左右に動く。
• 自機は弾を撃てる。
• 雑魚敵は画面内に複数出てくる。
• 雑魚敵は自機の弾で消せる。
• 雑魚敵を4種類実装しろ。
• 雑魚敵Aは、画面右から出現。sinカーブで飛んでくる。
• 雑魚敵Bは、画面右から出現。自機を追いかける。
• 雑魚敵Cは、画面左から出現。放物線を描いて画面左に帰っていく。
• 雑魚敵Dは、(仕様失念)

• 画面内に複数のオブジェクトを出して動かす仕組み、の基本を学べる。
• 速度と加速度の使い方を学ぶ。
• 角度から速度を求めて使うやり方を知る。(三角関数の復習。)

-- title:  stg sample 1
-- author: mieki256
-- desc:   short description
-- script: lua

scrw,scrh=240,136

-- ----------------------------------------
-- Player class
Player={}
Player.new=function()
 local o={
  alive=true,
  x=scrw/2,
  y=scrh/2,
  sprid=5
 }
 setmetatable(o,{__index=Player})
 return o
end

Player.update=function(self)
 local spd=2.0
 local dx,dy=0,0
 if btn(0) then dy=-spd end
 if btn(1) then dy=spd end
 if btn(2) then dx=-spd end
 if btn(3) then dx=spd end
 if dx~=0 and dy~=0 then
  local d=math.cos(math.rad(45))
  dx=dx*d
  dy=dy*d
 end
 self.x=self.x+dx
 self.y=self.y+dy
 self.x=math.min(math.max(self.x,8),scrw-8)
 self.y=math.min(math.max(self.y,8),scrh-8)
end

Player.draw=function(self)
 local x,y=self.x-8,self.y-8
 spr(self.sprid,x,y,14,1,0,0,2,2)
end

-- init

score=0
t=0
player=Player.new()

-- main loop

function TIC()
 player:update()

 cls(0)
 player:draw()
 print("SCORE: "..score,2,2)
 t=t+1
end

 if dx~=0 and dy~=0 then
  local d=math.cos(math.rad(45))
  dx=dx*d
  dy=dy*d
 end

 self.x=math.min(math.max(self.x,8),scrw-8)
 self.y=math.min(math.max(self.y,8),scrh-8)

-- title:  stg sample 2
-- author: mieki256
-- desc:   short description
-- script: lua

scrw,scrh=240,136

-- ---------------------------------------
-- Player class

Player={}
Player.new=function()
 local o={
  alive=true,
  x=scrw/2,
  y=scrh/2,
  sprid=5
 }
 setmetatable(o,{__index=Player})
 return o
end

Player.update=function(self)
 local spd=2.0
 local dx,dy=0,0
 if btn(0) then dy=-spd end
 if btn(1) then dy=spd end
 if btn(2) then dx=-spd end
 if btn(3) then dx=spd end
 if dx~=0 and dy~=0 then
  local d=math.cos(math.rad(45))
  dx=dx*d
  dy=dy*d
 end
 self.x=self.x+dx
 self.y=self.y+dy
 self.x=math.min(math.max(self.x,8),scrw-8)
 self.y=math.min(math.max(self.y,8),scrh-8)
 
 -- shot
 if t%6==0 then
  local x,y=self.x,self.y
  spd=6
  table.insert(bullets,Bullet.new(x,y,spd,0))
  table.insert(bullets,Bullet.new(x,y,spd,12))
  table.insert(bullets,Bullet.new(x,y,spd,-12))
  table.insert(bullets,Bullet.new(x,y,spd,180))
 end
end

Player.draw=function(self)
 local x,y=self.x-8,self.y-8
 spr(self.sprid,x,y,14,1,0,0,2,2)
end

-- ---------------------------------------
-- Bullet class

Bullet={}
Bullet.new=function(_x,_y,_spd,_ang)
 local o={
  alive=true,
  x=_x,y=_y,spd=_spd,ang=_ang,
  sprid=7
 }
 local ra=math.rad(_ang)
 o.dx=_spd*math.cos(ra)
 o.dy=_spd*math.sin(ra)
 setmetatable(o,{__index=Bullet})
 return o
end

Bullet.update=function(self)
 self.x=self.x+self.dx
 self.y=self.y+self.dy
 if self.x<-16 or self.x>scrw+16 or
    self.y<-16 or self.y>scrh+16 then
  self.alive=false
 end
end

Bullet.draw=function(self)
 local x,y=self.x-4,self.y-4
 spr(self.sprid,x,y,0,1,0,0,1,1)
end

-- ----------------------------------------

function objsUpdate(objs)
 for i,o in ipairs(objs) do
  o:update()
 end
end

function objsDraw(objs)
 for i,o in ipairs(objs) do
  o:draw()
 end
end

function objsRemove(objs)
 local l=#objs
 for i=l,1,-1 do
  if not objs[i].alive then
   table.remove(objs,i)
  end
 end
end

-- init

score=0
t=0
player=Player.new()
bullets={}

-- main loop

function TIC()
 player:update()
 objsUpdate(bullets)
 objsRemove(bullets)

 cls(0)
 objsDraw(bullets)
 player:draw()
 print("SCORE: "..score,2,2)
 print("bullets: "..#bullets,120,2)
 t=t+1
end

-- title:  stg sample 3
-- author: mieki256
-- desc:   short description
-- script: lua

scrw,scrh=240,136

-- --------------------
-- Player class

Player={}
Player.new=function()
 local o={
  alive=true,
  x=scrw/2,
  y=scrh/2,
  sprid=5
 }
 setmetatable(o,{__index=Player})
 return o
end

Player.update=function(self)
 local spd=2.0
 local dx,dy=0,0
 if btn(0) then dy=-spd end
 if btn(1) then dy=spd end
 if btn(2) then dx=-spd end
 if btn(3) then dx=spd end
 if dx~=0 and dy~=0 then
  local d=math.cos(math.rad(45))
  dx=dx*d
  dy=dy*d
 end
 self.x=self.x+dx
 self.y=self.y+dy
 self.x=math.min(math.max(self.x,8),scrw-8)
 self.y=math.min(math.max(self.y,8),scrh-8)
 
 -- shot
 if t%6==0 then
  local o
  local x,y=self.x,self.y
  spd=6
  table.insert(bullets,Bullet.new(x,y,spd,0))
  -- table.insert(bullets,Bullet.new(x,y,spd,12))
  -- table.insert(bullets,Bullet.new(x,y,spd,-12))
  -- table.insert(bullets,Bullet.new(x,y,spd,180))
 end
end

Player.draw=function(self)
 local x,y=self.x-8,self.y-8
 spr(self.sprid,x,y,14,1,0,0,2,2)
end

-- --------------------
-- Bullet class

Bullet={}
Bullet.new=function(_x,_y,_spd,_ang)
 local o={
  alive=true,
  x=_x,y=_y,spd=_spd,ang=_ang,
  sprid=7
 }
 local ra=math.rad(_ang)
 o.dx=_spd*math.cos(ra)
 o.dy=_spd*math.sin(ra)
 setmetatable(o,{__index=Bullet})
 return o
end

Bullet.update=function(self)
 self.x=self.x+self.dx
 self.y=self.y+self.dy
 if self.x<-16 or self.x>scrw+16 or
    self.y<-16 or self.y>scrh+16 then
  self.alive=false
 end
end

Bullet.draw=function(self)
 local x,y=self.x-4,self.y-4
 spr(self.sprid,x,y,0,1,0,0,1,1)
end

-- --------------------
-- Zako enemy class

Zako={}
Zako.new=function(_x,_y,_spd,_ang)
 local o={
  alive=true,x=_x,y=_y,
  spd=_spd,ang=_ang,
  sprid=1,t=0
 }
 local ra=math.rad(_ang)
 o.dx=_spd*math.cos(ra)
 o.dy=_spd*math.sin(ra)
 setmetatable(o,{__index=Zako})
 return o
end

Zako.update=function(self)
 self.x=self.x+self.dx
 self.y=self.y+self.dy
 self.t=self.t+1
 if self.x<-32 or self.x>scrw+32 or
    self.y<-32 or self.y>scrh+32 then
  self.alive=false
 end
end

Zako.draw=function(self)
 local x,y=self.x-8,self.y-8
 spr(self.sprid,x,y,14,1,0,0,2,2)
end

-- --------------------

function objsUpdate(objs)
 for i,o in ipairs(objs) do
  o:update()
 end
end

function objsDraw(objs)
 for i,o in ipairs(objs) do
  o:draw()
 end
end

function objsRemove(objs)
 local l=#objs
 for i=l,1,-1 do
  if not objs[i].alive then
   table.remove(objs,i)
  end
 end
end

function bornEnemys()
 if t%50==0 then
  for i=1,3 do
   local o,spd,ang,x,y
   spd=1.5
   x=scrw+16
   y=math.random(8,scrh-8)
   ang=180+25*((y-(scrh/2))/(scrh/2))
   o=Zako.new(x,y,spd,ang)
   table.insert(enemys,o)
  end
 end
end

-- init

score=0
t=0
player=Player.new()
bullets={}
enemys={}

-- main loop

function TIC()
 bornEnemys()
 player:update()
 objsUpdate(bullets)
 objsUpdate(enemys)
 objsRemove(bullets)
 objsRemove(enemys)

 cls(0)
 objsDraw(enemys)
 objsDraw(bullets)
 player:draw()
 print("SCORE: "..score,2,2)
 print("enemys: "..#enemys,120,2)
 t=t+1
end

• export sprites で、スプライト画像のエクスポート。
• import sprites で、スプライト画像のインポート。

function hitcheckCirc(e,b)
 if not next(b.collision) then
  return false
 end
 local x,y,r
 x=e.collision[1]-b.collision[1]
 y=e.collision[2]-b.collision[2]
 r=e.collision[3]+b.collision[3]
 if x*x+y*y <=r*r then return true end
 return false
end

function hitcheck()
 -- enemys vs bullet
 for i,e in ipairs(enemys) do
  if e.alive and next(e.collision) then
   for j,b in ipairs(bullets) do
    if b.alive and hitcheckCirc(e,b) then
     e:hit(b)
     b:shot(e)
     break
    end
   end
  end
 end

 if player.alive==false or
    not next(player.collision) then
  return
 end

 -- enemys vs player
 -- ...

 -- enemy bullets vs player
 -- ...
end

 if x*x+y*y<=r*r then return true end
 return false

.
|-- tic80.exe
|-- stgsample5.lua
`-- stgsample5.tic

tic80 .

tic80 .                        will use current directory as storage
tic80 ../path/to/cart.tic      will use ../path/to/ as storage and load cart.tic
tic80 -code game.lua           load and run the code without startup animation
tic80 -code-watch game.lua     same as -code but also reload it when TIC is focused
tic80 game.tic -code game.lua  load cartridge, inject the code and run without startup animation

-- title:  wavetest
-- author: mieki256
-- desc:   short description
-- script: lua

waveid=4

WAVADR=0x0ffe4

function makeWave()
 dt={}
 for i=0,31 do
  local v=0
  -- multiplier, speed, shift
  v=v+getSin(i, 1.0, 1.0, 0)
  v=v+getSin(i, 1.5, 0.5, 0)
  v=v+getSin(i, 1.5, 2.0, 0)
  v=v+getSin(i, 0.5, 3.0, 90)
  --[[
  v=v+getSin(i, 0.5, 3.0, 0)
  v=v+getSin(i, 0.25, 4.0, 0)
  --]]
  table.insert(dt,v)
 end
 return dt
end

function getSin(i,m,spd,sft)
 return m*math.sin(math.rad(spd*i*360/32+sft))
end

function writeWave(id,dt)
 -- adjust
 if id<0 or id>15 then return end
 if #dt>32 then return end
 local vmax,vmin
 vmax=0
 vmin=0
 for i=1,#dt do
  if dt[i]>vmax then vmax=dt[i] end
  if dt[i]<vmin then vmin=dt[i] end
 end
 local range=vmax-vmin
 for i=1,#dt do
  dt[i]=math.floor(15*(dt[i]-vmin)/range)
 end

 -- write wave 
 local addr=WAVADR+id*16
 for i=1,#dt,2 do
  local v=0
  v = v | ((dt[i+1] & 0x0f)<<4)
  v = v | (dt[i] & 0x0f)
  poke(addr+((i-1)//2),v)
 end
end

function drawGuide(bx,by,w,h)
 local x0,y0,x1,y1
 local c=3
 x0,x1=bx,bx+w*32-2
 y0=by+h*8-1
 line(x0,y0,x1,y0,c)
 y0=by+h*4-1
 line(x0,y0,x1,y0,c)
 y0=by+h*12-1
 line(x0,y0,x1,y0,c)
 x0=bx+w*16-1
 y0,y1=by,by+h*16-2
 line(x0,y0,x0,y1,c)
 x0=bx+w*8-1
 line(x0,y0,x0,y1,c)
 x0=bx+w*24-1
 line(x0,y0,x0,y1,c)
end

function drawWave(id)
 -- read wave
 local addr=WAVADR+id*16
 local dt={}
 for i=0,15 do
  local v=peek(addr+i)
  local v1=v&0x0f
  local v2=(v>>4)&0x0f
  table.insert(dt,v1)
  table.insert(dt,v2)
 end

 -- draw wave
 local bx,by=24,12
 local w,h=6,6
 local x,y
 for ix=0,31 do
  x = ix * w + bx
  for iy=0,15 do
   y = iy * h + by
   rect(x,y,w,h,0)
   rect(x,y,w-1,h-1,1)
  end
  y=(15-dt[ix+1])*h+by
  rect(x,y,w-1,h-1,6)
 end
 drawGuide(bx,by,w,h)
end

dt=makeWave()
writeWave(waveid,dt)
t=0

function TIC()

 if keyp(14) then sfx(0,"A-4",30,0) end
 if keyp(25) then sfx(1,"A-4",30,0) end
 if btnp(5) then
  -- write to cart
  sync(1<<3,0,true)
 end

 cls(0)
 drawWave(waveid)
 print("WAVE ID: "..waveid, 2,120)
 print("Play: N or Y / Write: X", 2,128)
 t=t+1
end

| 0FFE4 | WAVEFORMS | 256 | 16 waveforms, each 32 x 4bit values

• 0x0FFE4番地から、256byteほど確保してあって、16種類の波形が記録されてる。
• 1つの波形につき、4bitの音量が32個並んでる。つまり、16byteで一つの波形になる。

bytes : 0x10, 0x32, 0x54, 0x76, 0x98, 0xBA, 0xDC, 0xFE, ...

wave memory : 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F, ...

$ sudo apt install sptk
$ sptk impulse -h

impulse - generate impulse sequence

...

SPTK: version 3.9
CVS Info: $Id: impulse.c,v 1.24 2015/12/14 01:14:16 uratec Exp $

export PATH=$PATH:/usr/lib/sptk/bin

$ gwave +s data.short | xgr
X Error of failed request:  BadName (named color or font does not exist)
  Major opcode of failed request:  45 (X_OpenFont)
  Serial number of failed request:  312
  Current serial number in output stream:  318
Broken pipe
Broken pipe
Broken pipe
Broken pipe
Broken pipe
Broken pipe

sudo apt --reinstall install xfonts-base xfonts-100dpi xfonts-75dpi xfonts-cyrillic

sudo apt install xfonts-75dpi xfonts-100dpi
sudo apt install xfonts-75dpi-transcoded xfonts-100dpi-transcoded
sudo apt install x11-xfs-utils
sudo apt install xfonts-unifont
sudo apt install gsfonts-x11

/*
* Fonts name
*/
#define FSymbol 9
static char *f_name[] = {
   "-adobe-courier-medium-r-normal-*-*-100-*-*-m-*-iso8859-1",
   "-adobe-courier-medium-r-normal-*-*-120-*-*-m-*-iso8859-1",
   "-adobe-courier-medium-r-normal-*-*-140-*-*-m-*-iso8859-1",
   "-adobe-courier-medium-r-normal-*-*-160-*-*-m-*-iso8859-1",
   "-adobe-courier-bold-r-normal-*-*-100-*-*-m-*-iso8859-1",
   "-adobe-courier-bold-r-normal-*-*-120-*-*-m-*-iso8859-1",
   "-adobe-courier-bold-r-normal-*-*-140-*-*-m-*-iso8859-1",
   "-adobe-courier-bold-r-normal-*-*-160-*-*-m-*-iso8859-1",
   "-adobe-symbol-medium-r-normal-*-*-80-*-*-p-*-adobe-fontspecific",
   "-adobe-symbol-medium-r-normal-*-*-100-*-*-p-*-adobe-fontspecific",
   "-adobe-symbol-medium-r-normal-*-*-120-*-*-p-*-adobe-fontspecific",
   "-adobe-symbol-medium-r-normal-*-*-140-*-*-p-*-adobe-fontspecific",
   "-adobe-symbol-medium-r-normal-*-*-160-*-*-p-*-adobe-fontspecific"
};

dmp +s data.short > data.txt

wgnuplot
gnuplot > plot "data.txt" w l

Dir.glob('**/*') do |item|
  unless item =~ /^[0-9a-zA-Z\/\._\-]+$/
    puts item
  end
end

• WAVE ID <n> : 現在アクセスしてる波形メモリのID。0〜15まで選べるが、0〜3はデフォルトで波形が入っているので変更できないようにしてある。
• READ : 波形メモリの読み出し再生モード。
• MAKE : 波形生成モード。
• PLAY : 1秒間隔で音が鳴り続ける。
• STOP : 音を停止。
• Sync : 現在の波形メモリ状態を、cart に記録。
• MAXI : SFXエディタと同じサイズで波形を表示。
• OCT : オクターブの指定。
• AJST : 音量自動調整。
• RSET : 周波数設定のリセット。
• スライダー : 音量や位相の指定値。
• 波形アイコン : sin波(正弦波)、矩形波、ノコギリ波、三角波の切り替え。

load wavetest2.tic sfx

-- font setting
editor.fontname = "Consolas"
-- editor.fontname = "MigMix 1M"
editor.fontsize = 13

-- indent setting
-- editor.tabwidth = 2  -- default
editor.tabwidth = 1

-- add shortcut key
editor.keymap[#editor.keymap+1] = {('E'):byte(), wxstc.wxSTC_SCMOD_CTRL, wxstc.wxSTC_CMD_LINEEND}
editor.keymap[#editor.keymap+1] = {('K'):byte(), wxstc.wxSTC_SCMOD_ALT, wxstc.wxSTC_CMD_DELLINERIGHT}
editor.keymap[#editor.keymap+1] = {wxstc.wxSTC_KEY_UP, wxstc.wxSTC_SCMOD_ALT, wxstc.wxSTC_CMD_MOVESELECTEDLINESUP}
editor.keymap[#editor.keymap+1] = {wxstc.wxSTC_KEY_DOWN, wxstc.wxSTC_SCMOD_ALT, wxstc.wxSTC_CMD_MOVESELECTEDLINESDOWN}

• Ctrl + E : 行末まで移動
• ALt + K : 行末まで削除
• Alt + Up : 行を上に移動
• Alt + Down : 行を下に移動

{ キー種類, 修飾キー, コマンド }

• wxstc.wxSTC_SCMOD_CTRL
• wxstc.wxSTC_SCMOD_SHIFT
• wxstc.wxSTC_SCMOD_META
• wxstc.wxSTC_SCMOD_ALT

wxstc.wxSTC_SCMOD_CTRL + wxstc.wxSTC_SCMOD_ALT

styles = loadfile('cfg/tomorrow.lua')('Monokai')
stylesoutshell = styles -- apply the same scheme to Output/Console windows
styles.auxwindow = styles.text -- apply text colors to auxiliary windows
styles.calltip = styles.text -- apply text colors to tooltips

styles = loadfile('cfg/tomorrow.lua')('NotepadPlusPlus')

• ZeroBrane Studio インストール場所の下にある packages フォルダの中に .lua を入れる。
• もしくは、~/.zbstudio/packages/ フォルダを作ってその中に .lua を入れる。