Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  580 1751 (N71E20 L=108)  1330    149        3 ( 530/1702- 628/1789)  35.0 E32-E10 N65-N74
      2 1360 1704 (N36W50 L=178)   319     96        0 (1314/1689-1406/1717) -33.7 W46-W52 N33-N37
      3 1560 1620 (N24W59 L=187)   388    108        0 (1531/1578-1597/1659)  80.5 W57-W60 N20-N26
      4 1249 1613 (N34W35 L=163)   445    149        1 (1183/1592-1321/1646) -49.4 W31-W38 N30-N38
      5 1752 1489 (N10W68 L=196)   520     72        1 (1716/1467-1782/1513) -23.2 W62-W70 N08-N11
      6 1391 1452 (N21W35 L=163)   631    226        1 (1296/1415-1497/1480) -42.0 W30-W41 N15-N24
      7  829 1371 (N32E03 L=125)   236     62        0 ( 806/1345- 853/1400) -68.2 E03-E01 N29-N34
      8  322 1301 (N40E47 L= 81)   611     92        3 ( 287/1262- 357/1341) -50.2 E52-E42 N37-N43
      9  773 1241 (N26E10 L=118)   679    228        1 ( 700/1204- 880/1304) -45.0 E13-E03 N21-N31
     10  500  927 (N14E34 L= 94)   681    167        2 ( 435/ 903- 585/ 963) -33.7 E39-E28 N10-N16
     11  338  905 (N15E48 L= 80)   353     64        2 ( 322/ 874- 356/ 940) -76.0 E49-E46 N13-N17
     12  191  893 (N17E65 L= 63)   517     61        1 ( 172/ 869- 214/ 922) -71.6 E67-E61 N15-N18
     13  742  888 (N06E20 L=109)   244     79        2 ( 715/ 839- 766/ 916)  53.1 E20-E17 N03-N08
     14 1269  776 (S13W08 L=136)   328     92        0 (1252/ 726-1286/ 819)  59.0 W06-W09 S16-S11
     15  261  755 (N08E60 L= 68)   653    106        2 ( 227/ 726- 311/ 794) -29.7 E63-E54 N05-N10
     16  864  650 (S10E19 L=109)   266     86        1 ( 829/ 614- 894/ 679)  21.8 E21-E16 S11-S08
     17 1559  608 (S33W24 L=152)   378     66        1 (1535/ 573-1573/ 642)  63.4 W21-W25 S35-S31
     18  698  583 (S11E31 L= 97)   327     85        1 ( 680/ 533- 714/ 625)  71.6 E33-E29 S13-S07
     19  508  471 (S14E50 L= 78)   934    165        2 ( 479/ 409- 545/ 547)  56.3 E53-E46 S17-S08
     20  433  450 (S14E58 L= 70)   623     82        0 ( 407/ 414- 464/ 473)  63.4 E61-E54 S16-S12
     21  838  341 (S30E33 L= 95)   476    110        1 ( 788/ 300- 877/ 375)  16.7 E39-E29 S31-S27
  

    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