Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  976 1629 (N44W18 L= 77)   441     52        1 ( 937/1602-1004/1652) -36.9 W15-W20 N41-N46
      2 1600 1492 (N15W52 L=111)   519    138        3 (1585/1439-1621/1553)  29.1 W48-W57 N12-N18
      3 1492 1390 (N14W39 L= 98)   601     96        3 (1438/1362-1541/1414) -23.2 W35-W43 N11-N15
      4  811 1211 (N23E08 L= 51)   364     72        1 ( 774/1179- 843/1237) -68.2 E09-E05 N20-N25
      5 1788 1133 (S09W53 L=111)   396     67        1 (1762/1102-1814/1163)   9.5 W49-W55 S10-S07
      6 1685 1077 (S09W42 L=101)   254     37        0 (1667/1055-1703/1100)  18.4 W40-W43 S10-S07
      7  506  998 (N18E32 L= 26)   556    154        2 ( 454/ 952- 567/1060)  15.3 E37-E26 N15-N20
      8  200 1015 (N24E61 L=357)   459     66        0 ( 165/ 991- 231/1034)   6.3 E66-E57 N23-N25
      9  268  948 (N19E54 L=  5)   625    128        1 ( 234/ 900- 315/1010) -40.6 E56-E49 N16-N23
     10  828  953 (N08E13 L= 46)   215     63        0 ( 812/ 918- 845/ 984)  45.0 E14-E11 N06-N09
     11  181  859 (N15E67 L=352)   856    133        0 ( 158/ 797- 210/ 922) -63.4 E69-E63 N11-N19
     12 1363  848 (S12W15 L= 73)   299     63        0 (1339/ 815-1386/ 871)  56.3 W12-W16 S13-S10
     13 1643  803 (S24W33 L= 92)   721    170        0 (1590/ 728-1693/ 862)  26.6 W27-W37 S26-S21
     14 1722  762 (S29W39 L= 98)   404     85        0 (1692/ 730-1748/ 805)  26.6 W36-W42 S30-S27
     15 1225  680 (S18W02 L= 61)  1052    392        0 (1054/ 662-1401/ 709) -21.8 E07-W13 S22-S13
     16 1734  605 (S41W41 L=100)   552     60        2 (1702/ 576-1762/ 635)  36.9 W37-W45 S42-S39
     17 1096  555 (S22E09 L= 50)   238     79        0 (1081/ 522-1115/ 590)  53.1 E09-E06 S24-S20
     18  431  437 (S14E59 L=360)  2050    325        3 ( 381/ 346- 471/ 579)  51.3 E73-E47 S20-S05
     19  719  430 (S20E37 L= 22)   356     76        1 ( 703/ 391- 739/ 468)  63.4 E38-E35 S23-S17
  

    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