home *** CD-ROM | disk | FTP | other *** search
/ Fun CD 68 / OTACD68.img / archive / etc / Linar160 / Linar160.LZH / com.dps < prev    next >
Text File  |  2000-07-17  |  5KB  |  121 lines
  1. ;--------------------------------------------------------------------------
  2. ; Linar Print Define
  3. ;
  4. ; contact sheet  A4縦　用
  5. ;
  6. ;
  7. ; T.O.Software Development Works. (C) 2000.
  8. ; 行先頭文字が;の行はコメント行
  9. ;--------------------------------------------------------------------------
  10.  
  11. ; 余白
  12. Let, OFFSX, 20
  13. Let, OFFSY, 30
  14.  
  15. ; ヘッダ
  16. String,OFFSX,18,,,"アルバム",000000,ＭＳ Ｐゴシック,10,0
  17. LineTo,OFFSX,22,PAGEMAX_X-OFFSX,22,0,0
  18. LineTo,OFFSX,22.5,PAGEMAX_X-OFFSX,22.5,0,0
  19.  
  20. ; フッタ
  21. LineTo,OFFSX,PAGEMAX_Y-20,PAGEMAX_X-OFFSX,PAGEMAX_Y-20,0,0
  22. LineTo,OFFSX,PAGEMAX_Y-20+0.5,PAGEMAX_X-OFFSX,PAGEMAX_Y-20+0.5,0,0
  23. String,OFFSX,PAGEMAX_Y-20+1,PAGEMAX_X-OFFSX,PAGEMAX_Y-20+5,"$(TodayDate) $(TodayTime)",000000,ＭＳ Ｐゴシック,10,8
  24.  
  25. ;BoxTo,0,0,PAGEMAX_X,PAGEMAX_Y,000000,0
  26.  
  27. ; アイテム間隔
  28. Let, ITEMX, PAGEMAX_X-OFFSX*2
  29. Let, ITEMY, (PAGEMAX_Y-OFFSY*2)/3
  30.  
  31. ; 画像サイズ
  32. Let, PICWX, (ITEMX-5*2-10)/2
  33. Let, PICWY, (ITEMY-3*2-5)/3*2
  34. Let, PICX, 5
  35. Let, PICY, 3
  36.  
  37. ; 情報サイズ
  38. Let, INFWX, (ITEMX-5*2-10)/2
  39. Let, INFWY, (ITEMY-3*2-5)/3*2
  40. Let, INFY0, 3
  41. Let, INFX1, 5+PICWX+10
  42. Let, INFY1, 3+(INFWY/6)
  43. Let, INFX2, 5+PICWX+10
  44. Let, INFY2, 3+(INFWY/6)*2
  45. Let, INFX3, 5+PICWX+10
  46. Let, INFY3, 3+(INFWY/6)*3
  47. Let, INFX4, 5+PICWX+10
  48. Let, INFY4, 3+(INFWY/6)*4
  49. Let, INFX5, 5+PICWX+10
  50. Let, INFY5, 3+(INFWY/6)*5
  51. Let, INFX6, 5+PICWX+10
  52. Let, INFY6, 3+INFWY
  53.  
  54. ; Comment
  55. Let, COMWX, ITEMX-5*2
  56. Let, COMWY, (ITEMY-3*2-5)/3
  57. Let, COMX, 5
  58. Let, COMY, 3+PICWY+5
  59.  
  60. ; 原点
  61. Let, ORGX1, OFFSX
  62. Let, ORGY1, OFFSY
  63. Let, ORGX2, OFFSX
  64. Let, ORGY2, OFFSY+ITEMY
  65. Let, ORGX3, OFFSX
  66. Let, ORGY3, OFFSY+ITEMY*2
  67.  
  68. ; １段目
  69. LineTo,ORGX1,ORGY1,ORGX1+ITEMX,ORGY1,0,0
  70. ;BoxTo,ORGX1+PICX,ORGY1+PICY,ORGX1+PICX+PICWX,ORGY1+PICY+PICWY,000000,0
  71. PictureBox,ORGX1+PICX,ORGY1+PICY,ORGX1+PICX+PICWX,ORGY1+PICY+PICWY,15
  72. LineTo,ORGX1+INFX1,ORGY1+INFY1,ORGX1+INFX1+INFWX,ORGY1+INFY1,0,0
  73. LineTo,ORGX1+INFX2,ORGY1+INFY2,ORGX1+INFX2+INFWX,ORGY1+INFY2,0,0
  74. LineTo,ORGX1+INFX3,ORGY1+INFY3,ORGX1+INFX3+INFWX,ORGY1+INFY3,0,0
  75. LineTo,ORGX1+INFX4,ORGY1+INFY4,ORGX1+INFX4+INFWX,ORGY1+INFY4,0,0
  76. LineTo,ORGX1+INFX5,ORGY1+INFY5,ORGX1+INFX5+INFWX,ORGY1+INFY5,0,0
  77. LineTo,ORGX1+INFX6,ORGY1+INFY6,ORGX1+INFX6+INFWX,ORGY1+INFY6,0,0
  78. String,ORGX1+INFX1,ORGY1+INFY0+3,ORGX1+INFX1+INFWX,ORGY1+INFY0+(INFWY/6),"ファイル名：$(PicName)",000000,ＭＳ Ｐゴシック,9,4
  79. String,ORGX1+INFX2,ORGY1+INFY1+3,ORGX1+INFX2+INFWX,ORGY1+INFY1+(INFWY/6),"画素：$(Width)x$(Height) $(Color) bit",000000,ＭＳ Ｐゴシック,9,4
  80. String,ORGX1+INFX3,ORGY1+INFY2+3,ORGX1+INFX3+INFWX,ORGY1+INFY2+(INFWY/6),"$(Date) $(Time) $(Size)",000000,ＭＳ Ｐゴシック,9,4
  81. BoxTo,ORGX1+COMX,ORGY1+COMY,ORGX1+COMX+COMWX,ORGY1+COMY+COMWY,000000,0
  82. String,ORGX1+COMX+2,ORGY1+COMY+2,ORGX1+COMX+COMWX-4,ORGY1+COMY+COMWY-4,"$(Note)",000000,ＭＳ ゴシック,10,12
  83. LineTo,ORGX1,ORGY1+ITEMY,ORGX1+ITEMX,ORGY1+ITEMY,0,0
  84.  
  85. NextPicture
  86. ; 2段目
  87. LineTo,ORGX2,ORGY2,ORGX2+ITEMX,ORGY2,0,0
  88. ;BoxTo,ORGX2+PICX,ORGY2+PICY,ORGX2+PICX+PICWX,ORGY2+PICY+PICWY,000000,0
  89. PictureBox,ORGX2+PICX,ORGY2+PICY,ORGX2+PICX+PICWX,ORGY2+PICY+PICWY,15
  90. LineTo,ORGX2+INFX1,ORGY2+INFY1,ORGX2+INFX1+INFWX,ORGY2+INFY1,0,0
  91. LineTo,ORGX2+INFX2,ORGY2+INFY2,ORGX2+INFX2+INFWX,ORGY2+INFY2,0,0
  92. LineTo,ORGX2+INFX3,ORGY2+INFY3,ORGX2+INFX3+INFWX,ORGY2+INFY3,0,0
  93. LineTo,ORGX2+INFX4,ORGY2+INFY4,ORGX2+INFX4+INFWX,ORGY2+INFY4,0,0
  94. LineTo,ORGX2+INFX5,ORGY2+INFY5,ORGX2+INFX5+INFWX,ORGY2+INFY5,0,0
  95. LineTo,ORGX2+INFX6,ORGY2+INFY6,ORGX2+INFX6+INFWX,ORGY2+INFY6,0,0
  96. String,ORGX2+INFX1,ORGY2+INFY0+3,ORGX2+INFX1+INFWX,ORGY2+INFY0+(INFWY/6),"ファイル名：$(PicName)",000000,ＭＳ Ｐゴシック,9,4
  97. String,ORGX2+INFX2,ORGY2+INFY1+3,ORGX2+INFX2+INFWX,ORGY2+INFY1+(INFWY/6),"画素：$(Width)x$(Height) $(Color) bit",000000,ＭＳ Ｐゴシック,9,4
  98. String,ORGX2+INFX3,ORGY2+INFY2+3,ORGX2+INFX3+INFWX,ORGY2+INFY2+(INFWY/6),"$(Date) $(Time) $(Size)",000000,ＭＳ Ｐゴシック,9,4
  99. BoxTo,ORGX2+COMX,ORGY2+COMY,ORGX2+COMX+COMWX,ORGY2+COMY+COMWY,000000,0
  100. String,ORGX2+COMX+2,ORGY2+COMY+2,ORGX2+COMX+COMWX-4,ORGY2+COMY+COMWY-4,"$(Note)",000000,ＭＳ ゴシック,10,4
  101. LineTo,ORGX2,ORGY2+ITEMY,ORGX2+ITEMX,ORGY2+ITEMY,0,0
  102.  
  103. NextPicture
  104. ; 3段目
  105. LineTo,ORGX3,ORGY3,ORGX3+ITEMX,ORGY3,0,0
  106. ;BoxTo,ORGX3+PICX,ORGY3+PICY,ORGX3+PICX+PICWX,ORGY3+PICY+PICWY,000000,0
  107. PictureBox,ORGX3+PICX,ORGY3+PICY,ORGX3+PICX+PICWX,ORGY3+PICY+PICWY,15
  108. LineTo,ORGX3+INFX1,ORGY3+INFY1,ORGX3+INFX1+INFWX,ORGY3+INFY1,0,0
  109. LineTo,ORGX3+INFX2,ORGY3+INFY2,ORGX3+INFX2+INFWX,ORGY3+INFY2,0,0
  110. LineTo,ORGX3+INFX3,ORGY3+INFY3,ORGX3+INFX3+INFWX,ORGY3+INFY3,0,0
  111. LineTo,ORGX3+INFX4,ORGY3+INFY4,ORGX3+INFX4+INFWX,ORGY3+INFY4,0,0
  112. LineTo,ORGX3+INFX5,ORGY3+INFY5,ORGX3+INFX5+INFWX,ORGY3+INFY5,0,0
  113. LineTo,ORGX3+INFX6,ORGY3+INFY6,ORGX3+INFX6+INFWX,ORGY3+INFY6,0,0
  114. String,ORGX3+INFX1,ORGY3+INFY0+3,ORGX3+INFX1+INFWX,ORGY3+INFY0+(INFWY/6),"ファイル名：$(PicName)",000000,ＭＳ Ｐゴシック,9,4
  115. String,ORGX3+INFX2,ORGY3+INFY1+3,ORGX3+INFX2+INFWX,ORGY3+INFY1+(INFWY/6),"画素：$(Width)x$(Height) $(Color) bit",000000,ＭＳ Ｐゴシック,9,4
  116. String,ORGX3+INFX3,ORGY3+INFY2+3,ORGX3+INFX3+INFWX,ORGY3+INFY2+(INFWY/6),"$(Date) $(Time) $(Size)",000000,ＭＳ Ｐゴシック,9,4
  117. BoxTo,ORGX3+COMX,ORGY3+COMY,ORGX3+COMX+COMWX,ORGY3+COMY+COMWY,000000,0
  118. String,ORGX3+COMX+2,ORGY3+COMY+2,ORGX3+COMX+COMWX-4,ORGY3+COMY+COMWY-4,"$(Note)",000000,ＭＳ ゴシック,10,8
  119. LineTo,ORGX3,ORGY3+ITEMY,ORGX3+ITEMX,ORGY3+ITEMY,0,0
  120.  
  121.