Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  714 1681 (N45E32 L=187)   446     86        2 ( 676/1658- 751/1696)   0.0 E36-E29 N42-N46
      2  474 1663 (N41E53 L=166)   823    120        0 ( 427/1641- 530/1685)  26.6 E57-E48 N38-N43
      3 1602 1345 (N25W40 L=259)   392    109        1 (1570/1314-1643/1366)  23.2 W36-W43 N22-N26
      4 1774 1261 (N20W55 L=274)   606    139        0 (1742/1208-1818/1310) -45.0 W51-W59 N16-N22
      5 1363  870 (S06W22 L=241)   505    141        2 (1331/ 798-1385/ 938) -69.4 W19-W24 S09-S01
      6 1328  542 (S27W24 L=243)   263     91        0 (1282/ 530-1371/ 557)   0.0 W20-W27 S27-S26
      7  671  496 (S34E24 L=196)   761    129        0 ( 616/ 478- 743/ 525)  -5.7 E27-E17 S35-S32
      8  429  468 (S39E46 L=173)  1637    272        3 ( 357/ 428- 516/ 505)  12.5 E55-E37 S42-S35
  

    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