Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  895 1786 (N38E38 L=149)   321     61        0 ( 863/1769- 921/1799)  56.3 E39-E34 N36-N39
      2 1049 1705 (N37E22 L=165)   733    183        1 ( 973/1656-1113/1760) -11.3 E30-E15 N34-N39
      3  809 1667 (N27E35 L=152)   417     58        1 ( 782/1639- 844/1686)   0.0 E37-E32 N24-N28
      4  630 1621 (N19E44 L=143)   587    154        1 ( 579/1581- 690/1678)  77.5 E46-E42 N15-N24
      5  882 1521 (N20E23 L=164)   528    193        2 ( 852/1456- 914/1612) -45.0 E28-E19 N15-N24
      6  480 1572 (N13E53 L=134)   343     91        0 ( 447/1556- 519/1588)  18.4 E56-E50 N11-N14
      7 1670 1464 (N42W34 L=221)   394     86        0 (1636/1434-1714/1483)   0.0 W30-W39 N41-N43
      8  749 1269 (N01E22 L=164)   943    269        2 ( 706/1152- 788/1383) -81.9 E24-E19 S06-N08
      9  394 1274 (S07E46 L=140)   673    170        1 ( 335/1215- 466/1320)  45.0 E49-E41 S11-S02
     10 1770 1277 (N33W45 L=232)   555     62        0 (1748/1242-1787/1312) -53.1 W42-W47 N30-N34
     11  187 1238 (S13E68 L=119)  1407    129        3 ( 156/1177- 219/1302) -76.0 E72-E64 S16-S08
     12  544 1229 (S06E34 L=153)   499    151        0 ( 528/1157- 562/1295) -60.3 E36-E31 S09-S01
     13 1645 1205 (N23W34 L=220)   519    146        2 (1627/1134-1663/1280) -71.6 W31-W36 N19-N28
     14  245 1182 (S15E58 L=128)   410     79        1 ( 228/1146- 263/1214) -45.0 E59-E55 S16-S13
     15 1409 1128 (N12W19 L=206)   343     56        1 (1379/1106-1447/1150)  11.3 W16-W21 N10-N12
     16 1615 1083 (N15W34 L=221)   252     69        1 (1585/1056-1645/1109) -11.3 W31-W36 N14-N16
     17  208  983 (S28E59 L=127)   416     89        0 ( 193/ 940- 227/1016)  78.7 E61-E56 S30-S25
     18  790  896 (S18E10 L=177)   286    114        0 ( 751/ 852- 833/ 936)  66.8 E11-E08 S21-S14
     19 1138  821 (S13W12 L=199)   240     98        3 (1115/ 790-1174/ 852) -26.6 W10-W15 S14-S11
     20 1450  691 (S11W35 L=222)  1122    342        4 (1309/ 648-1532/ 744)  21.8 W27-W42 S16-S06
     21 1289  723 (S14W24 L=211)   211     37        0 (1265/ 707-1314/ 739)  45.0 W22-W25 S15-S12
     22 1084  572 (S29W18 L=204)  1104    389        1 ( 943/ 534-1263/ 642)  12.8 W06-W28 S31-S23
     23  873  325 (S53W17 L=204)  1030    250        1 ( 769/ 278- 984/ 388)   2.5 W05-W28 S54-S49
  

    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