mieki256's diary

db16_tic80_old.ase
db16_tic80_old.gpl
db32.ase
db32.gpl
flatUIColors.ase
flatUIColors.gpl
Material-Design.ase
Material-Design.gpl
MaterialUIColors.ase
MaterialUIColors.gpl
Pyxel_new.ase
Pyxel_new.gpl
sweetie-16_tic80_new.ase
sweetie-16_tic80_new.gpl
tango-palette.ase
Tango-Palette.gpl

• DawnBringer 32 (DB32), DawnBringer 16 (DB16), Sweetie 16, Pyxelパレットは、ドット絵(PixelArt)用のカラーパレット。
• DB16 は、昔の TIC-80 でデフォルトパレットとして使われていた。
• Sweetie 16 は、今の TIC-80 でデフォルトパレットして使われている。
• TIC-80 や Pyxel は、ファンタジーコンソールの一種。架空のゲームコンソールエミュレーター。PICO-8 が一番有名だろうか。

• HSP製プログラム実行時にデフォルトで作られる表示ウインドウ(ウインドウID0)には、一切手を付けない。
• ウインドウID2の表示ウインドウをフルスクリーン表示で新規に作成して、そちらに描画をしていく。

• 表示ウインドウは1つしか持てない。複数の表示ウインドウは作れない。
• プログラム実行時に作られるウインドウID0の表示ウインドウだけが、描画可能なウインドウになる。

    ; screensaver sample for hsp3dish.
    ; fork arusave.hsp
    ;
    ; This program does not work.
    ;
    ; hsp3dish を使ってスクリーンセーバが作れるか実験したが、失敗に終わった。
    ;
    ; Windows10 x64 22H2 + HSP 3.7 beta7
    ;
    ; 2023/11/04 by mieki256
    
    #include "hsp3dish.as"
    #include "d3m.hsp"
    
    ; 以下の行のコメントアウトを外すとスクリーンセーバとして実行ファイルを作成する
    ; #define SCREENSAVER_ENABLE
    
    #define TITLE_STR   "Screensaver sample for hsp3dish"
    #define VER_STR     "0.0.1"
    
    #packopt name "h3dshscr"
    
#ifdef SCREENSAVER_ENABLE
    #packopt type 2
#else
    #packopt type 0
#endif
    
    #packopt xsize  640     ; 設定画面横幅
    #packopt ysize  360     ; 設定画面縦幅

    #define TEX_FILE        "star.png"
    #define PREVIEWFILE     "preview.png"
    #pack TEX_FILE
    #pack PREVIEWFILE
    
    #define KB_ESC      $000080
    #define FRAMERATE   60
    
    fps_display_enable = 1
    
    ; ----------------------------------------
    ; parse command line option
    
    s = dir_cmdline         ; get command line option
    i = instr(s, 0, "/")    ; "/" の出現位置を検索
   
    if i = -1 {
        ; not option
#ifdef SCREENSAVER_ENABLE
        goto *config_mode
#else
        goto *fullscreen_mode
#endif
        ; goto *preview_mode
    }
    
    a = strmid(s, i, 2)     ; 2文字だけ取り出し
    
    if a == "/p" or a == "/P" : goto *preview_mode      ; プレビュー
    if a == "/s" or a == "/S" : goto *fullscreen_mode   ; フルスクリーン
    if a == "/c" or a == "/C" : goto *config_mode       ; コンフィグ
    
    ; コマンドラインがどれでもない時はエラー表示
    dialog "Unknown switch [" + s + "]"
    end

*config_mode
    ; 設定画面
    
    screen 0, 640, 360, 0
    gsel 0
    cls
    
    tt = "Config - " + TITLE_STR + " " + VER_STR
    title tt
    font "Tahoma", 24, 1
    
    redraw 0
    color 0, 0, 0
    
    pos 20, 20
    mes "Config - " + TITLE_STR
    
    pos 20, 50
    mes "Version : " + VER_STR
    
    pos 520, 300
    button "OK", *ssend
    
    redraw 1
    stop
    
*ssend
    end

