Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1095 1832 (N64W14 L=347)   406     48        0 (1074/1810-1122/1849)  29.7 W10-W18 N61-N66
      2  977 1830 (N64E03 L=331)   616     99        1 ( 925/1804-1021/1848)  -4.4 E10-W03 N61-N66
      3 1730 1412 (N25W59 L= 32)  1023    204        0 (1687/1321-1763/1502)  76.0 W56-W62 N19-N31
      4  578 1370 (N26E31 L=302)   975    320        1 ( 520/1276- 644/1464) -67.4 E35-E25 N20-N32
      5 1538 1448 (N29W40 L= 14)   510    152        2 (1455/1424-1607/1462)  -4.4 W33-W46 N27-N30
      6  276 1373 (N26E62 L=272)   828    115        2 ( 248/1316- 306/1422)  82.9 E64-E58 N21-N29
      7 1796 1169 (N09W58 L= 31)  1120    131        1 (1766/1106-1818/1228)  63.4 W54-W60 N05-N13
      8  715 1110 (N10E19 L=314)   266     92        1 ( 699/1070- 738/1157)  78.7 E20-E17 N07-N12
      9 1748  856 (S09W51 L= 25)   527     31        1 (1724/ 831-1772/ 883)  76.0 W48-W54 S11-S07
     10  335  814 (S09E49 L=284)   558    105        1 ( 318/ 763- 355/ 867)  60.3 E51-E47 S12-S05
     11  267  834 (S08E56 L=277)   507     82        1 ( 233/ 815- 312/ 864) -14.0 E59-E51 S09-S06
     12 1805  762 (S16W60 L= 33)  1819    230        4 (1699/ 703-1890/ 818)   9.5 W48-W72 S19-S13
     13 1218  497 (S31W13 L=346)   887    172        5 (1170/ 436-1267/ 589)  79.7 W09-W15 S35-S24
  

    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