Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1757 1496 (N18W69 L=158)  1088    115        4 (1713/1465-1809/1530) -33.7 W63-W76 N14-N20
      2 1553 1446 (N21W45 L=135)   543     80        2 (1529/1411-1582/1484)  15.9 W42-W49 N18-N22
      3 1735 1414 (N14W60 L=150)  1043    133        3 (1690/1348-1775/1464) -81.9 W56-W64 N09-N16
      4  631 1402 (N36E21 L= 69)   258     90        0 ( 610/1362- 653/1443)  45.0 E22-E18 N34-N39
      5  159 1140 (N25E69 L= 20)  1748    178        4 ( 119/1052- 192/1207) -34.7 E79-E63 N19-N28
      6 1706 1129 (S01W47 L=136)   398    119        2 (1673/1088-1748/1172) -59.0 W43-W49 S04-N01
      7  226 1121 (N23E59 L= 31)   467     63        1 ( 208/1091- 246/1152)  53.1 E61-E56 N21-N25
      8 1930 1103 (S09W74 L=164)  1595     93        5 (1910/1061-1953/1150) -90.0 W69-W83 S12-S06
      9 1781 1005 (S10W51 L=141)   349     83        0 (1763/ 967-1794/1052)  59.0 W48-W52 S12-S07
     10 1240  883 (S05W10 L=100)   627    233        4 (1174/ 818-1309/ 980) -65.6 W07-W13 S10-N01
     11 1855  895 (S19W59 L=148)  1437    148        5 (1810/ 850-1909/ 929)   0.0 W53-W68 S21-S16
     12 1524  896 (S10W29 L=118)   261     49        0 (1505/ 873-1547/ 926) -63.4 W27-W30 S12-S08
     13  363  839 (N05E47 L= 42)   559    134        2 ( 314/ 799- 418/ 879)  15.3 E52-E41 N03-N07
     14 1299  770 (S13W12 L=102)   566    107        5 (1254/ 730-1333/ 816)  36.9 W09-W14 S16-S11
     15  319  579 (S11E61 L= 29)  3167    191        8 ( 272/ 498- 397/ 668) -63.4 E71-E54 S16-S04
     16  720  564 (S16E28 L= 62)   480    129        2 ( 696/ 499- 742/ 631)  71.6 E29-E26 S20-S11
     17 1453  538 (S32W20 L=110)   918    161        3 (1377/ 513-1509/ 593) -11.3 W14-W24 S34-S29
     18  491  470 (S20E49 L= 40)   728     99        3 ( 464/ 415- 519/ 520)  37.9 E54-E44 S23-S16
     19 1017  457 (S29E12 L= 78)   477     79        1 ( 998/ 412-1044/ 503)  56.3 E13-E09 S31-S25
     20 1580  359 (S53W37 L=127)   523     48        1 (1562/ 333-1607/ 383) -50.2 W33-W41 S55-S49
     21  599  327 (S31E49 L= 40)  1243    171        0 ( 516/ 301- 685/ 350)  -3.4 E58-E40 S33-S29
  

    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