Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  987 1930 (N65W50 L= 12)   680     82        1 ( 962/1898-1014/1962)   8.7 W39-W66 N61-N67
      2  899 1863 (N62W27 L=350)   682    108        1 ( 867/1819- 931/1894)  30.3 W21-W33 N57-N65
      3 1234 1746 (N40W40 L=  2)  2631    522        4 (1023/1679-1482/1793) -28.1 W22-W54 N28-N46
      4  821 1609 (N44W03 L=326)   338     64        0 ( 796/1574- 846/1638)  45.0 W00-W05 N41-N45
      5 1764 1505 (N11W67 L= 29)   764    107        0 (1735/1457-1791/1547)  80.5 W64-W69 N08-N14
      6 1595 1122 (S05W36 L=358)  2043    504        0 (1542/ 893-1627/1330)  61.4 W27-W42 S16-N07
      7  306 1143 (N26E46 L=277)   900    211        1 ( 235/1075- 361/1194) -30.3 E53-E40 N22-N30
      8  145 1113 (N28E66 L=257)  1803    145        2 (  90/1053- 200/1168) -20.0 E79-E57 N23-N31
      9  274 1103 (N25E49 L=273)   685     86        3 ( 243/1058- 303/1149) -80.5 E52-E46 N21-N27
     10  791 1086 (N13E12 L=311)   589    214        0 ( 714/1041- 881/1148) -48.4 E15-E07 N08-N17
     11  403 1057 (N19E38 L=284)   476     98        2 ( 378/1010- 420/1110)  63.4 E40-E36 N16-N22
     12  344  978 (N16E44 L=278)   317     96        1 ( 288/ 963- 383/ 996)   0.0 E49-E40 N14-N17
     13  130  813 (N10E73 L=249)   836     82        1 ( 100/ 789- 165/ 836)   9.5 E79-E66 N08-N11
     14  232  804 (N08E59 L=264)   350     66        1 ( 205/ 779- 260/ 828) -31.0 E61-E56 N06-N09
     15  262  745 (N04E58 L=265)   667    136        1 ( 216/ 695- 302/ 772) -45.0 E62-E53 N00-N06
     16 1765  580 (S44W47 L= 10)  1138    145        1 (1702/ 534-1828/ 630)   6.7 W39-W56 S45-S40
     17 1254  588 (S27W03 L=325)   200     42        0 (1240/ 563-1269/ 617)  63.4 W01-W04 S28-S24
     18  372  537 (S10E56 L=266)   375     52        0 ( 351/ 521- 396/ 558) -33.7 E58-E53 S10-S08
     19 1404  386 (S46W09 L=331)   314     40        1 (1382/ 367-1428/ 410)   0.0 W06-W11 S47-S43
     20  751  264 (S36E44 L=278)   891    116        0 ( 703/ 225- 795/ 313)  19.7 E51-E37 S37-S32
  

    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