Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1133 1597 (N33W14 L=270)   512     84        0 (1093/1571-1172/1620) -31.0 W10-W16 N31-N35
      2 1398 1201 (N06W24 L=281)   655    177        1 (1320/1154-1474/1234) -24.0 W19-W29 N02-N08
      3 1822  879 (S16W56 L=313)  2008    388        8 (1749/ 776-1920/1011)  51.8 W48-W68 S22-S08
      4  284  864 (S04E52 L=205)   831    129        1 ( 257/ 809- 323/ 922) -74.1 E53-E48 S07-N00
      5 1884  844 (S19W64 L=321)   442     41        0 (1869/ 817-1896/ 872)  90.0 W62-W66 S20-S17
      6 1730  656 (S30W50 L=307)   890    214        3 (1639/ 618-1825/ 687)   5.7 W41-W61 S31-S27
      7  385  595 (S21E50 L=206)   647    155        1 ( 359/ 524- 418/ 666)  60.9 E54-E46 S25-S16
      8  269  607 (S19E62 L=195)   463     47        3 ( 248/ 585- 296/ 632)   0.0 E65-E58 S20-S17
      9  970  506 (S33E09 L=248)  1077    411        2 ( 796/ 446-1131/ 546)   4.8 E22-W02 S36-S30
     10 1393  460 (S40W23 L=279)  1039    287        1 (1272/ 422-1525/ 528)  13.4 W12-W33 S42-S36
     11  396  420 (S32E60 L=197)   916    150        3 ( 363/ 356- 449/ 473)  16.9 E73-E50 S36-S29
     12  651  389 (S38E37 L=220)   818    155        2 ( 574/ 351- 734/ 413)   0.0 E44-E29 S39-S36
     13 1516  338 (S52W41 L=297)  1546    176        4 (1444/ 310-1606/ 366)  -2.6 W31-W54 S54-S48
  

    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