Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1029 1820 (N57E17 L= 92)  1169    288        0 ( 906/1793-1163/1852)  -1.8 E33-E01 N54-N58
      2  367 1632 (N30E70 L= 40)  1674    256        2 ( 296/1538- 442/1689)  76.0 E75-E59 N22-N34
      3  813 1594 (N34E24 L= 85)   312     83        0 ( 785/1551- 838/1629) -33.7 E27-E21 N30-N36
      4 1070 1611 (N39E06 L=103)   681    175        0 ( 993/1596-1153/1628)   5.2 E11-W00 N37-N40
      5  383 1482 (N20E55 L= 54)  1220    257        4 ( 352/1380- 422/1607) -65.0 E60-E50 N13-N28
      6  266 1474 (N18E69 L= 40)   562     62        3 ( 244/1447- 285/1495) -18.4 E74-E64 N16-N19
      7 1591 1377 (N30W36 L=145)  2625    429        5 (1381/1309-1768/1453)  -3.4 W19-W54 N26-N32
      8  308 1045 (S07E49 L= 60)  1065    253        2 ( 263/ 927- 355/1145)  77.9 E52-E45 S14-N00
      9 1767 1103 (N14W51 L=160)   487    116        0 (1750/1044-1798/1142) -80.5 W49-W54 N10-N16
     10  567 1053 (S03E29 L= 80)   323    110        0 ( 539/1009- 586/1106)  80.5 E30-E27 S06-N00
     11  833 1036 (S01E12 L= 97)   431    111        1 ( 782/ 991- 872/1077)  51.3 E14-E09 S04-N01
     12 1668  770 (S07W47 L=156)   286    104        0 (1620/ 745-1700/ 801)  38.7 W43-W48 S09-S04
     13 1126  728 (S16W10 L=119)   702    295        0 (1045/ 675-1182/ 788)  32.0 W05-W13 S19-S12
     14 1803  688 (S10W64 L=173)  1017    179        3 (1750/ 617-1856/ 752)  48.4 W60-W69 S15-S05
     15 1668  456 (S27W62 L=171)   601     64        0 (1627/ 443-1703/ 468)   0.0 W56-W68 S27-S25
  

    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