Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  729 1831 (N35E55 L=261)  1819    184        2 ( 686/1752- 760/1894) -25.6 E70-E46 N29-N41
      2 1658 1537 (N47W32 L=348)   867     98        0 (1625/1485-1683/1577) -50.2 W27-W34 N43-N50
      3  939 1485 (N18E18 L=298)   301     92        0 ( 908/1447- 973/1518)  80.5 E19-E17 N14-N20
      4  743 1271 (N00E23 L=294)   221     48        1 ( 709/1248- 767/1287)  18.4 E24-E21 N00-N01
      5 1442 1103 (N11W21 L=338)   204     63        0 (1422/1076-1470/1134) -45.0 W19-W23 N09-N12
      6  185 1059 (S24E63 L=253)   419     52        1 ( 170/1024- 199/1085) -56.3 E65-E60 S26-S22
      7 1593 1038 (N12W33 L=349)   379     94        0 (1559/ 997-1630/1071)  63.4 W31-W34 N08-N14
      8  785  995 (S14E13 L=304)   461    160        0 ( 732/ 954- 861/1018)  39.8 E15-E08 S17-S11
      9 1856  931 (N15W60 L= 16)  1162    211        2 (1808/ 854-1911/1016) -15.5 W52-W70 N13-N18
     10  692  829 (S26E14 L=302)   269     67        1 ( 676/ 799- 717/ 868) -53.1 E15-E12 S27-S23
     11  382  772 (S38E38 L=278)   694    118        0 ( 326/ 731- 436/ 802)  26.6 E44-E32 S41-S35
     12 1777  773 (N04W57 L= 13)   437     28        1 (1757/ 745-1796/ 797)  71.6 W54-W58 N02-N05
     13 1694  737 (S01W50 L=  7)   767     89        1 (1666/ 706-1740/ 780)   0.0 W46-W55 S02-N00
     14  819  622 (S34E00 L=316)   723    155        1 ( 746/ 606- 903/ 645)  33.7 E05-W05 S37-S31
     15 1441  347 (S30W56 L= 12)  2950    398        4 (1261/ 285-1615/ 397)  45.0 W45-W68 S39-S20
  

    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