Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  994 1833 (N61W31 L=199)   565     90        1 ( 954/1802-1042/1867)   7.1 W24-W41 N59-N62
      2 1295 1804 (N48W53 L=221)   494     49        1 (1270/1771-1319/1825)  16.7 W48-W58 N45-N49
      3 1023 1690 (N48W20 L=188)  1245    155        2 ( 944/1637-1102/1727)  -3.8 W12-W27 N45-N50
      4  410 1591 (N56E49 L=119)   675     79        1 ( 376/1565- 454/1608)   0.0 E56-E41 N54-N57
      5  957 1507 (N37W07 L=175)   241     76        0 ( 914/1493- 998/1517) -31.0 W03-W09 N35-N38
      6 1204 1461 (N29W22 L=190)   603    123        1 (1175/1403-1236/1506)  74.1 W19-W25 N24-N31
      7 1490 1357 (N16W37 L=205)   994    242        0 (1398/1283-1559/1441) -69.0 W33-W39 N09-N22
      8 1756 1399 (N11W61 L=229)   560     91        0 (1731/1360-1777/1434)  63.4 W58-W63 N08-N12
      9  401 1346 (N38E41 L=128)  1103    156        2 ( 350/1282- 456/1409)  31.0 E45-E35 N33-N41
     10  583 1360 (N36E24 L=145)   246     70        0 ( 559/1334- 621/1383)  21.8 E25-E20 N34-N36
     11  325 1054 (N21E47 L=121)  1489    299        2 ( 285/ 909- 369/1184) -76.8 E51-E44 N11-N28
     12  187 1033 (N21E63 L=105)   434     70        0 ( 169/ 987- 202/1065) -51.3 E65-E61 N17-N22
     13 1322  981 (S01W16 L=185)   383    123        0 (1299/ 925-1350/1044)  45.0 W14-W19 S04-N01
     14 1558  829 (S16W29 L=197)   490    143        0 (1513/ 781-1597/ 893)  29.7 W25-W32 S17-S12
     15  283  775 (N04E56 L=112)  1869    236        3 ( 246/ 676- 335/ 881)  61.4 E61-E50 S01-N10
     16 1613  708 (S25W32 L=200)   629    186        0 (1537/ 624-1674/ 768)  22.6 W25-W37 S28-S22
     17 1128  570 (S22E03 L=165)  1430    339        1 (1052/ 448-1192/ 726)  50.9 E10-W03 S29-S13
     18  354  691 (S02E52 L=117)   382     70        0 ( 317/ 676- 386/ 706)  -9.5 E54-E48 S02-N00
     19  701  517 (S17E31 L=137)   967    151        3 ( 639/ 455- 748/ 571) -73.3 E34-E28 S22-S12
     20  492  440 (S19E51 L=117)  3842    343        8 ( 391/ 348- 584/ 538) -66.8 E60-E42 S26-S11
     21  782  433 (S24E29 L=139)   843    227        1 ( 698/ 359- 845/ 510)  29.7 E38-E23 S28-S19
     22 1192  356 (S39E05 L=164)   477     62        1 (1158/ 338-1232/ 383)  -9.5 E07-E01 S41-S36
     23 1340  258 (S54W05 L=173)  1625    244        0 (1237/ 220-1427/ 300)   3.0 E05-W14 S56-S51
     24  633  256 (S35E53 L=115)  1173     94        0 ( 604/ 221- 662/ 296)  26.6 E59-E47 S38-S32
  

    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