Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1561 1673 (N43W43 L=245)   566    137        0 (1509/1631-1623/1698)  21.3 W35-W53 N38-N45
      2  909  913 (S11E06 L=195)   313    132        3 ( 858/ 886- 961/ 936)  26.6 E09-E03 S13-S09
      3  103  861 (S15E78 L=123)  1276    115        1 (  86/ 802- 115/ 911)  80.5 E83-E75 S18-S12
      4  695  883 (S14E20 L=182)   262     47        1 ( 661/ 857- 726/ 906) -33.7 E22-E17 S15-S12
      5  587  772 (S21E28 L=174)   352    115        1 ( 561/ 735- 627/ 805) -31.0 E29-E24 S23-S19
      6  327  725 (S24E50 L=151)   284     60        2 ( 306/ 687- 341/ 755) -90.0 E51-E48 S26-S22
      7  394  574 (S34E48 L=153)  1758    290        2 ( 336/ 460- 468/ 689)  34.3 E61-E38 S42-S26
      8 1709  643 (S22W53 L=255)   485     71        2 (1669/ 616-1738/ 664)   0.0 W49-W56 S24-S21
      9 1663  559 (S28W53 L=254)   505     55        2 (1638/ 532-1684/ 592) -31.0 W50-W56 S29-S26
     10 1472  556 (S30W36 L=237)   781    194        1 (1381/ 536-1565/ 590)  12.1 W28-W42 S31-S27
     11 1218  484 (S37W18 L=219)   946    215        2 (1134/ 434-1290/ 560)  45.0 W12-W22 S41-S31
     12 1617  443 (S36W55 L=257)   558    124        1 (1576/ 400-1653/ 498)  81.9 W53-W57 S39-S32
     13 1544  395 (S40W51 L=253)   362     49        0 (1524/ 375-1567/ 420) -20.6 W47-W55 S41-S38
     14  755  279 (S57E24 L=178)   636     88        1 ( 727/ 247- 796/ 311)  21.8 E28-E18 S60-S53
     15  961  174 (S67W01 L=202)   403     54        2 ( 934/ 158- 990/ 191)   7.1 E03-W05 S69-S64
  

    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