Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1438 1596 (N25W44 L=199)   349     95        1 (1392/1579-1484/1616) -38.7 W41-W47 N22-N26
      2 1822 1474 (N06W73 L=227)   945    117        1 (1768/1437-1852/1496) -11.3 W65-W80 N04-N08
      3 1309 1439 (N20W28 L=183)   786    244        3 (1213/1391-1402/1488)  -8.1 W21-W35 N17-N21
      4 1135 1341 (N19W15 L=169)   384    143        0 (1108/1271-1172/1394)  35.5 W11-W18 N15-N21
      5 1885 1308 (S04W70 L=225)   574    103        1 (1854/1264-1913/1354) -66.8 W67-W73 S07-N00
      6 1588 1223 (N00W38 L=193)   904    173        2 (1531/1148-1626/1292) -83.7 W36-W39 S04-N05
      7  326 1223 (N32E43 L=112)   284     34        1 ( 307/1204- 347/1246) -26.6 E44-E40 N30-N33
      8  398 1084 (N22E38 L=117)   750    160        2 ( 352/1005- 426/1148) -71.6 E40-E35 N17-N26
      9 1857 1070 (S16W57 L=212)   898    132        2 (1836/1008-1877/1135) -90.0 W54-W60 S19-S11
     10  227  995 (N21E55 L=100)  1201    198        1 ( 195/ 924- 286/1079) -59.0 E58-E50 N15-N25
     11 1716 1004 (S15W42 L=197)   887    201        2 (1640/ 946-1770/1045) -45.0 W36-W46 S19-S10
     12 1817  993 (S19W51 L=206)   474     90        1 (1799/ 946-1833/1042) -80.5 W49-W53 S21-S15
     13  139  976 (N21E67 L= 88)   696    117        1 ( 112/ 913- 171/1023) -45.0 E71-E63 N17-N24
     14 1012  900 (S02E04 L=151)  1071    270        1 ( 907/ 806-1077/ 986) -67.4 E07-E01 S08-N04
     15 1524  926 (S14W26 L=181)   575    145        2 (1483/ 856-1551/ 975)  56.3 W23-W29 S17-S11
     16 1731  914 (S21W42 L=197)   434     81        1 (1707/ 871-1756/ 948)  53.1 W39-W44 S23-S19
     17 1582  907 (S17W30 L=185)   453     87        1 (1544/ 876-1620/ 940)   8.1 W26-W33 S17-S15
     18  459  911 (N11E37 L=118)   312     87        1 ( 417/ 887- 486/ 939)  11.3 E39-E34 N09-N12
     19 1663  862 (S22W35 L=190)   363     91        1 (1636/ 836-1699/ 889) -45.0 W32-W37 S24-S20
     20 1847  719 (S37W55 L=210)   921     89        0 (1807/ 689-1874/ 762)  12.5 W49-W58 S39-S34
     21  851  567 (S17E22 L=133)  1571    483        1 ( 696/ 440-1013/ 726)  17.8 E36-E08 S21-S11
     22 1504  675 (S28W20 L=175)   255     66        0 (1470/ 662-1543/ 694) -31.0 W18-W23 S29-S26
     23  294  578 (S04E62 L= 93)  1924    294        1 ( 201/ 493- 386/ 690) -52.4 E68-E56 S10-N03
     24 1228  591 (S25W01 L=155)  1380    359        0 (1078/ 516-1388/ 681)   2.6 E10-W12 S27-S23
     25  494  532 (S11E46 L=108)  1236    286        5 ( 419/ 443- 585/ 631) -77.9 E50-E41 S18-S04
     26  357  598 (S04E55 L=100)   504     71        0 ( 335/ 556- 381/ 628)  78.7 E56-E53 S07-S02
     27  476  434 (S17E54 L=101)   357     51        1 ( 449/ 412- 506/ 457) -33.7 E55-E50 S18-S14
     28  918  416 (S28E24 L=131)   362    115        0 ( 874/ 384- 969/ 448)  12.5 E28-E19 S29-S27
     29  566  308 (S27E56 L= 99)   382     82        0 ( 548/ 274- 579/ 354)  29.1 E60-E51 S28-S23
  

    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