Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1139 1712 (N38E16 L=283)   939    214        0 (1053/1665-1234/1764)   3.8 E23-E08 N36-N39
      2 1329 1618 (N38W01 L=299)   321     77        0 (1296/1595-1371/1634)   0.0 E01-W04 N35-N39
      3  589 1531 (N11E41 L=258)   883    195        0 ( 540/1465- 640/1624) -26.6 E48-E34 N07-N15
      4 1467 1328 (N23W17 L=316)   280     91        0 (1426/1301-1501/1359)  -8.1 W13-W20 N22-N24
      5 1718 1216 (N25W38 L=337)   315     97        0 (1673/1193-1760/1231)  14.0 W34-W42 N22-N26
      6 1889 1083 (N24W59 L=358)   702     91        0 (1851/1046-1915/1129) -11.3 W53-W63 N22-N25
      7  681 1048 (S14E20 L=279)   324     63        3 ( 652/1022- 705/1086)  90.0 E21-E18 S15-S11
      8 1762  946 (N11W48 L=347)   547    113        1 (1737/ 900-1779/1002)  90.0 W45-W50 N08-N14
      9 1822  870 (N10W56 L=355)  2262    280        5 (1757/ 759-1882/ 977)  82.4 W52-W62 N02-N17
     10 1040  905 (S12W04 L=303)   379    133        0 ( 993/ 856-1081/ 966) -23.2 W00-W07 S14-S10
     11  947  820 (S20W01 L=300)   432    144        1 ( 887/ 793-1014/ 843)  15.9 E02-W05 S21-S17
     12  799  719 (S29E05 L=294)   359    123        0 ( 768/ 670- 854/ 745)  56.3 E06-E01 S32-S26
     13  213  689 (S47E62 L=236)   621     66        1 ( 172/ 672- 248/ 710)   6.0 E74-E55 S48-S45
     14 1444  614 (S16W37 L=336)   313     80        0 (1409/ 600-1489/ 636)  31.0 W35-W40 S17-S14
     15  537  546 (S48E21 L=278)   762    186        1 ( 455/ 512- 618/ 583)   6.7 E29-E12 S50-S46
     16  859  459 (S44W09 L=307)   290     58        0 ( 838/ 435- 892/ 487) -11.3 W06-W11 S44-S41
     17 1444  346 (S30W55 L=353)   455     75        1 (1406/ 316-1475/ 380)  -5.2 W49-W60 S30-S28
     18 1581  327 (S26W70 L=  9)   614     49        2 (1555/ 305-1604/ 346)   0.0 W64-W75 S27-S24
     19 1024  170 (S58W48 L=347)   500     56        0 (1007/ 137-1046/ 200) -10.6 W41-W57 S59-S55
  

    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