Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  983 1553 (N35W11 L=131)   982    228        1 ( 876/1518-1091/1580) -14.9 W02-W17 N32-N37
      2 1618 1498 (N16W52 L=172)   514     35        1 (1590/1476-1644/1521) -71.6 W49-W54 N14-N17
      3 1487 1463 (N17W40 L=160)   263     73        0 (1473/1420-1508/1496)  31.0 W37-W42 N14-N18
      4 1305 1332 (N14W24 L=144)   365    133        0 (1245/1317-1373/1350) -12.5 W19-W28 N12-N15
      5  308 1263 (N32E46 L= 74)  1904    276        1 ( 218/1168- 418/1341) -33.7 E58-E36 N23-N38
      6  849 1228 (N18E06 L=115)  2261    667        2 ( 574/1123-1124/1322) -10.0 E24-W10 N13-N21
      7  150 1168 (N29E67 L= 54)   718     68        2 ( 130/1135- 168/1206) -59.0 E70-E63 N26-N31
      8 1655 1001 (S13W39 L=159)   235     71        0 (1623/ 985-1678/1021)   0.0 W36-W40 S13-S11
      9 1686  819 (S24W39 L=159)  1321    291        4 (1622/ 696-1730/ 953)  55.3 W32-W44 S31-S17
     10 1399  734 (S22W16 L=137)   764    249        1 (1342/ 630-1451/ 845)  47.7 W10-W21 S27-S16
     11 1871  788 (S32W61 L=181)   956    112        1 (1831/ 755-1913/ 829)   8.7 W55-W68 S33-S30
     12  529  564 (S13E42 L= 78)   568    113        0 ( 511/ 497- 545/ 623)  58.0 E45-E40 S17-S09
     13 1050  551 (S25E09 L=111)   269     31        1 (1023/ 529-1073/ 576)  14.0 E11-E07 S27-S24
     14  880  236 (S44E37 L= 84)   351     52        1 ( 851/ 223- 907/ 253) -11.3 E39-E34 S45-S42
  

    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