Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1384 1655 (N35W35 L=180)   304     47        0 (1356/1638-1416/1670)   0.0 W32-W37 N33-N35
      2  321 1478 (N36E49 L= 96)  1984    470        1 ( 213/1442- 422/1516) -18.4 E62-E38 N32-N40
      3  149 1150 (N16E63 L= 82)  1619    260        4 ( 116/1088- 189/1214)  45.0 E68-E58 N12-N20
      4  256 1138 (N14E51 L= 94)   746    114        2 ( 221/1094- 286/1183)  38.7 E55-E48 N11-N17
      5  679 1124 (N09E20 L=125)   507    118        0 ( 624/1076- 731/1175) -49.4 E22-E16 N05-N12
      6  864 1022 (N01E09 L=136)   360    111        1 ( 827/ 961- 897/1079)  45.0 E12-E06 S02-N04
      7 1879 1004 (S11W61 L=207)   445     77        1 (1865/ 973-1903/1030) -90.0 W59-W64 S12-S08
      8 1475  910 (S12W27 L=172)   228     66        1 (1449/ 877-1504/ 944)  45.0 W24-W28 S14-S10
      9 1333  697 (S24W16 L=161)   665    228        0 (1210/ 665-1440/ 740)   3.6 W07-W23 S25-S21
     10  931  694 (S19E10 L=136)   208    104        1 ( 884/ 662- 972/ 737)  26.6 E12-E06 S21-S17
     11 1682  550 (S38W45 L=191)   369     44        0 (1666/ 521-1698/ 579)  90.0 W43-W46 S39-S35
     12  434  447 (S29E52 L= 93)   947    162        1 ( 418/ 384- 451/ 516)  60.9 E55-E48 S33-S24
     13 1189  469 (S37W05 L=150)   268     82        0 (1151/ 437-1232/ 502)  29.7 W01-W08 S39-S35
     14 1113  415 (S40E02 L=144)   252     31        0 (1093/ 396-1136/ 436) -56.3 E03-W00 S41-S38
  

    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