Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1072 1711 (N51W04 L= 55)   289     51        1 (1054/1680-1091/1730)  53.1 W02-W05 N48-N52
      2 1725 1398 (N26W57 L=108)   478     93        2 (1691/1376-1775/1415)  -5.7 W52-W62 N24-N27
      3  997 1357 (N24E02 L= 49)   526    212        0 ( 926/1285-1085/1404) -35.0 E07-W03 N19-N27
      4 1747  856 (S08W52 L=103)   578     44        1 (1723/ 827-1775/ 881) -56.3 W49-W54 S09-S06
      5 1652  847 (S08W43 L= 94)   366    111        0 (1611/ 828-1692/ 870)  -8.1 W39-W46 S09-S06
      6 1176  754 (S13W10 L= 61)   228     92        0 (1150/ 724-1210/ 799) -59.0 W08-W12 S15-S10
      7 1285  736 (S15W17 L= 68)   360    109        1 (1248/ 699-1314/ 778)  51.3 W14-W18 S16-S11
      8 1070  720 (S16W03 L= 54)   277    116        2 (1032/ 681-1118/ 760)  38.7 W00-W06 S18-S12
      9  624  688 (S18E27 L= 24)   923    194        3 ( 558/ 628- 702/ 730)  30.3 E32-E20 S22-S15
     10  246  599 (S27E69 L=342)  1287     99        2 ( 214/ 547- 270/ 635) -90.0 E74-E63 S30-S23
     11 1263  572 (S25W17 L= 68)  1016    440        2 (1091/ 532-1449/ 625)   9.5 W05-W29 S28-S21
     12 1590  552 (S28W44 L= 95)   448    121        0 (1546/ 515-1639/ 599)  45.0 W40-W47 S30-S24
     13  338  495 (S34E62 L=349)   815     75        1 ( 317/ 468- 358/ 538)  33.7 E68-E57 S36-S30
  

    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