Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1015 1564 (N36W16 L=134)   224     27        0 ( 992/1548-1041/1579)   0.0 W13-W17 N34-N36
      2 1723 1466 (N09W60 L=178)   748    126        2 (1673/1411-1759/1528) -77.5 W58-W62 N05-N14
      3 1419 1249 (N06W28 L=147)   280     77        0 (1398/1211-1449/1282)  21.8 W26-W31 N04-N07
      4 1544 1204 (N01W35 L=153)   469    134        1 (1490/1142-1592/1255) -74.1 W32-W37 S03-N04
      5  667 1189 (N22E17 L=101)   287     67        0 ( 641/1151- 698/1226)  31.0 E19-E14 N20-N23
      6 1662 1078 (S09W40 L=158)   604    133        3 (1611/1057-1719/1105) -32.0 W35-W44 S11-S06
      7  178  945 (N18E61 L= 58)  1434    446        1 (  88/ 867- 267/1000) -30.5 E71-E53 N12-N22
      8 1358  901 (S11W16 L=134)   490    151        1 (1338/ 833-1380/ 979)  77.5 W13-W17 S15-S06
      9 1867  912 (S25W55 L=173)   569    149        1 (1827/ 862-1894/ 966)  20.6 W50-W58 S27-S22
     10 1607  829 (S22W31 L=149)   542    188        1 (1546/ 758-1681/ 876)  14.0 W25-W37 S24-S20
     11 1783  750 (S33W45 L=163)   410     72        0 (1753/ 714-1813/ 786)  31.0 W41-W48 S34-S31
     12 1452  602 (S32W16 L=134)   263     26        1 (1433/ 580-1473/ 624) -90.0 W14-W17 S33-S29
     13 1193  521 (S29E03 L=115)   480    134        2 (1168/ 462-1215/ 577)  45.0 E06-W00 S33-S25
     14  943  450 (S27E21 L= 97)   519    202        1 ( 921/ 365- 959/ 532)  54.0 E25-E17 S32-S21
     15  758  427 (S24E33 L= 85)   358    135        0 ( 744/ 374- 770/ 485)  49.4 E36-E30 S27-S20
  

    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