Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  848 1815 (N61W21 L=215)   424     80        0 ( 826/1790- 869/1842)  18.4 W17-W26 N59-N63
      2 1698 1617 (N17W68 L=262)   797     69        0 (1671/1596-1729/1641) -53.1 W65-W71 N15-N19
      3 1177 1437 (N24W21 L=215)  2986    645        6 ( 853/1393-1466/1472) -22.8 W01-W39 N16-N32
      4  650 1285 (N29E16 L=178)   389     71        1 ( 623/1245- 676/1318) -11.1 E17-E14 N26-N31
      5 1798 1209 (S07W56 L=249)   465    124        4 (1774/1179-1843/1232)  -7.1 W52-W60 S08-S05
      6 1826 1140 (S11W56 L=250)   554    117        0 (1784/1121-1866/1158) -20.6 W52-W60 S13-S09
      7 1839  998 (S20W53 L=247)   366     64        1 (1822/ 977-1854/1020) -56.3 W51-W54 S21-S18
      8 1453  642 (S29W16 L=210)  1835    456        0 (1297/ 483-1516/ 858)  39.0 W01-W24 S36-S17
      9  380  775 (N06E47 L=147)   793    138        1 ( 325/ 744- 437/ 814) -18.4 E52-E42 N03-N08
     10 1284  633 (S24W05 L=198)   467    152        0 (1227/ 558-1347/ 702)  26.6 W00-W10 S27-S21
     11  697  492 (S17E35 L=159)   249     56        1 ( 675/ 468- 717/ 528)  63.4 E36-E33 S19-S15
     12  928  371 (S31E26 L=168)   790    276        2 ( 869/ 286- 989/ 472)  33.7 E34-E18 S36-S25
     13  605  309 (S27E51 L=142)  1190    288        3 ( 576/ 245- 636/ 397)  37.6 E58-E45 S31-S21
     14  715  226 (S36E50 L=144)  1838    407        0 ( 621/ 179- 800/ 272)   5.2 E62-E40 S38-S33
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y