Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1178 1786 (N56W01 L= 93)  1384    283        4 (1050/1756-1315/1819)   0.0 E14-W16 N54-N58
      2  497 1601 (N30E50 L= 42)  2173    348        3 ( 412/1519- 589/1666)  33.7 E58-E40 N24-N35
      3 1238 1569 (N38W08 L=101)   858    229        1 (1130/1549-1335/1603)   3.6 W00-W16 N36-N40
      4  292 1511 (N21E68 L= 25)  1354    111        4 ( 259/1457- 320/1560)  90.0 E72-E64 N17-N24
      5  401 1455 (N19E51 L= 41)   405     80        0 ( 384/1415- 425/1492) -68.2 E53-E48 N16-N21
      6 1759 1345 (N29W53 L=146)  3530    363        5 (1581/1273-1913/1412)  -5.1 W35-W81 N25-N31
      7  274 1325 (N10E59 L= 34)   388     83        0 ( 261/1281- 290/1365)  90.0 E60-E57 N06-N12
      8  203 1215 (N02E64 L= 29)  1156    177        1 ( 155/1133- 229/1264) -31.0 E72-E58 S02-N05
      9 1368 1089 (N08W20 L=113)   410    177        1 (1317/1040-1426/1117)  45.0 W17-W24 N05-N10
     10  509 1000 (S07E32 L= 60)   809    258        1 ( 449/ 893- 570/1111)  65.2 E36-E29 S13-N00
     11 1121 1006 (N01W06 L= 99)   629    152        2 (1079/ 954-1152/1077)  74.1 W03-W08 S02-N05
     12  821 1020 (S02E12 L= 80)   285    112        0 ( 801/ 966- 835/1071) -80.5 E13-E11 S05-N01
     13 1364  653 (S18W27 L=119)   473    220        0 (1280/ 624-1428/ 712)  29.1 W20-W30 S20-S13
     14 1438  553 (S23W35 L=128)   717    191        0 (1353/ 512-1510/ 606)  45.0 W29-W39 S27-S19
     15 1158  379 (S40W20 L=113)   641     83        0 (1104/ 360-1199/ 405)  15.9 W16-W23 S41-S37
  

    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