Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1440 1685 (N33W49 L= 76)  2152    353        5 (1289/1620-1591/1738) -39.5 W37-W58 N25-N39
      2  544 1694 (N57E28 L=359)   478     52        1 ( 524/1670- 565/1721)  90.0 E31-E24 N54-N60
      3  488 1657 (N55E35 L=352)  1175    138        3 ( 457/1603- 522/1711) -73.3 E41-E29 N50-N60
      4  785 1558 (N39E05 L= 23)  1107    241        2 ( 703/1493- 898/1599) -42.5 E10-W02 N32-N44
      5  887 1347 (N23E02 L= 25)   461     79        2 ( 859/1314- 927/1391)  78.7 E03-W00 N21-N26
      6  290 1205 (N26E48 L=339)  1437    289        5 ( 242/1102- 344/1335) -69.4 E55-E42 N19-N35
      7 1009 1238 (N15W03 L= 30)   448    141        0 ( 942/1210-1069/1285) -49.4 W00-W06 N11-N18
      8  415 1139 (N20E37 L=350)   775    142        2 ( 387/1075- 460/1196)  66.8 E39-E33 N16-N23
      9 1813 1075 (S11W55 L= 82)  1155    192        1 (1788/ 974-1840/1155)  51.3 W50-W59 S16-S06
     10  164 1015 (N17E64 L=324)  1523    229        2 (  96/ 955- 249/1108) -24.6 E77-E53 N12-N23
     11  334 1031 (N15E45 L=342)  1405    223        4 ( 265/ 959- 392/1084) -45.0 E51-E40 N09-N18
     12 1647  855 (S20W37 L= 64)   367    124        0 (1601/ 814-1695/ 887) -40.6 W33-W40 S23-S17
     13  302  762 (S00E53 L=334)   335     54        0 ( 277/ 742- 330/ 786) -26.6 E55-E51 S01-N01
     14 1145  564 (S28E02 L= 25)   389    114        1 (1097/ 523-1185/ 608)  18.4 E06-W00 S29-S24
     15  395  506 (S17E56 L=331)  1521    250        5 ( 338/ 452- 475/ 599) -61.4 E62-E51 S21-S10
  

    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