*preview_mode
    ; プレビュー画面
    ; スクリーンセーバー選択時の、小さな画面内でのプレビューの処理。
    ; HSPのWindow ID0がプレビュー画面に合わせて小さくなっているので、
    ; ginfo_winx, ginfo_winy で画面サイズを取得後、その中に描画する。
    ; 経験上、単に画像を表示してstopしたほうが不具合が起きにくい。
    wdw_w = ginfo_winx
    wdw_h = ginfo_winy
    
    ; load preview image
    imgid = 3
    w = 152
    h = 112
    buffer imgid, w, h
    picload PREVIEWFILE
    iw = ginfo_winx
    ih = ginfo_winy
    
    ; draw
    gsel 0
    redraw 0
    cls 4
    gmode gmode_gdi, iw, ih
    gzoom wdw_w, wdw_h, imgid, 0, 0, iw, ih, 1
    redraw 1
    
    stop

; ----------------------------------------
*fullscreen_mode
    ; フルスクリーン描画処理
    
    ; get desktop size
    dispw = ginfo_dispx
    disph = ginfo_dispy
    
    ; initialize window without frame
    ; bgscr WindowID, width, height, mode, x, y
    bgscr 0, dispw, disph, 0, 0, 0, dispw, disph
    
    ; load image
    imgid = 3
    celload TEX_FILE, imgid

    ; split image. set orign
    celdiv imgid, 512, 512, 256, 256

    ; Set the buffer to draw from. Windows ID 0
    gsel 0, 1
    
    ; Set screen clear color to be performed when redraw 0 is called.
    ; 0 or 1, color ($000000 - $ffffff)
    ; setcls CLSMODE_SOLID, $4080c0
    setcls CLSMODE_SOLID, $000000
    
    font "Tahoma", 24, 1
    
    randomize
    
    star_size = 0.75
    dist = 150.0        ; screen distabce
    area_z = 5000
    zmax = double(area_z) + dist
    
    ; rnd() only accepts 1 to 32768.
    ; adjust the value to stay within that range.
    area_m = 4.0
    area_w = int((double(dispw) * zmax) / dist / area_m)
    area_h = int((double(disph) * zmax) / dist / area_m)
    
    objmax = 512
    
    ; initialize stars work
    ddim posx, objmax       ; position x
    ddim posy, objmax       ; position y
    ddim posz, objmax       ; position z
    dim px, objmax          ; display position x
    dim py, objmax          ; display position y
    ddim scalev, objmax     ; scale
    dim alpha, obj_max      ; alpha value
    dim patidx, obj_max     ; pattern index
    repeat objmax
        gosub *get_newpos_xy
        posx(cnt) = nx
        posy(cnt) = ny
        patidx(cnt) = idx
        posz(cnt) = double(rnd(area_z)) + dist
        px(cnt) = 0
        py(cnt) = 0
        scale(cnt) = 0.0
        alpha(cnt) = 0
    loop
    
    time_start = d3timer()
    endfg = 0
    
; ----------------------------------------
*mainloop
    while endfg == 0
        tm = d3timer() - time_start
        fps = d3getfps()                ; get FPS
        
#ifndef SCREENSAVER_ENABLE
        ; ESC key to exit
        stick key, 0
        if key & KB_ESC : endfg = 1
#endif
        
        ; move stars
        spd = 40.0
        repeat objmax
            posz(cnt) -= spd
            if posz(cnt) < (dist / 2.0) {
                posz(cnt) += zmax
                gosub *get_newpos_xy
                posx(cnt) = nx
                posy(cnt) = ny
                patidx(cnt) = idx
            }
            
            ; get display x, y position
            px(cnt) = int(posx(cnt) * dist / posz(cnt)) + (dispw / 2)
            py(cnt) = int(posy(cnt) * dist / posz(cnt)) + (disph / 2)
            scalev(cnt) = star_size * dist / posz(cnt)
            
            size = int(512.0 * scalev(cnt))
            x0 = px(cnt) - (size / 2)
            y0 = py(cnt) - (size / 2)
            x1 = px(cnt) + (size / 2)
            y1 = py(cnt) + (size / 2)
            if x1 < 0 or x0 > dispw or y1 < 0 or y0 > disph {
                ; out of display area. position reset
                posz(cnt) += zmax
                gosub *get_newpos_xy
                posx(cnt) = nx
                posy(cnt) = ny
                patidx(cnt) = idx
                px(cnt) = int(posx(cnt) * dist / posz(cnt)) + (dispw / 2)
                py(cnt) = int(posy(cnt) * dist / posz(cnt)) + (disph / 2)
                scalev(cnt) = star_size * dist / posz(cnt)
            }
            
            ; get alpha value
            az = double(area_z) * 0.7
            if posz(cnt) < az {
                alpha(cnt) = 255
            } else {
                ; fade in
                z = posz(cnt)
                if z > zmax : z = zmax
                v0 = z - az
                v1 = zmax - az
                alpha(cnt) = int(255.0 - (255.0 * v0 / v1))
            }
        loop
        
        ; ----------------------------------------
        ; draw start
        redraw 0
        
        ; clear screen
        ; color 64, 128, 192
        ; boxf
        
        ; draw stars
        repeat objmax
            rot = 0.0
            idx = 0
            
            ; draw image by celput
            gmode gmode_add, 512, 512, alpha(cnt)
            pos px(cnt), py(cnt)
            rot = 0.0
            idx = patidx(cnt)
            celput imgid, idx, scalev(cnt), scalev(cnt), rot
        loop

        ; draw text
        if fps_display_enable {
            gmode gmode_rgb0
            color 255, 255, 255
            pos 10, 10
            mes strf("[%dx%d] %d/%dFPS", dispw, disph, fps, FRAMERATE)
        }
        
        ; draw end. screen refersh
        redraw 1
        
        await (1000 / FRAMERATE)
        ; await 12
    wend
    
