Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  978 1544 (N29E03 L=  4)   744    199        0 ( 894/1477-1060/1606) -39.3 E09-W02 N24-N33
      2  251 1333 (N17E56 L=311)   678     74        1 ( 232/1293- 268/1376) -78.7 E57-E53 N14-N19
      3 1666 1343 (N17W44 L= 50)   411     91        1 (1623/1324-1705/1357)  -9.5 W40-W46 N15-N17
      4  151 1206 (N10E66 L=301)   733    159        2 ( 116/1187- 186/1220)   0.0 E71-E61 N08-N10
      5 1763 1148 (N05W50 L= 57)   478     65        2 (1734/1125-1787/1175) -11.3 W47-W52 N03-N06
      6  645 1085 (N01E23 L=343)   264     95        0 ( 588/1053- 688/1107)  -9.5 E26-E20 S01-N01
      7  627  886 (S11E25 L=342)   764    200        1 ( 596/ 781- 659/ 989)  67.4 E27-E22 S17-S05
      8 1855  940 (S07W60 L= 67)   401     44        1 (1842/ 906-1870/ 971)  76.0 W58-W61 S08-S04
      9  346  896 (S10E45 L=321)   268     72        1 ( 316/ 865- 368/ 925) -45.0 E47-E43 S11-S08
     10  206  786 (S16E61 L=306)   883    293        1 ( 177/ 671- 250/ 888)  61.7 E65-E54 S22-S09
     11 1047  855 (S13W01 L=  8)   180     45        0 (1013/ 842-1071/ 872)   0.0 W00-W02 S14-S12
     12 1837  685 (S22W62 L= 69)   640    126        1 (1794/ 643-1871/ 722)  45.0 W58-W65 S25-S19
     13  399  638 (S26E45 L=322)   926    157        1 ( 375/ 582- 429/ 714)  58.0 E48-E42 S29-S21
     14  997  666 (S25E02 L=  5)   264     32        0 ( 972/ 648-1022/ 686) -33.7 E03-W00 S26-S23
  

    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