Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  882 1790 (N38E39 L=149)   377     64        2 ( 848/1773- 913/1804)  53.1 E41-E36 N35-N39
      2 1032 1711 (N37E23 L=165)   836    192        1 ( 958/1659-1099/1771) -14.0 E32-E16 N33-N39
      3  793 1674 (N27E36 L=152)   478     65        1 ( 762/1646- 829/1699)   9.5 E39-E33 N24-N28
      4  616 1624 (N19E45 L=143)   568    118        0 ( 569/1588- 664/1669)  76.0 E47-E43 N15-N23
      5  857 1570 (N22E27 L=161)   369    164        0 ( 832/1511- 902/1646) -35.0 E31-E21 N19-N26
      6 1649 1474 (N42W31 L=219)   406     73        0 (1612/1453-1685/1491)   7.1 W27-W35 N40-N43
      7  727 1267 (N01E23 L=165)  1018    298        1 ( 673/1136- 769/1386) -82.4 E25-E21 S07-N08
      8  384 1283 (S06E48 L=140)   761    194        2 ( 324/1223- 472/1329)  38.7 E51-E41 S10-S02
      9 1760 1275 (N32W44 L=232)   658     94        0 (1739/1232-1779/1322) -53.1 W41-W46 N29-N35
     10  182 1235 (S13E68 L=120)   990    135        1 ( 156/1184- 201/1305)  90.0 E71-E65 S16-S08
     11 1631 1205 (N23W33 L=220)   614    174        1 (1601/1138-1653/1289) -53.1 W29-W35 N18-N28
     12  528 1231 (S06E35 L=153)   550    134        1 ( 513/1159- 549/1287) -60.3 E37-E32 S09-S02
     13 1392 1137 (N11W18 L=206)   380     73        0 (1358/1116-1439/1160)   9.5 W15-W21 N10-N12
     14 1610 1088 (N15W33 L=221)   379    100        2 (1567/1046-1647/1116)  -7.1 W29-W37 N14-N17
     15  778  908 (S18E11 L=177)   262    124        1 ( 739/ 874- 824/ 959)  66.8 E12-E09 S20-S13
     16 1125  829 (S13W11 L=199)   418    121        2 (1096/ 781-1164/ 865) -38.7 W08-W13 S15-S11
     17 1275  733 (S14W23 L=211)   267     57        0 (1248/ 713-1309/ 753)  63.4 W21-W24 S15-S11
     18 1427  700 (S11W33 L=221)   912    339        6 (1292/ 659-1515/ 751)  33.7 W26-W40 S16-S07
     19 1058  585 (S29W16 L=204)  1258    439        0 ( 904/ 539-1251/ 680)   9.5 W03-W27 S30-S23
     20 1485  601 (S15W41 L=229)   253     68        0 (1466/ 571-1513/ 630)  90.0 W40-W42 S16-S12
     21  831  341 (S53W13 L=201)   741    190        0 ( 765/ 304- 917/ 395)  -3.2 W04-W22 S54-S50
  

    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