*jobend:
    end
    
*get_newpos_xy
    nx = double(rnd(area_w) - (area_w / 2)) * area_m
    ny = double(rnd(area_h) - (area_h / 2)) * area_m
    idx = rnd(4)
    return

new ruby

# title:   game title
# author:  game developer, email, etc.
# desc:    short description
# site:    website link
# license: MIT License (change this to your license of choice)
# version: 0.1
# script:  ruby

$t=0
$x=96
$y=24

def TIC
 $y-=1 if btn 0
 $y+=1 if btn 1
 $x-=1 if btn 2
 $x+=1 if btn 3

 cls 13
 spr 1+(($t%60)/30|0)*2,$x,$y,14,3,0,0,2,2
 print "HELLO WORLD!",84,84
 $t+=1
end

-- title:   game title
-- author:  game developer, email, etc.
-- desc:    short description
-- site:    website link
-- license: MIT License (change this to your license of choice)
-- version: 0.1
-- script:  lua

t=0
x=96
y=24

function TIC()

 if btn(0) then y=y-1 end
 if btn(1) then y=y+1 end
 if btn(2) then x=x-1 end
 if btn(3) then x=x+1 end

 cls(13)
 spr(1+t%60//30*2,x,y,14,3,0,0,2,2)
 print("HELLO WORLD!",84,84)
 t=t+1
end

# script:  ruby

-- script:  lua

-- script: lua

Obj = {}
Obj.new = function(cx, cy, ang, r)

 local o = {
  id=0, x=0, y=0, t=0,
  cx=cx, cy=cy, ang=ang, r=r
 }
  
 o.update = function(self,dr)
  self.id = 1 + (self.t % 32 // 16)
  local rad = math.rad(self.ang)
  local r = self.r
  self.x = r*math.cos(rad)+self.cx
  self.y = r*math.sin(rad)+self.cy
  self.ang = self.ang + 1.5
  self.r = self.r + dr
  self.t = self.t + 1
 end
  
 o.draw = function(self)
  spr(self.id,self.x-4,self.y-4,0)
 end
  
 setmetatable(o, {__index=Obj})
 return o
end

scrw, scrh = 240, 136
cx, cy = scrw/2, scrh/2
t=0

-- init objs
objs = {}
n = 24
for i=1,n do
 local o = Obj.new(cx, cy, i*360/n, 60)
 table.insert(objs, o)
end

-- main loop
function TIC()

 local r = 0
 if btn(0) then r=-1 end
 if btn(1) then r=1 end

 -- update 
 for i, o in ipairs(objs) do
  o:update(r)
 end

 -- draw
 cls(0)
 for i, o in ipairs(objs) do
  o:draw()
 end
 
 print("Lua: " .. _VERSION,4,8*1,12)
 print("count: " .. t,4,8*2,12)
 print(t//60 .. " sec",4,8*3,12)
 
 t=t+1
end

import tiles tiles.png

# script:  ruby

class StarObj

  def initialize(cx, cy, ang, r)
    @id = 0
    @x = 0
    @y = 0
    @t = 0
    @cx = cx
    @cy = cy
    @ang = ang
    @r = r
  end
  
  def update(dr)
    @id = 1 + (@t % 32).div(16)
    rd = @ang * 3.14159 / 180.0
    r = @r
    @x = r * Math.cos(rd) + @cx
    @y = r * Math.sin(rd) + @cy
    @ang += 1.5
    @r += dr
    @t += 1
  end
  
  def draw
    spr @id, @x-4, @y-4, 0
  end
  
end

$scrw, $scrh = 240, 136
$cx, $cy = $scrw / 2, $scrh / 2
$t = 0

# init objs
$objs = []
n = 24
n.times do |i|
  o = StarObj.new($cx, $cy, i*360/n, 60)
  $objs.push(o)
end

# main loop
def TIC
  r = 0
  r -= 1 if btn 0
  r += 1 if btn 1
  
  # update
  $objs.each {|o| o.update(r)}
  
  # draw
  cls 0
  $objs.each_with_index {|o,i| o.draw}

  print "mruby: #{RUBY_VERSION}",4,8*1,12
  print "count: #{$t}",4,8*2,12
  print ($t.div(60)).to_s+" sec",4,8*3,12
  $t+=1
end

export html movecirclerb

cart.tic
index.html
tic80.js
tic80.wasm

今回措置命令を受けたのは、アガスタ、エコリカ、エディオン、オーム電機、グリーンハウス、恵安、光波、コーナン商事、スリー・アールシステム、セントレードM.E.、タキオン、リーダーメディアテクノ。この12社は、消費者に販売するLED電球において、商品パッケージに「白熱電球60W形相当の明るさ」など、白熱電球と比較した明るさを表示していたが、実際には白熱電球と同等の明るさは得られなかったという。

消費者庁、LED電球の明るさを誇大表示した12社に再発防止命令 - 家電 Watch より

1. MSYS2 MSYS (64bit) を起動。
2. pacman -Syu
3. pacman -S mingw-w64-x86_64-gtk3 mingw-w64-x86_64-python3 mingw-w64-x86_64-python3-gobject

import gi
gi.require_version("Gtk", "3.0")
from gi.repository import Gtk

window = Gtk.Window(title="Hello World")
window.show()
window.connect("destroy", Gtk.main_quit)
Gtk.main()

# Python 2.7 + PyGTK
import pygtk
import gtk
pygtk.require("2.0")
import cairo

# Python 3.7 + PyGObject
import gi
gi.require_version('Gtk', '3.0')
from gi.repository import Gtk
import cairo

• PyGTK は gtk.xxx ―― 全部小文字で「gtk.」と書く。
• PyGObject は Gtk.xxx ―― 最初の1文字を大文字にして「Gtk.」と書く。

# Python 2.7 + PyGTK
self.window.set_position(gtk.WIN_POS_CENTER)

# Python 3.7 + PyGObject
self.window.set_position(gtk.WindowPosition.CENTER)

# Python 2.7 + PyGTK
import pygtk
import gtk
import cairo
pygtk.require("2.0")

# Python 3.x + PyGObject
# import gi
# gi.require_version('Gtk', '3.0')
# from gi.repository import Gtk


class MyDrawingArea(gtk.DrawingArea):
    """My DrawingArea."""

    def __init__(self):
        super(MyDrawingArea, self).__init__()
        self.connect("size-allocate", self.on_self_size_allocate)
        self.connect("expose-event", self.on_self_expose_event)

    def on_self_size_allocate(self, widget, allocation):
        """Resize."""
        print("resize")
        self.__width = allocation.width
        self.__height = allocation.height

    def on_self_expose_event(self, widget, event):
        """Draw for pycairo."""
        print("draw")
        ctx = widget.window.cairo_create()

        ctx.set_source_rgb(0, 0, 0)
        ctx.select_font_face("Sans", cairo.FONT_SLANT_NORMAL,
                             cairo.FONT_WEIGHT_NORMAL)
        ctx.set_font_size(40)

        ctx.move_to(10, 50)
        ctx.show_text("Disziplin ist Macht.")


class MyApp(object):

    def __init__(self):
        self.window = gtk.Window()

        self.darea = MyDrawingArea()
        self.window.add(self.darea)

        self.window.connect("delete-event", self.on_delete_event)

        self.window.set_title("GTK window")
        self.window.resize(420, 140)

        # Python 2.7 + PyGTK
        self.window.set_position(gtk.WIN_POS_CENTER)

        # Python 3.7 + PyGObject
        # self.window.set_position(gtk.WindowPosition.CENTER)

    def on_delete_event(self, window, event, data=None):
        gtk.main_quit()
        return False

    def main(self):
        self.window.show_all()
        gtk.main()


if __name__ == "__main__":
    app = MyApp()
    app.main()

• import 関係を変更。
• Gtk. は、gtk. に書き換え。
• drawイベントは、expose-event に置き換えた。

# Python 2.7 + PyGTK
import pygtk
import gtk
import cairo
pygtk.require("2.0")

# Python 3.x + PyGObject
# import gi
# gi.require_version('Gtk', '3.0')
# from gi.repository import Gtk


class MouseButton:
    LEFT_BUTTON = 1
    RIGHT_BUTTON = 3


class MyDrawingArea(gtk.DrawingArea):
    """My DrawingArea."""

    def __init__(self):
        super(MyDrawingArea, self).__init__()

        self.connect("size-allocate", self.on_self_size_allocate)
        self.connect("expose-event", self.on_self_expose_event)

        self.set_events(gtk.gdk.BUTTON_PRESS_MASK)
        # self.connect("button_press_event", self.on_button_press)
        self.connect("button-press-event", self.on_button_press)

        self.coords = []

    def on_self_size_allocate(self, widget, allocation):
        print("resize")
        self.__width = allocation.width
        self.__height = allocation.height

    def on_button_press(self, w, e):
        if e.type == gtk.gdk.BUTTON_PRESS:
            if e.button == MouseButton.LEFT_BUTTON:
                print("LEFT BUTTON")
                self.coords.append([e.x, e.y])
            elif e.button == MouseButton.RIGHT_BUTTON:
                print("RIGHT BUTTON")
                self.queue_draw()

    def on_self_expose_event(self, widget, event=None):
        """Draw for cairo."""
        print("on_draw")
        c = widget.window.cairo_create()
        c.set_source_rgb(0, 0, 0)
        c.set_line_width(0.5)

        for i in self.coords:
            for j in self.coords:
                c.move_to(i[0], i[1])
                c.line_to(j[0], j[1])
                c.stroke()
        del self.coords[:]


class MyApp(gtk.Window):

    def __init__(self):
        super(MyApp, self).__init__()
        self.connect("destroy", gtk.main_quit)

        self.darea = MyDrawingArea()
        self.add(self.darea)
        self.set_title("Lines")

        # Python 2.7 + PyGTK
        self.set_size_request(512, 512)
        self.set_position(gtk.WIN_POS_CENTER)

        # Python 3.7 + PyGObject
        # self.resize(300, 200)
        # self.set_position(gtk.WindowPosition.CENTER)

        self.show_all()


if __name__ == "__main__":
    app = MyApp()
    gtk.main()

        self.set_events(gtk.gdk.BUTTON_PRESS_MASK)

さて、「叩くと直る」というが本当というのは、実は昔の家電製品は部品精度に難があり、電子銃のブラケットに緩みが生じたり、ホコリが付着して接触不良を起こすことがありました。で、叩くとホコリが落ちたり、嵌合（かんごう）の接触が戻ったりして、同期が一時的に正常になるということなのです。他にも、「裁ちばさみを置くとキレイに映る」というのも、金属のハサミに電波を増幅する効果がある、ということで、あながち「迷信」とはいえないようです。

ハイビジョン　温冷蔵庫　EFDウルトラシステム　エンジニアリングなよもやま話　vol. 12 より

潤滑剤が吸湿して性質が変化してヘッドがプラッターに張り付いてしまう。長い間使わなくても同じ事が起こることがある。間の悪いことに、ハードディスクのスピンドルモーターはDCブラスレスモーターで、コグとかスロットとか言って初動トルクが小さい位置がある。これらの条件が揃うと、プラッターが回らず立ち上がらない。

対処はショック療法である。どうせ起動しないハードディスクからは全くデータを回収することはできないから意を決して欲しい。ハードディスクをハズし、プラッターの回転方向にドライブ全体を回してみよう。ダメ？そのときは、漫画雑誌に上下に軽くたたきつけてみよう。ダメ？そのときは、床に軽く落としてみる？

結局、友人のマックは軽くたたいたところ、無事立ち上がるようになった。Webmasterの限られたサンプリング範囲のハナシなので正確で無いかも知れないが、Ｑ社のドライブに多いといううわさがある。四国の空気は日本とは少し異なるのだろう。

.今日の必ずトクする一言 -- TODAY'S REMARK -- より