require("lTpX")

pic = TpXpic:Create(
  {PicScale=1, Border=2, TeXFormat="eps", PdfTeXFormat="pdf",
  BitmapRes=11811, PicMagnif=1, IncludePath="",
  LineWidth=0.25, ArrowsSize=0.7, StarsSize=1, MiterLimit=1,
  HatchingStep=1, HatchingLineWidth=0.5, DottedSize=0.5, DashSize=1})
pic:setCaption("A sample TpXpy picture", "fig:TpXpy")
pic:setComment("Comment")
pic:addPolyline({{10,0}, {30,-20}, {15,-30}},
  {fill="mintcream", lw=1.5})
pic:addPolygon({{0,-20}, {10,0}, {15,-30}},
  {fill="floralwhite", lw=1.5})
pic:addLine(0,-20,30,-20, {li="dash"})
pic:addCurve({{0,-10}, {5,-15}, {25,-10}, {15,-5}, {10,-5}},
  {closed=1, lw=0.5, ha=4, hc = "silver"})
pic:addPolygon({{5.56,-8.9}, {12.45,-14.7}, {18.3,-8.3}},
  {li="dot"})
pic:addLine(5.56,-8.9,10,0, {lw=1.5})
pic:addLine(12.45,-14.7,10,0, {lw=1.5})
pic:addLine(18.3,-8.3,10,0, {lw=1.5})
pic:addSector(15, -30, 5.5, 0.6, 1.75, {lw=0.5})
pic:addSector(15, -30, 6.5, 0.6, 1.75, {lw=0.5})
pic:addSector(15, -30, 6, 1.75, 2.55, {lw=0.5})
pic:addCircle(0,-20,0.4, {li="none", fill="navy"})
pic:addCircle(10,0,0.4, {li="none", fill="navy"})
pic:addCircle(15,-30,0.4, {li="none", fill="navy"})
pic:addCircle(30,-20,0.4, {li="none", fill="navy"})
pic:addBitmap(45,-35,65,70, "bg.jpg", {keepaspectratio=0})
pic:addLine(47,0,100,0)
for i = 0, 4 do
  pic:addLine(i*10 + 50,-0.7,i*10 + 50,0.7)
--  pic:addText(i*10 + 50, -1, 3,
  pic:addText(i*10 + 52, -3, 3,
    string.format("%g", i*10), string.format("\\texttt{%g}", i*10),
    {halign="r", rotdeg=45})
end
pic:addLine(100,33,100,-33)
for i = 0, 6 do
  pic:addLine(100-0.7,i*10-30,100+0.7,i*10-30)
  pic:addText(100+6,i*10-30-1, 3,
    string.format("%g", i*10-30),
    string.format("\\texttt{%g}", i*10-30),
    {halign="r"})
end

pp = {}
for i = 0, 49 do
  x = i + 50
  y = 30 * math.sin(x/5.0)
  table.insert(pp, {x, y})
end
pic:addCurve(pp, {li="dot", lw=2})
for i = 0, 49 do
  x = i + 50
  y = 30 * math.sin(x/5.0)
  pic:addStar(x, y + math.sin(i*i*4)*5,
    {s="penta", d=0.8, fill="lightgrey", lw=0.4})
end
d = {0}
dlen = 1
for ll = 1, 8 do
  for i = 1, dlen do table.insert(d, (d[dlen-i+1]+1)%4) end
  dlen = 2*dlen
end
dd0 = {{1,0},{0,1},{-1,0},{0,-1}}
cc = {"blue","goldenrod","green","red"}
step = 2.5
function PP(p)
  local x = p[1]+5
  local y = p[2]+15
  local r = math.sqrt(x*x+y*y)
  local c = 1 - math.cos(r/5)*0.05
  x = x*c
  y = y*c
  x,y = x+0.2*y,y-0.2*x
  return {x/1.5+23, y/1.5+25}
end
for j = 0, 3 do
  pp = {}
  x,y = 0,0
  y = 0
  ddpre = {0, 0}
  p = {0, 0}
  table.insert(pp, PP(p))
  for i = 1, dlen do
    dd = dd0[(d[i]+j)%4+1]
    p = {x-ddpre[1]*step*0.1, y-ddpre[2]*step*0.1}
    table.insert(pp, PP(p))
    p = {x+dd[1]*step*0.1, y+dd[2]*step*0.1}
    table.insert(pp, PP(p))
    p = {x+dd[1]*step*0.5, y+dd[2]*step*0.5}
    table.insert(pp, PP(p))
    x,y = x+dd[1]*step,y+dd[2]*step
    ddpre = dd
  end
  p = {x, y}
  table.insert(pp, PP(p))
  table.insert(pp, PP(p))
  table.insert(pp, PP(p))
  pic:addBezier(pp, {lc=cc[j+1]})
end
pic:addRect(28, -6, 57, 57, {rotdeg=45})
d=2.8
for i = 0, 11 do
  for j = 0, 11 do
    c = HTML_color(
      255*(0.5+0.5*math.sin(i/3.+math.sin(j/3.)*2)),
      255*(0.5+0.5*math.cos(j/3.-i*i/30.)), 0)
    pic:addEllipse(i*d+70,j*d+43,d*0.7,d*0.9,
      {rotdeg=45, fill=c, li="none"})
  end
end
pic:addCurve({{25,75}, {0,65}, {-13,38}},
  {arr1 = "oc", arr2 = "h43", arrs = 0.8, lw=0.5})
pic:addSymbol(52,70,25,"cloud1",
  {lw=0.5, fill="whitesmoke", rotdeg=188})
pic:addText(52,68.5,5,"Fig. 1","", {halign="c"})
fname = "sample_lTpX.TpX"
pic:write(fname)
os.execute(fname)