Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  842 1673 (N33E24 L=137)   285     41        0 ( 820/1654- 867/1689)  71.6 E25-E21 N30-N33
      2 1661 1303 (N21W39 L=199)  1732    293        6 (1583/1185-1741/1406) -42.5 W32-W45 N14-N27
      3  880 1292 (N08E12 L=148)   302     94        1 ( 837/1254- 919/1335) -26.6 E15-E09 N05-N09
      4 1102 1133 (N01W03 L=164)   409    139        0 (1054/1097-1164/1181) -26.6 W00-W06 N00-N03
      5  319 1135 (S07E49 L=112)   332     84        1 ( 302/1096- 342/1180) -59.0 E50-E46 S09-S04
      6 1514 1092 (N05W29 L=190)   268    110        0 (1488/1058-1549/1146) -38.7 W26-W31 N03-N08
      7 1112 1017 (S05W05 L=166)   331    198        0 (1010/ 986-1191/1038)   0.0 W00-W10 S06-S04
      8 1190  918 (S10W11 L=172)   237    122        0 (1157/ 854-1227/ 964)  76.0 W09-W12 S14-S06
      9  202  890 (S23E61 L=100)   703    101        0 ( 175/ 847- 223/ 939) -56.3 E63-E57 S25-S19
     10  153  868 (S24E68 L= 92)   726     84        3 ( 133/ 826- 173/ 912)  51.3 E72-E65 S26-S21
     11 1836  753 (S07W64 L=225)   629     48        2 (1808/ 730-1861/ 780)  36.9 W60-W67 S08-S05
     12 1214  690 (S23W17 L=178)   302     82        0 (1169/ 675-1256/ 707)   0.0 W14-W20 S23-S21
     13 1735  618 (S17W59 L=220)   810    141        0 (1669/ 592-1798/ 640)  22.6 W53-W66 S20-S15
  

    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