www.oka-da.com　blog

　このサイトでは、令和３年（2021年）に当研究所から公開されたフリーソフト、イラスト作成支援ソフト ぷりスカ（R)　について解説します。

　私はこの前年から、PCを使ったイラスト作成を趣味にするようになりました。それまでAdobe IllustratorやPhotoShopなどで静物や工業製品関連のイラストを作成したことはありましたが、人物画は未経験でした。そのため、服飾を描こうとしてもデッサンが不正確になり、一目見て下手だと思われる作品しか描けませんでした。
　同じ頃、3Dモデリングソフトの「Blender」に興味を持ち、服飾素材を３Dで造形してトレースし、イラストに組み込もうと考えて３Dモデルの作成方法を学びましたが、一つまとまったものを完成させるには大変な時間が掛かるということがわかりました。そこで３Dモデルの造形と２Dへの投影を行うプログラムを自作した方がBlenderの習得よりも速いと考え、非常に簡単な３Dモデリングソフトのサンプルを作り始めました。この動作試験は成功し、２Dに投影した線画をベクター形式（SVG）のファイルとしてイラスト作成ソフトに読み込ませるという機能に特化したソフトとして製品化が可能と判断しました。

プログラムの運用（例）
（１）　人物の下絵を作成し、作成済みのぷりスカ３Dモデルを読み込みます。この例ではスカートに応用しています。
　ぷりスカ３Dモデルはユーザーが作成することもできますが、基本的には当研究所が多様なものを作成し、ネットを通じて配信します。ユーザーは好きなキャラクターの服飾をダウンロードするだけです。


（２）　下絵に合うように視点と拡大率を変更します。
　読み込んだぷりスカ３Dモデルは変形も可能です。
　最後に、SVG形式でスカートの外観を２Dのベクターファイルとしてファイルに保存します。


（３）　イラスト作成ソフトでSVG形式のファイルを読み込み、必要に応じて線画の調整を行います。
　これで、イラストの技術のない人でも立体的な服飾の線画を短時間かつ正確に作成することができます。


（４）　ぷりスカ　は衣服だけでなく帽子や靴などにも応用できます。

　↑陰線処理とは、３Dモデルの２D投影で面に隠れる線を表示させなくする機能で、上図では高精度に実現されています。この機能を実現する方法は多く発表されていますが、当研究所では精度と処理速度を両立させた技術を独自に開発しました。







今後の開発予定

２０２３年現在、後継版となるぷりスカ Ver.2の開発を進めています。


　開発を終えて後書き
　令和２年１０月頃よりプログラムの設計を始め、令和３年２月に登録商標名「ぷりスカ」を出願し、登録完了まで１年掛かるということで開発スケジュールも１年間として計画していました。ところが令和３年の７月には登録が完了してしまい、その後は１０月中の前倒し公開と定めて、超ハイペースで作業を行いました。８，９，１０月は休日でも家から出ることは無く、会社からの帰宅後も作業に充ててどうにか期限内に公開できました。



  オカダ・システムエンジニアリング研究所

Excel帳票のオートメーションを高速化するために、VB.netとApache NPOI 2.5.1でプログラムを書いてみました。
　セルに斜め罫線を引く方法をネットで調べましたが、VB.netの文法に対応していない複雑な方法によるサンプルプログラムが公開されているだけで、「実現は不可能」という結論でした。
　ところが、私が挑戦してみたところ、簡単にできました。

＜ソースリスト＞
'Excel97Book (.xls) 斜め罫線を引く　サンプル
'Copyright (c) 2020 oka-da.com

'NPOI Ver.2.5.1.0 を使用
Imports NPOI.HSSF.UserModel
Imports NPOI.SS.UserModel
Imports NPOI.SS.Util
'（HSSF EXCEL97用   HSSFCell
'（XSSF EXCEL2007用 XSSFCell


