Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1017 1547 (N39W14 L=257)  1036    271        1 ( 928/1471-1143/1599) -47.5 W07-W19 N30-N43
      2 1688 1515 (N18W60 L=304)   781    116        2 (1662/1466-1713/1547)  71.6 W58-W63 N14-N20
      3 1484 1320 (N13W35 L=279)   296     94        1 (1431/1307-1520/1336) -26.6 W31-W37 N11-N14
      4  537 1165 (N25E28 L=215)  2262    557        4 ( 343/1078- 757/1252) -31.0 E44-E14 N15-N33
      5  257 1136 (N27E53 L=191)   373     55        0 ( 246/1108- 272/1170)  76.0 E53-E51 N25-N29
      6 1828  937 (S18W53 L=296)  2124    377        6 (1757/ 821-1873/1085)  35.2 W44-W61 S23-S11
      7  870 1026 (N10E09 L=234)   224     40        1 ( 847/1003- 894/1052)  63.4 E10-E07 N09-N11
      8  989  984 (N06E03 L=240)   221     45        0 ( 959/ 970-1022/1001) -33.7 E04-E01 N04-N06
      9  210  879 (N12E62 L=181)   758    183        1 ( 161/ 833- 249/ 929) -40.6 E66-E57 N09-N15
     10 1375  826 (S12W16 L=259)   268    107        0 (1344/ 769-1406/ 866) -74.1 W15-W17 S16-S09
     11  980  774 (S06E08 L=235)   736    277        2 ( 879/ 711-1099/ 816)   4.1 E14-W00 S10-S04
     12 1370  640 (S24W13 L=256)   741    174        2 (1313/ 572-1404/ 694)  83.7 W09-W15 S28-S19
     13  285  559 (S08E66 L=177)  1098    159        0 ( 238/ 484- 335/ 628) -73.3 E69-E64 S13-S03
     14 1663  552 (S39W36 L=279)   619    117        1 (1620/ 532-1711/ 585)   0.0 W31-W40 S41-S37
     15  700  406 (S24E37 L=206)   532    156        1 ( 660/ 357- 762/ 468) -83.7 E38-E34 S28-S19
  

    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