Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  775 1776 (N33E43 L= 21)  2701    554        4 ( 738/1657- 816/1921) -40.0 E58-E32 N25-N46
      2  793 1525 (N17E28 L= 36)   293     62        0 ( 765/1504- 831/1543)  36.9 E29-E25 N15-N18
      3 1639 1471 (N41W29 L= 93)   729    120        1 (1581/1446-1687/1492)  15.3 W23-W34 N38-N43
      4 1746 1371 (N38W40 L=104)  1655    184        1 (1677/1281-1789/1432) -78.7 W33-W44 N31-N42
      5  335 1269 (S08E51 L= 13)   316     57        0 ( 313/1242- 361/1293)  63.4 E52-E49 S10-S06
      6  360 1246 (S09E48 L= 16)   408     85        0 ( 323/1215- 391/1288)  68.2 E50-E46 S11-S06
      7  932 1240 (N04E11 L= 53)   194     22        0 ( 916/1219- 948/1265) -71.6 E11-E09 N02-N05
      8  426 1211 (S10E42 L= 22)   284     87        0 ( 385/1178- 461/1252)  63.4 E43-E39 S12-S06
      9 1410 1117 (N11W19 L= 83)   444    105        2 (1388/1057-1435/1172) -56.3 W16-W20 N07-N13
     10 1507 1124 (N14W25 L= 89)   712    225        2 (1442/1062-1571/1172)  49.4 W22-W30 N09-N17
     11  276 1070 (S21E51 L= 13)   533    103        0 ( 254/1015- 291/1115) -56.3 E52-E48 S24-S18
     12  503  931 (S24E29 L= 34)   593    221        0 ( 415/ 902- 597/ 982)  33.7 E35-E23 S27-S18
     13  687  797 (S27E14 L= 50)   263     70        2 ( 659/ 777- 708/ 820)  33.7 E15-E12 S28-S25
     14  464  687 (S40E29 L= 35)   782    193        2 ( 383/ 663- 539/ 717)  26.6 E36-E22 S44-S37
  

    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