Class MainWindow
    Private Property XlsFileName As String = "C:\Users\o\Desktop\x1.xls"
    Private Property NPOI_book As IWorkbook = Nothing

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Open_xlsFile(NPOI_book, XlsFileName)
        Dim sheet_A1 As ISheet = NPOI_book.GetSheet("Sheet1")

        'Excel VBA rangeのシミュレート
        Dim rg As New POI_Range(NPOI_book, sheet_A1)
        'セル座標をA1に設定する
        rg.SetAddr("A1")
        rg.draw斜罫線(BorderDiagonal.Both, BorderStyle.Thick, IndexedColors.Tan)

        '再計算を行う　■これをPOI側でやっておかないと非常に危険、Excel側でどんなに再計算を行っても計算されないことがある
        NPOI_book.GetCreationHelper().CreateFormulaEvaluator().EvaluateAll()

        SaveBook(XlsFileName)
        'Excelを閉じる
        NPOI_book.Close()
        NPOI_book = Nothing

        'Excelファイルを閲覧
        Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(XlsFileName)
        Me.Close()

    End Sub


    'ExcelファイルをNPOIで開く
    Private Sub Open_xlsFile(ByRef book As IWorkbook, ByVal fs As String)
        Try
            book = WorkbookFactory.Create(fs)
        Catch ex As Exception

        End Try

    End Sub


    'Excelファイルを保存する
    Private Sub SaveBook(ByVal filePath As String)
        Using fs As New System.IO.FileStream(filePath, IO.FileMode.Create)
            NPOI_book.Write(fs)
        End Using
    End Sub


    Public Class NpoiLib
        Public Shared Property xls列名 As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V",
            "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW"}
    End Class


    'POIでrangeをシミュレートする
    Public Class POI_Range
        Private Property _x0 As Integer 'セルを示す座標X　（列）
        Private Property _y0 As Integer 'セルを示す座標Y　（行）
        Private Property NPOI_book As IWorkbook
        Private Property _sheet As ISheet

        Public Sub New(ByRef b As IWorkbook, ByRef s As ISheet)
            NPOI_book = b
            _sheet = s
        End Sub

        '罫線を引く
        Public Sub draw斜罫線(ByVal 斜め形状 As NPOI.SS.UserModel.BorderDiagonal,
                        ByVal thickness As NPOI.SS.UserModel.BorderStyle,
                        ByVal color1 As NPOI.SS.UserModel.IndexedColors)

            Dim style = NPOI_book.CreateCellStyle()
            style.BorderDiagonalLineStyle = thickness
            style.BorderDiagonal = 斜め形状
            style.BorderDiagonalColor = color1.Index

            setStyle(style)

        End Sub

        'セル書式を設定する
        Public Sub setStyle(ByVal style As ICellStyle)
            Dim row = If(_sheet.GetRow(_y0 - 1), _sheet.CreateRow(_y0 - 1))
            Dim cell1 = If(row.GetCell(_x0 - 1), row.CreateCell(_x0 - 1))

            cell1.CellStyle = style

        End Sub

        '定義されたセル名,またはR1C1形式によりrangeの指す座標を設定する
        Public Sub SetAddr(ByVal cs As String)
            Dim add1 As CellRangeAddress
            Dim ina1 As IName = NPOI_book.GetName(cs)

            If ina1 IsNot Nothing Then
                add1 = CellRangeAddress.ValueOf(ina1.RefersToFormula())
                _x0 = add1.FirstColumn + 1
                _y0 = add1.FirstRow + 1

                Exit Sub
            End If


            Dim s As String = cs
            Dim c As Char

            Dim i, j As Integer

            For i = 0 To cs.Length - 1
                c = cs.Substring(i, 1)
                j = Convert.ToInt32(c) 'ASCIIコード
                If j < &H41 Then
                    'csから数字以降の文字列をIntegerに変換、_y0に代入
                    If Integer.TryParse(cs.Substring(i), _y0) Then
                    Else
                        _y0 = 0
                    End If

                    Exit For
                End If
            Next

            'CSのアルファベット部分を配列要素内からクエリー
            If i > 0 Then
                s = cs.Substring(0, i)
                For i = 0 To NpoiLib.xls列名.Length - 1

                    If s = NpoiLib.xls列名(i) Then
                        _x0 = i + 1
                        GoTo L100
                    End If
                Next

            End If
            _x0 = 0
L100:
            If _x0 < 1 Or _y0 < 1 Then Exit Sub
        End Sub

    End Class


End Class


＜実行結果＞


