Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  617 1620 (N35E32 L=262)  1833    362        4 ( 497/1480- 737/1711) -32.7 E48-E20 N24-N42
      2  328 1433 (N22E52 L=242)   531     88        1 ( 309/1394- 365/1471)  59.0 E54-E49 N19-N24
      3  394 1378 (N18E44 L=250)   291     96        0 ( 357/1346- 426/1419)  45.0 E47-E42 N16-N20
      4 1818 1353 (N19W60 L=354)   573     95        2 (1802/1305-1838/1403)  80.5 W57-W62 N16-N22
      5 1799 1246 (N12W55 L=349)   658     73        1 (1768/1209-1828/1284) -45.0 W52-W58 N10-N14
      6 1744 1102 (N03W48 L=342)  1171    225        3 (1662/1036-1812/1174)  33.7 W41-W55 S01-N07
      7  392 1129 (N03E41 L=253)   586     65        2 ( 356/1103- 424/1165)  -9.5 E44-E38 N01-N04
      8  193  951 (S07E61 L=233)   416     58        1 ( 175/ 927- 216/ 986) -90.0 E62-E57 S08-S05
      9  431  916 (S10E39 L=255)   243     77        0 ( 398/ 888- 464/ 939) -31.0 E41-E36 S11-S08
     10  251  856 (S13E55 L=239)   453    111        1 ( 235/ 791- 276/ 888)  45.0 E58-E52 S16-S11
     11  190  751 (S19E66 L=228)  3861    196        8 ( 129/ 654- 241/ 835)  84.8 E75-E59 S24-S13
     12 1550  751 (S19W36 L=330)   282     95        1 (1537/ 706-1572/ 793)  90.0 W34-W37 S21-S16
     13  461  579 (S31E42 L=252)   852    125        0 ( 431/ 521- 489/ 638)  41.2 E47-E38 S34-S27
     14  297  550 (S32E62 L=232)   862    105        1 ( 255/ 507- 341/ 583)  11.9 E73-E54 S34-S30
     15 1155  224 (S60W18 L=311)  2700    408        8 ( 961/ 190-1335/ 266)   6.2 E06-W41 S63-S55
  

    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