Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  300 1530 (N10E65 L=116)  2332    346        7 ( 244/1474- 363/1591)  48.8 E71-E57 N06-N14
      2  448 1425 (N05E46 L=135)   345     67        2 ( 420/1397- 479/1452)  53.1 E47-E43 N03-N07
      3 1038 1302 (N09E05 L=176)   499    138        1 (1011/1228-1059/1372) -54.5 E07-E02 N05-N13
      4  163 1145 (S15E65 L=116)  4605    609       12 ( 108/1051- 225/1250)  90.0 E74-E58 S20-S08
      5  465  918 (S24E33 L=148)  1116    240        1 ( 391/ 823- 549/1010)  54.5 E38-E28 S31-S17
      6 1386  833 (S09W26 L=207)   793    204        2 (1315/ 790-1486/ 896)  31.0 W20-W32 S13-S07
      7  369  796 (S33E40 L=141)   305     59        1 ( 347/ 777- 394/ 823) -45.0 E42-E38 S34-S31
      8 1414  682 (S17W32 L=213)  1083    303        2 (1270/ 587-1523/ 797)  62.1 W25-W37 S25-S08
      9 1569  722 (S11W41 L=222)   512    167        1 (1527/ 659-1597/ 768) -26.6 W36-W44 S13-S08
     10 1011  538 (S36W12 L=193)   540    138        0 ( 937/ 517-1089/ 563)  10.3 W06-W17 S37-S34
     11  643  521 (S46E15 L=166)   329     50        2 ( 617/ 496- 678/ 547)  11.3 E17-E12 S48-S44
     12 1555  514 (S22W49 L=230)   358     62        0 (1520/ 494-1584/ 536)  63.4 W46-W50 S24-S20
     13 1297  494 (S31W32 L=213)   243     90        0 (1270/ 463-1333/ 528) -18.4 W29-W35 S31-S29
     14 1671  447 (S22W63 L=244)  2079    360        1 (1553/ 395-1785/ 498)  34.4 W55-W74 S28-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