　従来、Excelオートメーションで行っていた処理を全てNPOIに置換しようと試みましたが、不可能なこともあります。
（１）行削除が用意されておらず、行をシフトする方法で代用すると書式が崩れる。
（２）セルの書式設定は一言で表現すると、かなり複雑。特定の行･列全体を書式も含めてコピー・貼り付けするのは避けた方が無難。
サンプルプログラムでは、Excel VBAのrangeクラスをシミュレートしています。まだ開発途中なので一部を公開しただけですが、Offsetによる参照の移動を実装すると、プログラムが楽になります。

オカダ・システムエンジニアリング研究所

---

	（令和２年時点での記載内容です。） 　私は電子機器の修理・レストアで長い経験を持ちますが、今回はプリキュア・フィギュアの修理を行いました。 　プリキュアの変身シーンは、放送シリーズで異なる呼称となっており、現在放映中の「ヒーリングっど♥プリキュア！」では「プリキュア・オペレーション！」となっています。 　ところが、中国（台湾・香港等）でこれが「光之美少女手術！」と誤訳されているのを発見（←証拠画像）。 　私は、この呼び方を真似て、レストア作業をプリキュア・オペレーション！と呼ばせてもらうことにしました。
	第一部 　今回、訳あってプリキュア・フィギュア（キューティーフィギュアシリーズ）のジャンク品大量セットを購入しました。計４１体あるフィギュアには、シリーズコンプリートしているものもあり、大部分が良好な外観でした。 　想定はしていましたが、２体には破損が見られました。 （患者１）　キュアエース　さん *1 Glitter Ace 　所属：ドキドキプリキュア *2 Glitter Force Doki Doki 　首が折れています。 (*1,*2は英語版シリーズでの名称)
	首の接合部に瞬間接着剤が付着していたのを入念に除去し、Φ0.8mmの削孔を行い、画鋲の針を挿入し、瞬間接着剤で再接着しました。
	レストア完了！　 　強度も確保され、全体の清掃後は新品時の外観を取り戻しました。 　保存状態が良かったため、褪色が見られません。レアなキャラなので価値もあります。 　愛の切り札、キュアエース！ 　変身すると７歳成長し、ほかの４人のメンバーを越えて年上になることで傲慢な態度を取ります。
	（患者２）　キュアロゼッタ　さん *1 Glitter Clover 　所属：ドキドキプリキュア *2 Glitter Force Doki Doki 　かわいそう！両腕がなくなっています。右腕は紛失されています。
	右腕の作成は、電子機器のレストアで習得した技術を活かし、プラリペアによる型取と流し込みによる造型→手の部分の肉付けと電動ヤスリによる削り出し→塗装→画鋲の針挿入という工程で行いました。 　塗装は、水性アクリルペイントを使用。
	両腕を接着して完成。薄黄緑色の箇所は、今回使用した塗料の耐光性を試験するために彩度を上げた箇所を部分的に設けました。 　画像は未清掃です。塗装にも傷が発生している箇所があり、今後レストアを続けます。 　ひだまりポカポカ!キュアロゼッタ!! 　ネーミングのセンスが素晴らしい。 　プリキュアでは珍しいワンピース型コスチュームを着用しているのも魅力！
	第二部 　令和２年７月、また４０体ほどの中古プリキュアフィギュアを資金全力投入で仕入れました。 （患者３）　キュアホワイト　さん 　所属　ふたりはプリキュアＭＨ 　首が折れています。全体に汚れがあります。
	付着していた瞬間接着剤は簡単に剥がれました。髪の毛の内側の汚れも、この後洗浄します。食器用中性洗剤を塗るだけで汚れが浮き出てきます。 　洗剤の泡が褐色に濁るほどの汚れが付いていました。
	シャンプー完了。すっきりした顔が蘇りました。 　目や睫毛は手描きで描かれているように見えます。 　キュアホワイトは男顔の様な太い眉毛とケバい大きな目が特徴的ですが、この商品では割とおとなしくアレンジされていながら本来のイメージを崩していません。
	今までは画鋲の針で部品を接続していましたが、短過ぎてグラグラしていたのを改善するために、今回は27mmのピン針という材料をホームセンターで購入し、適度な長さに切断して使用しました。
	首の強度は今まで以上に確保されました。全身を中性洗剤で洗浄してレストア完了です。 　商品シリーズ名は、プリキュアDXです。２００円のカプセルトーイだったことが分かりました。
	（患者４）　キュアベリー　さん 　所属　フレッシュプリキュア 　髪の毛が折れています。これもピン針で接続しました。
	φ0.8mmのドリルで削孔し、ピン針を挿入。瞬間接着剤を塗って髪の毛を接合します。
	フレッシュプリキュアのキャラクターデザインは、頭身を高く見せるため、従来のプリキュア５GoGo!よりも足を長くしたという経緯があります。股下の長さが身長の半分もあります。これは結果として高い評価を受け、ＢＧＭの作曲者が高梨康治氏に交代したことで音楽的にも多くのファンを獲得し、その後５年間に渡る「プリキュア黄金期」が幕を開けました。 　つみたてフレッシュ！キュアベリー！ 　完璧主義で、非常に気の強いキャラとして知られています。
	（患者５）　キュアピーチ　さん 　所属　フレッシュプリキュア 　フレッシュプリキュアのリーダーで全シリーズ中最もスタイルが良いとされるキュアピーチです。 　この子も、残念ながら髪が折れてしまっています。キュアベリー同様にピン針で接続します。（画像掲載は省略します。）
	レストア完了！ピン針の画像も掲載します。 　お大事に！ 　 　もぎたてフレッシュ！キュアピーチ！
	（患者６）　キュアビート　さん 　所属　スイートプリキュア 　重症患者さんが来院しました。 　キュアドールという、デフォルメのかかったやや大型（身長１３ｃｍほど）の商品です。 　右腕が紛失されています。
	以前のキュアロゼッタと同様に型を取り、今回は粘土パテ（ポリアミドアミン）を使用しました。 　この後紹介する、キュアドール・キュアリズムの右腕を外して型を取ったものです。同系のシリーズですからサイズはほぼ同じでした。 　２剤混合後１５分で硬化が始まり、２時間後にはカチカチになりました。脱型は翌日に行い、電動ヤスリで整形を行った状態の画像です。
	腕が嵌っていた箇所には空洞ができていましたので、グルーガンで充填しました。
	ピン針を刺すための削孔状況。
	腕を塗装し、全体を清掃してレストア完成！連休中に完成できて嬉しかったです。ウルトラハッピー！ 　爪弾くは、魂の調べ！　キュアビート！ 　心のビートは、もう止められないわ！　 　この商品シリーズ、キュアドールは首と腕の付け根が回転し、腰が前後に曲がります。
	（患者７）　キュアリズム　さん 　所属　スイートプリキュア 　左腕が外れています。可動部の軸（いわゆる、ダボ）が折れているので再装着しても固定できません。
	キュアビートと同様に空洞部にグルーガンで樹脂を充填し、ピン針を挿入しました。
