Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1476 1716 (N30W56 L=180)  1202    153        3 (1413/1668-1540/1777) -84.3 W53-W58 N25-N35
      2 1114 1473 (N29W19 L=143)  1015    202        3 (1016/1419-1215/1512) -50.7 W14-W23 N22-N33
      3 1401 1012 (S05W21 L=145)   534    168        1 (1366/ 938-1418/1097)  49.4 W16-W23 S08-N00
      4 1193  917 (S04W06 L=130)   983    252        0 (1154/ 798-1243/1041)  69.0 W04-W10 S11-N02
      5 1594  855 (S19W29 L=153)  1750    406        2 (1456/ 652-1692/1006)  36.9 W15-W38 S27-S12
      6 1358  864 (S11W14 L=138)   288    121        0 (1326/ 831-1402/ 923) -74.1 W12-W16 S14-S07
      7  389  883 (N14E43 L= 81)   574    239        1 ( 322/ 866- 490/ 916) -13.0 E48-E35 N11-N16
      8  415  696 (N03E47 L= 77)   473    110        0 ( 390/ 662- 453/ 733)  14.0 E50-E42 N00-N04
      9 1547  611 (S33W21 L=145)  1002    253        3 (1461/ 536-1648/ 690)   7.1 W14-W30 S36-S30
     10  894  492 (S20E23 L=101)   531    178        1 ( 874/ 424- 917/ 578)  59.0 E26-E20 S24-S14
     11  514  403 (S17E53 L= 71)   449    200        1 ( 491/ 350- 554/ 428)  21.8 E58-E48 S20-S15
     12  614  369 (S22E47 L= 77)   338     42        0 ( 585/ 350- 638/ 389) -33.7 E48-E45 S23-S19
     13  704  296 (S29E45 L= 79)  1193    267        1 ( 629/ 255- 757/ 370)  17.1 E50-E37 S31-S24
  

    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