import bpy

# @brief メッシュを構成する三角形を三頂点の組み合わせのリストで取得
# @param [in] obj オブジェクト
def get_triangles(obj):
    ret = []
    mesh = obj.data
    mesh.calc_loop_triangles()
    for tri in mesh.loop_triangles:
        ret.append([tri.vertices[0],tri.vertices[1],tri.vertices[2] ])
        
    # [index0,index1,index2]のリスト
    return ret

# @brief 与えられたオブジェクトの重心を求める
# @param [in] obj オブジェクト
# @param [in] vid0 obj.data.verticesのindex
# @param [in] vid1 obj.data.verticesのindex
# @param [in] vid2 obj.data.verticesのindex
# @return 三次元座標 <Vector ( x , y , z )>
def calc_triangle_center(obj,vid0,vid1,vid2):
    mesh = obj.data
    
    tri_center = (mesh.vertices[vid0].co) +\
                 (mesh.vertices[vid1].co) +\
                 (mesh.vertices[vid2].co)
    tri_center /= 3.0
    
    return tri_center

# @brief オブジェクトの全ての三角形の重心にsphereを配置する
# @param [in] オブジェクト
def disp_triangle_centers(obj):
    
    # 三角形をindex listで取得
    PIDs = get_triangles(obj)
    
    for pid in PIDs:
        # 三角形の重心を算出
        c = calc_triangle_center(obj, pid[0],pid[1],pid[2])
        
        # 座標 c にsphereを配置
        bpy.ops.mesh.primitive_uv_sphere_add(
            radius=0.05,
            segments=8,
            ring_count=8,
            enter_editmode=False, 
            location=c
            )
        

# 使用例
myobj = bpy.context.active_object
disp_triangle_centers(myobj)

; 画像をPNG保存する自作関数。この関数を呼び出したい
; Image 画像番号
; Drawable レイヤー番号
; outpath 保存先（ファイル名を含まない）
; filename ファイル名（.pngを含まない）
(define (my-save-to-png Image Drawable outpath filename)
  ; 保存処理
  (file-png-save-defaults
    RUN-NONINTERACTIVE
    Image
    Drawable
    (string-append outpath filename ".png")
    (string-append filename ".png") 
  )
)

; GUIダイアログの項目を設定
;; 参考 http://sampodo.la.coocan.jp/graphics/gimp2/gimp2_1.html
(script-fu-register

  ;
  ; 呼び出す関数
  ; メニュー上の情報
  ; ダイアログの項目設定
  ;

  "my-save-to-png"                ;呼び出す関数
  
  "PNGで保存"                     ;メニューに表示する項目
  "テスト用スクリプト\
   の説明文"                      ;説明文章
  "空鳥夜鳥"                      ;制作者
  "copyright 2021, szl"           ;著作編表示
  "2021/11/08"                    ;制作日時
  "*"                             ;スクリプト関数が扱う画像のタイプ
  
  ; 以降、引数を指定するGUIパーツの作成、個数は任意。
  ;
  ; 呼び出す関数が my-save-to-png であるので、
  ; my-save-to-png の引数の順番と同じでなければいけない
  ; 
  ; 指定方法 : 
  ; GUIアイテムの種類   "表示用ラベル"   デフォルト値
  
  SF-IMAGE         "Image"        0
  SF-DRAWABLE      "Drawable"     0

  
  SF-STRING       "パス\\"      "C:\\test\\"   ; テキストボックスになる
  SF-STRING       "ファイル名"     "default-name"
)

; メニューに登録する
(script-fu-menu-register

  ; 呼び出す関数名
  "my-save-to-png"
  
  ; メニューのどの位置に項目を挿入するか
  "<Image>/File/オリジナル項目"
)

;; レイヤー一覧取得
;; image (car (gimp-image-list)) で取得
(define (get-layer-list image)
  (vector->list 
    (car 
      (cdr 
        (gimp-image-get-layers image)
      )
    )
  )
)

;; outpath 出力先のディレクトリ
;; filename ファイル名 拡張子なし
;; image 画像番号
;; drawablelayer レイヤー番号
(define (save-to-image outpath filename image drawablelayer)
  (begin
    ; 保存情報を表示
    (display "saving:")
    (display (string-append outpath filename ".png") )
    (newline)
  
    ; 保存処理
    (file-png-save-defaults
      RUN-NONINTERACTIVE
      image
      drawablelayer
      (string-append outpath filename ".png")
      (string-append filename ".png") 
    )
  )
)

;; outpath 出力先のパス
;; image 画像番号
;; layerlist 残りのレイヤー一覧 
(define (save-more-layers outpath image layerlist)

  ; 画像一覧が空リストでないなら保存
  (if (not (null? layerlist) )
    (begin
          
      ; リストの先頭要素をPNGで保存
      (save-to-image 
        outpath                                     ; 出力先パス
        (car (gimp-layer-get-name (car layerlist))) ; ファイル名としてレイヤー名を取得
        image                                       ; 画像番号
        (car layerlist) )                           ; レイヤー番号リストの一番左

      ; 残りのリストを保存（再帰）
      (save-more-layers
         outpath           ; 出力先パス
         image             ; 画像番号
         (cdr layerlist) ) ; 残りのリスト
      ;
    )
  )
)

;; レイヤーをPNGファイルに保存する関数
;; outpath ファイルパス 例 C:\\test\\
;; image 画像番号 (car (gimp-image-list))で取得可
(define (save-laysers outpath image)
  (save-more-layers 
     outpath 
     image
     (get-layer-list image) ) )
    

;----------------------------------
;----------------------------------
; フォルダから画像を読み込む

; ファイルパスからファイル名を取得する
(define (my-extract-file-name text)
  (car (reverse (strbreakup text "\\") ) )
)


; 画像を読み込んだ後、タブを表示する
(define (my-tab-update image)
  (begin
    (gimp-display-new image)
    (gimp-displays-flush)
    image
  )
)

; リストで与えられた画像ファイルを全て読み込む
(define (my-open-all-images flist)
  (if (null? flist)
    '()
    (cons
      (my-tab-update (car (gimp-file-load 0 (car flist) (my-extract-file-name (car flist) ) ) ) )
      (my-open-all-images (cdr flist) )
    )
  )
)

; パスで指定したディレクトリから画像を読み込む。
; パスの最後は\\*で終わっている必要がある 
; 例 (my-open-images "C:\\dev\\*")
(define (my-open-images pathnamelist)
  ( my-open-all-images (car (cdr (file-glob pathnamelist 0))) )
)

;----------------------------------
;----------------------------------
; 画像をxcf形式で保存する

; 画像を一枚xcf形式で保存する。
; ファイル名は元の名前+xcf
(define (my-save-as-xcf-single image outdir basename)
  (gimp-xcf-save
    0
    image
    (car (gimp-image-get-active-drawable image) )
    (string-append outdir basename ".xcf")
    (string-append basename ".xcf")
  )
)

; outdirへ画像群を保存。outdirは"\\"で終わっている必要がある
(define (my-save-images outdir images)
  (if (null? images)
    '()
    (begin
      (my-save-as-xcf-single
        (car images)
        outdir
        (my-extract-file-name (car (gimp-image-get-filename (car images) ) ) ) ;画像番号からファイルパスを取得しファイル名を切り出す
      )
      (my-save-images outdir (cdr images) )
    )
  )
)