Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1670 1594 (N21W68 L= 34)  2104    244        6 (1636/1486-1702/1697)  26.6 W56-W81 N15-N26
      2 1511 1609 (N27W53 L= 19)  1325    155        1 (1444/1552-1572/1662) -73.3 W50-W55 N22-N32
      3 1355 1450 (N23W33 L=358)   339     71        1 (1331/1412-1377/1481)  53.1 W31-W35 N20-N24
      4 1212 1438 (N26W23 L=348)   378    101        1 (1164/1396-1249/1470) -51.3 W20-W24 N23-N29
      5 1514 1418 (N17W42 L=  7)   861    236        0 (1416/1346-1591/1467) -57.5 W37-W45 N11-N22
      6  673 1377 (N36E15 L=311)   322     36        0 ( 646/1357- 701/1397)   0.0 E17-E12 N34-N37
      7 1150 1324 (N21W15 L=341)   206     49        2 (1128/1298-1168/1352) -90.0 W13-W16 N19-N23
      8 1604 1076 (S04W37 L=  2)   267     80        0 (1578/1044-1628/1108)  21.8 W34-W39 S05-S03
      9  200 1052 (N24E62 L=263)  1295    136        0 ( 146/1009- 260/1093) -23.2 E71-E54 N20-N26
     10  131  994 (N21E74 L=251)  1135    104        0 ( 106/ 943- 153/1041)  31.0 E81-E69 N17-N23
     11  923  849 (S01E10 L=316)   272     46        1 ( 900/ 820- 943/ 874) -90.0 E10-E08 S02-N01
     12 1718  777 (S26W41 L=  7)  1281    202        4 (1642/ 718-1815/ 842)  -3.0 W33-W52 S27-S23
     13 1539  782 (S20W26 L=352)   737    239        0 (1413/ 749-1604/ 831)  -8.1 W17-W31 S21-S16
     14  849  721 (S06E17 L=308)   422    108        2 ( 823/ 674- 877/ 769)  71.6 E19-E14 S09-S03
     15  874  284 (S37E33 L=292)  3044    495        2 ( 802/ 124- 974/ 511)  29.1 E67-E15 S51-S22
  

    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