Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1449 1718 (N36W57 L=296)  1075    172        1 (1378/1681-1531/1737) -38.7 W50-W62 N30-N38
      2  426 1478 (N48E39 L=200)   395     65        1 ( 402/1445- 458/1513) -26.6 E42-E34 N45-N51
      3 1707 1427 (N12W57 L=296)   359    108        0 (1661/1387-1743/1451) -56.3 W54-W59 N08-N14
      4 1424 1327 (N15W32 L=271)   710    149        1 (1401/1243-1447/1406)  73.3 W28-W35 N09-N19
      5  901 1016 (N09E07 L=232)   189    116        0 ( 878/ 960- 916/1064) -90.0 E07-E06 N05-N12
      6 1048  907 (N00E01 L=238)   741    385        0 ( 972/ 767-1202/ 963)  17.4 E08-W08 S06-N02
      7 1433  829 (S14W20 L=259)   253     87        0 (1411/ 790-1469/ 853)  26.6 W17-W22 S15-S12
      8  290  576 (S06E64 L=175)  3891    346       10 ( 228/ 451- 363/ 726)  71.6 E72-E57 S15-N03
      9  555  596 (S09E39 L=200)   624    118        1 ( 528/ 558- 604/ 654) -81.9 E42-E36 S11-S04
     10 1742  581 (S40W45 L=284)   849     81        1 (1706/ 554-1779/ 612)  -6.3 W40-W50 S42-S37
     11  450  517 (S12E51 L=188)   514    106        2 ( 433/ 468- 467/ 578)  63.4 E53-E48 S15-S07
     12  923  511 (S21E18 L=220)   503    124        2 ( 892/ 476- 950/ 562)  38.7 E20-E15 S23-S18
     13  791  490 (S20E27 L=212)   289     75        2 ( 756/ 462- 822/ 519)  18.4 E30-E24 S21-S17
     14  380  430 (S17E64 L=175)  1154    110        5 ( 354/ 377- 410/ 472)  23.2 E73-E59 S20-S13
     15 1281  205 (S58E06 L=233)   417     55        1 (1249/ 190-1302/ 229)   0.0 E10-E03 S60-S54
  

    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