Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1176 1672 (N36E10 L= 99)   697    133        1 (1145/1604-1223/1725) -78.7 E12-E08 N30-N40
      2 1652 1451 (N37W30 L=140)   328     43        0 (1634/1428-1676/1470)  63.4 W28-W32 N34-N38
      3 1602 1257 (N22W28 L=138)   299     90        1 (1582/1212-1624/1299)  80.5 W27-W29 N19-N25
      4 1213 1222 (N09W05 L=115)   470    126        1 (1168/1190-1287/1252)  50.2 W02-W08 N06-N12
      5  130 1141 (S19E71 L= 39)  1119    101        1 (  77/1122- 184/1158)   2.4 E87-E63 S20-S17
      6 1840 1106 (N22W52 L=162)   653    132        2 (1799/1051-1881/1153) -15.3 W46-W57 N20-N23
      7  769 1032 (S13E14 L= 96)   236     47        0 ( 750/1008- 792/1060) -26.6 E16-E12 S14-S11
      8 1817  981 (N14W52 L=162)   459     53        2 (1786/ 952-1847/1007)  15.9 W48-W55 N12-N15
      9 1030  948 (S11W02 L=112)   205     66        1 (1003/ 917-1054/ 974) -33.7 W00-W04 S12-S09
     10  695  951 (S19E17 L= 93)   308     98        1 ( 642/ 936- 743/ 972)  15.9 E20-E13 S21-S17
     11 1837  917 (N11W56 L=166)   349     35        1 (1816/ 890-1855/ 941) -33.7 W53-W58 N10-N12
     12 1879  846 (N09W64 L=174)   953    124        4 (1842/ 807-1919/ 874)   4.4 W58-W71 N07-N11
     13 1632  479 (S18W59 L=169)   626     75        1 (1602/ 448-1670/ 514)  78.7 W56-W62 S19-S14
     14 1513  305 (S30W65 L=175)   710     57        1 (1479/ 282-1541/ 332)  45.0 W60-W69 S32-S28
  

    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