Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1155 1755 (N47W39 L=159)   353     61        0 (1139/1722-1169/1793)  35.5 W35-W42 N44-N49
      2 1410 1592 (N28W44 L=164)  1185    230        2 (1315/1523-1501/1639)   0.0 W33-W53 N26-N30
      3 1517 1433 (N16W42 L=162)   494    158        2 (1451/1393-1578/1476)   4.8 W36-W48 N15-N17
      4 1091 1364 (N25W13 L=133)   696    160        3 (1031/1318-1166/1399)   0.0 W08-W17 N22-N26
      5 1790 1037 (S13W50 L=170)  4954    955       10 (1598/ 838-1900/1279)  21.0 W31-W70 S20-S03
      6  807 1245 (N25E08 L=113)   213     52        1 ( 782/1222- 832/1268)  14.0 E09-E05 N23-N25
      7 1076 1175 (N14W07 L=127)   241    119        0 (1039/1125-1104/1221) -81.9 W05-W07 N10-N17
      8  793 1146 (N19E11 L=110)   216     72        0 ( 754/1126- 821/1162) -45.0 E12-E09 N17-N20
      9 1201 1115 (N08W12 L=132)   244    108        0 (1172/1066-1240/1156)  33.7 W09-W15 N05-N09
     10  860 1043 (N12E09 L=111)   209     81        0 ( 817/1029- 897/1061) -31.0 E11-E06 N10-N14
     11  571  982 (N15E28 L= 92)   390     62        3 ( 539/ 952- 600/1016) -45.0 E30-E26 N12-N16
     12  868  767 (S04E15 L=105)   487    198        1 ( 801/ 717- 958/ 809) -53.1 E17-E11 S08-N00
     13 1515  744 (S22W23 L=143)   229     55        0 (1502/ 711-1527/ 778)  76.0 W21-W23 S23-S19
     14 1817  744 (S32W51 L=171)   642    111        0 (1766/ 719-1858/ 776)  -4.8 W44-W56 S33-S30
     15 1525  554 (S35W21 L=141)  1364    386        0 (1394/ 436-1629/ 709)  28.6 W08-W30 S39-S27
     16 1201  580 (S23E01 L=119)   461    206        1 (1129/ 522-1264/ 665)  26.6 E06-W05 S24-S19
     17 1675  486 (S47W36 L=157)   937    129        1 (1628/ 451-1715/ 535)   0.0 W30-W40 S49-S42
     18 1011  428 (S28E17 L=103)   338    109        0 ( 982/ 408-1057/ 473) -59.0 E18-E14 S29-S24
     19  445  401 (S18E59 L= 61)   420     54        0 ( 433/ 366- 456/ 431)  51.3 E61-E56 S20-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