Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  858 1673 (N33E23 L=137)   284     29        1 ( 834/1657- 884/1693) -14.0 E24-E20 N31-N34
      2 1647 1367 (N25W37 L=197)   766     95        3 (1595/1330-1685/1402) -15.9 W33-W40 N23-N27
      3  903 1288 (N08E11 L=149)   244     92        0 ( 866/1260- 941/1325) -31.0 E13-E08 N06-N09
      4 1715 1220 (N17W43 L=203)   725     86        2 (1674/1187-1757/1256)  -7.1 W39-W47 N15-N18
      5 1098 1134 (N01W03 L=162)   491    221        0 (1027/1091-1164/1173)   0.0 E01-W07 S02-N03
      6 1535 1090 (N06W30 L=190)   304    109        0 (1508/1051-1569/1141) -39.8 W27-W33 N03-N08
      7 1137 1012 (S05W07 L=166)   339    177        0 (1053/ 983-1216/1033)   0.0 W01-W11 S06-S04
      8 1207  905 (S10W13 L=172)   304    146        0 (1174/ 841-1253/ 959)  69.4 W11-W14 S14-S06
      9  216  884 (S23E59 L=101)   621     69        2 ( 190/ 850- 244/ 919) -53.1 E61-E55 S24-S20
     10  163  868 (S24E67 L= 93)   507     84        1 ( 143/ 834- 182/ 908) -45.0 E70-E64 S26-S21
     11 1846  749 (S07W65 L=225)   547     41        2 (1821/ 723-1865/ 774)  71.6 W62-W68 S08-S05
     12 1234  685 (S23W19 L=178)   325     86        1 (1186/ 672-1275/ 703)   0.0 W15-W21 S23-S21
     13 1746  614 (S17W61 L=220)   746    114        0 (1689/ 588-1804/ 637)  20.0 W55-W67 S19-S15
  

    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