Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  743 1656 (N23E38 L= 19)   742    165        1 ( 671/1625- 821/1683)  16.7 E43-E32 N21-N25
      2 1414 1577 (N39W08 L= 65)   769    150        3 (1365/1520-1467/1633) -40.6 W03-W12 N36-N42
      3 1602 1370 (N32W27 L= 84)   379    118        1 (1565/1316-1630/1416) -33.7 W23-W29 N29-N33
      4  319 1152 (S16E49 L=  8)   381    101        2 ( 297/1108- 346/1194)  68.2 E51-E46 S18-S13
      5  458 1084 (S17E36 L= 21)   677    233        0 ( 371/1024- 536/1165)  53.1 E42-E32 S22-S10
      6 1785 1011 (N17W49 L=106)   542    108        1 (1766/ 958-1807/1054) -51.3 W46-W52 N14-N19
      7 1675 1018 (N13W39 L= 96)   329    111        1 (1625/ 983-1716/1052)   6.3 W34-W43 N11-N13
      8  284  930 (S30E49 L=  7)   319     97        0 ( 247/ 898- 312/ 969)  45.0 E53-E46 S32-S26
      9  150  849 (S38E70 L=346)   606     72        1 ( 121/ 818- 178/ 874)  15.9 E80-E64 S39-S35
     10 1546  678 (S09W42 L= 98)   261     47        0 (1529/ 648-1565/ 697)  76.0 W40-W43 S11-S07
     11 1518  558 (S16W46 L=102)   395    103        1 (1480/ 520-1561/ 587)  71.6 W44-W47 S19-S13
     12 1405  353 (S31W52 L=109)   403     65        1 (1382/ 333-1432/ 381)   0.0 W48-W56 S31-S29
     13 1398  240 (S37W65 L=122)   465     97        2 (1358/ 217-1443/ 268)  90.0 W62-W69 S39-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