(画像クリックで拡大できます。)	レストア完了！ 　白色部分の塗装の汚れを再塗装しようかと考えましたが、良く観察するとパールホワイトで、私の持っている塗料では代用できず諦めました。こんなフィギュアでも高級な塗装色を採用しているのですね。 　顔に、どことなく悲しみが漂っている様に見えます。 　姉萌えビーム！姉萌えビーム！姉萌えビィ～～ーム！！！ 　 　爪弾くは、たおやかな調べ!　 キュアリズム! 　2009年から4年続いたプリキュア黄金期の３年目に当たる作品です。
	（患者８）　キュアグレース　さん 　所属　ヒーリングっど　プリキュア 　今年の放送シリーズ、ＨＧプリキュアはコロナ・ヴァイオレンスの影響で放送が休止になるなどの大きな打撃を受けました。例年、番組開始時期に発売されるキューティーフィギュアも、中国での製造と流通に障害が発生したのか、絶対的な供給量不足でどこへ行っても買うことができません。ところが、７月に渡航した佐渡にはありました。キュアスパークルの単品は無かったですが、キュアグレースとキュアフォンテーヌは入手することができました。
	ところが、キュアグレースの美貌がこの通り、塗料（・・・いや、鼻血？）で汚れています。眉、あごにも汚れがあり、私の心も傷付きました。 　番組では、ダルイゼンによって拘束され、顔に汚物を塗ったくられるというプリキュア史上未曾有のハラスメントを受けたキュアグレースですが、まさかその情景を再現しているのではないでしょうね。
	溶剤で塗料を拭き取ると染みが広がるのを恐れ、電動ヤスリで研磨することにしました。 　５分ほどでオペレーションは完了。
