Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  700 1527 (N43E17 L=156)   388    106        1 ( 665/1490- 740/1567) -45.0 E20-E13 N39-N46
      2 1629 1421 (N19W49 L=223)  3016    454        5 (1467/1351-1774/1487) -33.7 W37-W61 N12-N26
      3 1171 1275 (N19W13 L=186)   462    133        1 (1095/1246-1230/1295) -12.5 W07-W16 N17-N20
      4 1542 1227 (N10W37 L=210)   353    109        0 (1488/1189-1584/1257) -45.0 W33-W38 N06-N12
      5 1563 1105 (N02W35 L=209)   249     82        1 (1538/1073-1589/1148)  45.0 W33-W38 N00-N04
      6 1894  992 (S12W65 L=239)  2863    438        5 (1831/ 875-1946/1135)  45.0 W56-W75 S17-S03
      7 1818 1084 (S04W57 L=231)   370     85        1 (1801/1038-1831/1129)  78.7 W55-W58 S06-S01
      8  555 1088 (N16E29 L=144)   294     43        1 ( 533/1061- 580/1109) -90.0 E30-E27 N14-N17
      9 1770 1057 (S05W52 L=225)   488    126        1 (1735/1011-1807/1093)  12.5 W47-W56 S06-S02
     10 1786  991 (S09W52 L=226)   410    106        2 (1742/ 969-1821/1007)   0.0 W47-W56 S10-S07
     11 1706  875 (S14W44 L=217)   384     83        0 (1696/ 825-1719/ 918)  80.5 W42-W44 S17-S11
     12 1054  855 (S04E01 L=173)   680    145        4 ( 983/ 820-1140/ 881) -14.0 E04-W04 S05-S02
     13 1107  653 (S18E00 L=173)  1402    392        7 (1006/ 455-1173/ 837)  54.0 E10-W06 S29-S06
     14  353  450 (S23E62 L=111)   753    172        2 ( 328/ 423- 377/ 478)  26.6 E67-E58 S25-S21
  

    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