Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1618 1648 (N34W66 L=315)   948     91        3 (1577/1625-1665/1665)   0.0 W59-W75 N32-N35
      2  375 1545 (N47E56 L=193)  2005    265        4 ( 340/1424- 409/1656) -22.5 E86-E45 N38-N55
      3 1339 1428 (N26W28 L=276)   367    116        0 (1282/1409-1392/1442) -23.2 W23-W30 N23-N27
      4 1824 1369 (N13W69 L=318)   762    128        1 (1808/1301-1839/1425)  45.0 W65-W74 N08-N15
      5  590 1401 (N35E27 L=222)  1595    401        2 ( 409/1354- 759/1424)  -9.5 E43-E13 N29-N37
      6 1008 1405 (N30W05 L=253)   234    102        0 ( 967/1391-1062/1419) -15.9 W01-W08 N28-N31
      7 1261 1272 (N18W18 L=267)   545    129        2 (1222/1201-1294/1322)  74.1 W16-W19 N13-N20
      8 1626 1252 (N10W43 L=292)   627    161        1 (1557/1205-1697/1279) -35.0 W38-W48 N06-N13
      9  195 1000 (N12E63 L=186)  1222    235        3 ( 167/ 909- 218/1110)  67.4 E67-E59 N06-N18
     10 1920 1008 (S11W71 L=320)  3089    235        4 (1872/ 904-1954/1078)  31.0 W63-W82 S16-S06
     11  118 1000 (N12E76 L=172)  2509     73        1 (  89/ 953- 149/1031) -35.5 E89-E69 N08-N13
     12  704  814 (S03E22 L=226)   417    149        3 ( 660/ 771- 768/ 838) -15.9 E25-E18 S05-S01
     13  208  646 (S10E72 L=176)  4841    297        5 ( 144/ 540- 272/ 766) -65.0 E87-E65 S17-S02
     14 1738  706 (S26W48 L=297)   357     50        1 (1723/ 678-1755/ 736) -53.1 W46-W50 S27-S23
     15  501  680 (S09E39 L=210)   373     70        3 ( 470/ 652- 525/ 716)  53.1 E41-E36 S11-S06
     16  612  688 (S10E31 L=218)   252     61        0 ( 588/ 662- 638/ 713) -63.4 E32-E29 S11-S07
     17  565  658 (S11E35 L=214)   392    109        1 ( 540/ 631- 598/ 697) -78.7 E36-E32 S13-S08
     18 1628  635 (S28W38 L=287)   444     97        0 (1575/ 618-1670/ 653) -14.0 W33-W41 S29-S26
     19  583  605 (S15E35 L=214)   453    148        2 ( 534/ 575- 635/ 641)   7.1 E38-E30 S16-S12
     20  354  483 (S22E62 L=187)  2198    193        4 ( 333/ 382- 379/ 570)  36.9 E77-E54 S30-S15
     21  776  513 (S23E24 L=225)   531    132        1 ( 719/ 476- 824/ 557)  24.0 E28-E19 S25-S20
     22  667  503 (S23E32 L=217)   715    145        3 ( 623/ 443- 714/ 551)  45.0 E37-E28 S26-S19
     23 1676  456 (S44W50 L=299)  1225    127        4 (1620/ 429-1717/ 502)   0.0 W41-W60 S47-S40
     24  984  162 (S58E26 L=223)   589     43        1 ( 958/ 143-1009/ 191)  66.8 E30-E23 S60-S53
  

    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