(画像クリックで拡大できます。)	レストア完了！ 　溶剤を使った清掃は最後に行いました。 　髪の毛にあるハナミズキの花弁らしい白色の意匠部分は塗装されていません。後で時間があったら描き入れたいと思います。 　もしほかの購入者に渡り、不良品で返品されるなどのことがあれば、廃棄処分されるかも知れない商品だったかもしれません。私のところに来たことが運命だったのでしょうか。 「ヒーリングっど！この出会いが運命～♪」 　では、グレースさんの決めゼリフで、 　・・・　お・だ・い・じ・に！
	（患者９）　キュアビューティ　さん *1 Glitter  Breeze 　所属　スマイルプリキュア *2 Glitter Force 　(*1,*2は英語版シリーズでの名称) 　腕と下半身の接続が緩く、ガバガバですぐに外れてしまいます。
	隙間を埋めるだけなので、グルーガンで充填することにしました。
(画像クリックで拡大できます。)	レストア完了！ 　同系列の商品で、プリンセスフォームとの比較画像です。中央のデフォルメフィギュアの商品名は不明です。 　ビューティなどという驕慢な名前ですが、高い人気を誇るキャラクターです。名前負けしていません。 　スマイルプリキュアは、2009年から4年続いたプリキュア黄金期の４年目に当たる作品です。
	第三部　令和４年 　またもジャンク品のフィギュアを大量に入手しました。 　ここで重症患者さんを迎え入れました。 （患者１０）　キュアミューズ　さん 　所属：スイートプリキュア 　腰部上下の部品の接続がきつく、押し込んでも４ｍｍほどの隙間ができてしまいます。 　前のユーザーが嵌合部に接着剤を詰め込み過ぎたためと分かりました。 　下腿部がブーツごと欠落しています。
	この足と同じ型のフィギュアはありませんでしたので、左足の型を大きめにして取り、パテを固めて右足の形状となるようにヤスリ掛けで成型することにしました。 　型はいつもの「おゆまる」を使おうと考えましたが、商品の流通数が少なくなっており現在１００円ショップの店頭で買うことはできず、通販でも高価で取引されています。ここで「イロプラ」という同等の商品を探し通販で購入しました。かなり安く買えました。 　パテには使い慣れたポリアミドアミンを使用しました。
	右足の成型に成功しました。 　塗装がし易い様に、先にピン針を挿入、接着しておきました。
	レストア完了！ 　腰部の嵌合も調整を行いました。 　補修した右足は違和感無くできたと思います。 　爪弾くは、女神の調べ、キュアミューズ！ 　スイートプリキュアの４人目の戦士で小学生です。体力が無いので魔法イフェクトを発揮して戦いますが、非常に勇敢で、メンバーの中でも最も戦闘経験を積んでいるように見えます。

　
　令和４年１月時点、以上で患者さんは全員治療しました。

