Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  883 1623 (N47W11 L= 71)   399     61        1 ( 853/1586- 916/1646)  80.5 W09-W13 N43-N49
      2  963 1618 (N43W16 L= 77)   318     51        1 ( 940/1592- 989/1641)  63.4 W14-W18 N41-N45
      3 1588 1460 (N14W49 L=110)   700    160        1 (1572/1384-1616/1542)  48.4 W46-W55 N09-N18
      4 1468 1377 (N14W37 L= 97)   478     91        1 (1412/1352-1505/1402)  -9.5 W33-W39 N12-N15
      5  850 1279 (N26E04 L= 57)   212    148        0 ( 777/1259- 910/1293) -14.0 E08-W00 N23-N27
      6  793 1200 (N23E09 L= 51)   321     52        1 ( 764/1175- 819/1224)  26.6 E10-E06 N20-N24
      7 1767 1116 (S10W50 L=111)   459    107        1 (1721/1075-1802/1148)   5.7 W44-W54 S10-S08
      8 1679 1041 (S11W41 L=101)   433     76        1 (1646/1005-1704/1084) -80.5 W38-W42 S13-S07
      9  482  988 (N18E34 L= 26)   573    158        0 ( 433/ 945- 544/1044)  16.7 E38-E28 N15-N19
     10  191 1012 (N24E63 L=358)   426     61        0 ( 160/ 990- 219/1030)   6.3 E67-E58 N23-N25
     11  801  934 (N07E15 L= 46)   253     86        0 ( 782/ 893- 819/ 974)  53.1 E16-E13 N05-N09
     12  266  936 (N19E54 L=  6)   436     78        1 ( 236/ 911- 304/ 965) -38.7 E57-E50 N16-N20
     13  164  879 (N17E69 L=352)   701     79        2 ( 144/ 840- 188/ 922) -59.0 E71-E66 N14-N19
     14 1339  835 (S12W13 L= 73)   317     53        0 (1315/ 802-1363/ 856)  33.7 W11-W14 S13-S10
     15 1619  789 (S23W31 L= 91)   708    153        1 (1570/ 723-1665/ 846)  26.6 W25-W35 S26-S21
     16 1702  745 (S29W37 L= 98)   434     64        0 (1672/ 718-1724/ 775)  11.3 W34-W39 S30-S27
     17 1202  666 (S18W01 L= 61)   935    390        0 (1042/ 641-1384/ 700) -19.3 E08-W12 S22-S13
     18 1720  597 (S41W40 L=100)   560     62        1 (1685/ 574-1750/ 627)   0.0 W35-W43 S42-S38
     19  412  457 (S13E60 L=  1)  1674    263        4 ( 384/ 356- 439/ 571)  33.7 E73-E50 S19-S05
     20  698  426 (S20E38 L= 22)   326     57        1 ( 683/ 396- 719/ 461)  78.7 E39-E36 S22-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