Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  597 1713 (N24E52 L= 75)  1401    214        4 ( 547/1631- 647/1802) -21.8 E67-E42 N18-N29
      2  812 1717 (N29E37 L= 90)   787    141        2 ( 793/1640- 836/1790) -39.8 E43-E31 N24-N34
      3 1201 1674 (N38E10 L=117)   259     29        0 (1177/1650-1223/1694)  76.0 E10-E08 N36-N40
      4 1333 1617 (N39W01 L=128)  1032    156        5 (1271/1554-1376/1663) -20.6 E03-W05 N34-N41
      5 1126 1595 (N30E11 L=116)   242     62        0 (1111/1560-1140/1624) -68.2 E12-E09 N27-N32
      6 1038 1557 (N25E15 L=112)   492    206        0 ( 975/1515-1116/1623)  -4.8 E21-E09 N23-N27
      7  283 1392 (S03E60 L= 67)  2517    212        7 ( 233/1312- 356/1476) -22.4 E67-E50 S06-N02
      8  341 1442 (N01E57 L= 70)   372     58        2 ( 322/1412- 361/1476) -45.0 E59-E55 N00-N03
      9  291 1280 (S09E55 L= 72)   420     68        1 ( 275/1240- 310/1319)  90.0 E56-E53 S11-S06
     10 1658 1250 (N26W33 L=160)   897    146        1 (1601/1193-1717/1297) -16.7 W28-W39 N24-N27
     11  818 1182 (S02E16 L=111)  1044    225        4 ( 780/1089- 882/1287) -35.0 E20-E09 S05-N03
     12 1213 1158 (N07W07 L=134)   191     14        1 (1195/1139-1235/1178)   0.0 W05-W07 N05-N08
     13 1261 1009 (N00W13 L=140)   496    201        1 (1232/ 917-1285/1102) -48.8 W09-W16 S04-N04
     14 1581  455 (S19W56 L=183)   985    135        2 (1505/ 437-1651/ 481)  31.0 W50-W62 S22-S15
  

    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