Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1120 1811 (N48E24 L=358)   468     57        1 (1088/1794-1153/1827)  53.1 E26-E21 N45-N50
      2 1228 1632 (N37E06 L= 15)  2101    391        6 (1150/1471-1318/1798) -38.4 E20-W04 N28-N48
      3  419 1681 (N19E65 L=316)  2065    167        4 ( 362/1637- 473/1730)  58.0 E69-E61 N14-N23
      4  622 1587 (N17E42 L=340)   682    212        0 ( 597/1518- 655/1675) -48.4 E45-E36 N13-N22
      5  520 1590 (N15E50 L=332)   522     91        2 ( 476/1569- 556/1621)  51.3 E52-E46 N12-N17
      6  366 1495 (N06E58 L=324)   802    150        1 ( 294/1419- 415/1546)  53.1 E61-E55 N00-N09
      7  471 1485 (N07E48 L=334)   529    149        0 ( 423/1446- 502/1520)  45.0 E50-E45 N04-N09
      8 1809 1393 (N43W48 L= 70)   461     51        0 (1793/1369-1826/1415)  45.0 W45-W50 N40-N44
      9 1673 1282 (N29W34 L= 56)   755    179        0 (1605/1201-1710/1360) -37.9 W27-W38 N24-N32
     10  777 1036 (S11E14 L=  8)   254    114        0 ( 718/ 993- 822/1080)  60.3 E16-E12 S14-S07
     11 1833  914 (N13W57 L= 79)  2387    399        5 (1800/ 770-1872/1053) -66.4 W51-W64 N04-N20
     12  167  927 (S32E60 L=322)   563    127        0 ( 146/ 883- 199/ 967)  63.4 E61-E56 S34-S28
     13 1538  930 (N04W32 L= 54)   229     13        0 (1519/ 909-1555/ 949)  71.6 W31-W33 N02-N05
     14  194  795 (S40E56 L=325)   759    190        2 ( 148/ 778- 227/ 819)  18.4 E61-E52 S40-S37
     15 1281  773 (S12W22 L= 43)   542    205        0 (1209/ 702-1381/ 811)  55.0 W19-W26 S17-S07
     16 1014  792 (S18W06 L= 28)   268     89        2 ( 955/ 779-1060/ 809)  26.6 W02-W08 S19-S16
     17 1036  648 (S26W12 L= 33)   676    182        0 ( 942/ 626-1123/ 678)  37.9 W05-W16 S28-S21
     18 1214  495 (S29W29 L= 51)   454     94        0 (1164/ 473-1269/ 521)  14.0 W24-W32 S30-S27
     19  924  459 (S41W13 L= 34)   247     55        0 ( 906/ 440- 951/ 486) -18.4 W10-W14 S41-S38
     20 1019  455 (S38W19 L= 41)   227     31        0 ( 995/ 441-1047/ 469)  33.7 W17-W20 S39-S36
  

    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