　今後ももっと多くの修理・レストアをやりたいです。
　シリーズ毎にコンプリートしているフィギュアは、今後画像を掲載して紹介する予定です。（メンバーが増えてきており見ごたえのあるものになっているので、是非ともやりたいです。）
　　
オカダ・システムエンジニアリング研究所

	新型コロナウイルス騒動による緊急事態宣言で都道府県境を跨ぐ行動が制限されている中、４月２５日、２６日にかけ急遽佐渡の所有地への管理作業に行きました。 　私は今連休が取れない忙しさの中にいます。この機会を逃すと緊急事態宣言下の移動制限が更に強化される恐れもあり、妙高市から佐渡市への移動が合法的なうちに決行しました。 　画像は７：５５のトキ鉄・北新井駅です。ここから上越妙高駅に向かいます。
	北新井駅での乗車人数は私１人でした。２両編成の電車も乗客は合計４人でした。着いた上越妙高駅でも利用客の数は極めて少なく、８：４０発の直江津港行き直行バスの乗り場から見た駅前は、この通り無人でした。
	直江津港行きの佐渡汽船ターミナル直行便はノーバディーエルス状態で発車しました。 　普段は直江津～小木航路が一日２往復ですが、コロナ騒動のため１往復に減便されているのを受け、バスもこの便の１往復となっています。
	直江津港９：３０発の小木ゆき高速カーフェリー「あかね」ですが、１０人程度の乗客しかいませんでした。私が着座した前方の２等客席付近には乗客の姿はありません。
	佐渡に近づくと船頭から美しい景色が楽しめる一等席（ときクラス）には乗客はいませんでした。
	航送車輌も、一般利用車は３台。
	今回の佐渡渡航では、帰りに両津港を利用して新潟から帰宅しますので、小木港とはこれでお別れです。直江津に帰る「あかね」の航送車は２台が確認されただけでした。
	小木からはバスに乗り、１２：３０頃河原田本町に到着しました。間も無く佐和田の所有地に着きましたが、何度も来ているので「ああ、帰ってきたなぁ」という印象です。 　すぐに草むしり、草刈作業を始めましたが、３時頃から非常に強い西風になり、砂埃が舞うようになったことから作業を中止しました。
	この日の宿泊は、予約してあった「かね長旅館」にまたお世話になりました。 　部屋でテレビを観ると、佐渡に強風・波浪注意報が発令されているではありませんか。 　何年前か、佐渡に来た時、強風のためあかねが欠航になり、急いで両津港から新潟へ帰ったことがあります。このため、翌日は土地管理作業の残りをほどほどに済ませ、両津港へ急行することにしました。
	この日の昼、波の高さが平穏になったことから１４：３０発のジェットフォイルすいせいは定刻に出発できました。
	新型コロナに対する乗客への通告です。数年経ってみれば、いい思い出になることでしょう。
	トキのぬいぐるみもマスク着用を呼び掛けています。
	両津港の利用客でいつも賑やかなシータウンですが、私を含め２名の利用者がいただけです。お土産類は数多くありましたが、この閑散度では売れ残りが大量に発生することでしょう。観光客の減少が、こうして他の産業にも影響を与えていくのです。
	ジェットフォイルすいせいの乗客。私を含め６名。この非常事態の中では、これでも多いと言えるのではないでしょうか。
	ジェットフォイルの乗船はこれが初めでです。せっかくの機会ですから、できるだけ旅を楽しんでおこうと考えました。
	指定席は２階でしたが、私を含め２名が乗船しただけ。この状態ならば伝染、感染リスクはかなり低減されることでしょう。
	新潟港に停泊していたジェットフォイルぎんが。
	新潟港からはバスで２１０円、乗客は私一人。新潟駅もこの通りの乗客の少なさ。
	入線した快速新井行き。これで北新井まで乗り換え無しで帰ります。 　今では「懐かしの」という接頭辞を付けて呼ぶにふさわしい１１５系。新潟県では珍しい配色です。モーターが無く静かな先頭車のクハに乗車しました。 　先頭車内の乗客は最大で６人。他の乗客とは常に２ｍの離隔を確保しました。 　今回、数々の交通機関を利用しましたが、意識的に他の乗客と２ｍ以上の離隔を取っていたと思います。佐渡の住民もマスク着用の人が多く、蔓延防止への意識の高さを感じました。
	せっかく佐渡に行ったのですから、そこでしか買えないモノを買ってきました。 　いつも買って帰る高級食パン「ナポレオン」です！今回２個を買いました。 　５年前？初めて食べた時は、チーズがふんだんに使用されていてもっと美味しかったです。味が落ちた今でも充分に美味しいですが、パリッと焼いて粉チーズをかけると、リッチな風味とコクが楽しめます。

---

	本日、USB接続のLEDライトの廃棄品を見つけて持ち帰りました。 たとえ不動品でも、フレキケーブルがしっかりしていて外観も良いので修理が可能だと思ったのです。 　通電してみると、白色LEDが異様に暗いことが確認されました。
	分解は簡単に終わり、レンズを外すだけでLEDが抽出できました。 LEDを単体で試験したところ、どの様にしても明るくならず、新品に交換することにしました。 　抵抗は３９Ωが使用されていましたが、I=0.02A、降下電圧 E=5.0(USB電源電圧)-3.0(白色LEDの電圧降下)=2.0V、消費電力P=0.04W=1/25WでR=100Ω、1/6Wと設計し、所有していた150Ω 1/4Wを使用しました。
	作業は夕食を食べる間に終わり、充分な明るさを発揮することができました。 当初設計の39Ωでは、LEDに４V近い電圧が掛かることになり、発熱して短時間で破損してしまうと考えられます。疑問を感じる設計です。
オカダ・システムエンジニアリング研究所

---