Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1240 1634 (N35E03 L=306)   805    149        2 (1164/1587-1312/1665)   5.7 E08-W02 N32-N36
      2  872 1467 (N14E20 L=290)   220     37        0 ( 845/1451- 902/1481)   0.0 E21-E17 N13-N15
      3  394 1362 (S01E48 L=262)   271     76        0 ( 365/1336- 421/1393)  -8.1 E51-E44 S02-N00
      4  237 1335 (S05E62 L=247)   415    105        0 ( 198/1304- 280/1373)  29.7 E65-E58 S06-S02
      5 1509 1334 (N23W21 L=331)   226     55        0 (1498/1299-1519/1368) -63.4 W20-W22 N20-N24
      6 1781 1348 (N33W45 L=354)   397     26        1 (1757/1333-1805/1366)  11.3 W42-W47 N31-N34
      7 1380 1323 (N18W13 L=323)   463    120        0 (1318/1291-1431/1350)  -8.1 W09-W16 N17-N19
      8 1776 1120 (N18W46 L=355)  1302    252        2 (1736/1018-1810/1261) -61.7 W42-W50 N13-N26
      9  667 1213 (S05E25 L=285)   222     67        0 ( 637/1189- 701/1234)  53.1 E26-E22 S06-S02
     10  114 1098 (S20E73 L=236)  1103     93        4 (  96/1045- 132/1139)  90.0 E77-E70 S22-S17
     11  627 1058 (S14E24 L=285)   505    206        0 ( 604/ 972- 672/1130) -83.7 E25-E21 S18-S09
     12  776 1102 (S09E16 L=294)   223     52        2 ( 758/1072- 794/1130) -33.7 E17-E14 S09-S07
     13 1599  996 (N06W34 L=344)   615    207        1 (1500/ 959-1677/1042)  36.0 W28-W39 N01-N10
     14  654  828 (S27E18 L=291)   371     65        1 ( 614/ 801- 688/ 852) -11.3 E20-E15 S27-S25
     15 1872  698 (S01W71 L= 20)   879     58        1 (1843/ 682-1914/ 718)   7.6 W65-W80 S02-N01
     16  383  621 (S46E40 L=269)  1855    372        2 ( 232/ 557- 557/ 667)   0.0 E61-E21 S47-S42
     17 1789  540 (S11W71 L= 20)  1421    168        8 (1749/ 463-1829/ 600) -53.1 W67-W78 S15-S07
     18  812  427 (S48W03 L=313)   230     58        0 ( 785/ 403- 836/ 451)  -9.5 W00-W06 S49-S47
     19 1565  417 (S25W58 L=  7)   801     99        2 (1515/ 391-1619/ 437)  16.7 W52-W62 S26-S23
     20 1442  260 (S38W64 L= 13)  1336    139        3 (1370/ 232-1505/ 288)  14.0 W55-W71 S40-S34
  

    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