Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1620 1712 (N24W73 L= 92)  1666    132        2 (1565/1670-1681/1738) -18.4 W64-W82 N20-N26
      2 1900 1251 (S09W70 L= 89)   957    103        4 (1871/1216-1929/1294) -68.2 W64-W74 S11-S06
      3  314 1224 (N35E45 L=335)   778    178        0 ( 236/1162- 376/1262) -31.0 E54-E38 N29-N38
      4  750 1055 (N14E15 L=  5)   219     62        0 ( 725/1033- 766/1084)  18.4 E16-E13 N13-N16
      5  121 1051 (N28E71 L=308)   959     91        1 (  73/1024- 163/1072)  -2.5 E86-E63 N26-N29
      6  706 1013 (N13E18 L=  1)   242     80        1 ( 675/ 978- 737/1034) -76.0 E20-E17 N10-N14
      7 1778  949 (S20W46 L= 65)   396     58        0 (1755/ 924-1799/ 983)  36.9 W43-W48 S21-S18
      8 1386  930 (S09W17 L= 37)   287     96        1 (1352/ 911-1434/ 963) -59.0 W15-W19 S11-S06
      9 1595  864 (S19W29 L= 48)   221     81        0 (1562/ 837-1612/ 899)  26.6 W26-W30 S20-S17
     10 1317  804 (S14W10 L= 29)   652    220        2 (1237/ 749-1356/ 891)  54.5 W05-W13 S16-S09
     11 1480  807 (S19W20 L= 39)   461     96        3 (1453/ 756-1509/ 860)  81.9 W18-W21 S22-S15
     12 1786  839 (S27W45 L= 64)   393     84        0 (1748/ 812-1828/ 859)   0.0 W41-W50 S28-S26
     13  863  707 (S07E17 L=  2)   941    284        0 ( 823/ 579- 908/ 818)  42.5 E23-E11 S13-S02
     14  400  538 (S06E54 L=325)   343     52        1 ( 381/ 509- 415/ 563) -90.0 E55-E52 S08-S04
     15  627  375 (S21E46 L=333)  2611    414        2 ( 554/ 230- 767/ 519)  20.4 E64-E29 S30-S14
     16  403  470 (S11E58 L=321)  1301    156        4 ( 351/ 425- 475/ 508)  -9.5 E66-E52 S14-S07
     17  509  446 (S14E50 L=329)   704     85        3 ( 485/ 404- 529/ 494)  39.8 E53-E47 S16-S11
     18 1404  459 (S39W07 L= 26)   381     51        1 (1386/ 423-1423/ 493)  78.7 W05-W08 S41-S36
     19 1291  320 (S46E06 L= 13)  1704    243        4 (1211/ 243-1378/ 383)  18.4 E15-W03 S50-S40
  

    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