Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1256 1836 (N65W06 L= 79)  4663    423        5 (1082/1758-1438/1897)   0.0 E20-W33 N59-N70
      2 1233 1660 (N46W05 L= 79)  2287    399        8 (1044/1582-1375/1710)  -7.9 E12-W18 N42-N48
      3  683 1663 (N36E39 L= 34)   417     81        1 ( 649/1639- 720/1679)  53.1 E41-E36 N33-N37
      4  634 1587 (N29E39 L= 35)   461    130        1 ( 611/1521- 656/1634) -45.0 E41-E34 N25-N33
      5  480 1466 (N19E46 L= 28)   677    138        2 ( 433/1425- 529/1518) -26.6 E50-E40 N17-N22
      6  492 1307 (N10E39 L= 34)   685    171        2 ( 444/1230- 531/1377) -41.6 E44-E34 N05-N13
      7 1685 1209 (N21W44 L=117)   989    168        0 (1635/1136-1733/1272) -41.2 W39-W48 N17-N24
      8 1765 1073 (N14W52 L=125)   542     66        1 (1732/1053-1802/1103)   8.1 W48-W55 N12-N15
      9  563  948 (S11E28 L= 46)   307    134        0 ( 523/ 894- 604/1000)  60.3 E30-E25 S14-S07
     10  252  842 (S22E56 L= 18)   528     75        0 ( 236/ 803- 271/ 880) -53.1 E57-E53 S24-S19
     11  651  802 (S19E21 L= 53)   297     83        0 ( 620/ 774- 676/ 838) -45.0 E23-E18 S20-S16
     12 1362  789 (S09W25 L= 98)   227    112        0 (1335/ 754-1402/ 824)  59.0 W23-W26 S11-S06
     13  406  722 (S28E40 L= 34)   504    159        0 ( 355/ 672- 453/ 786)  42.0 E46-E35 S31-S22
     14  829  673 (S24E07 L= 66)   984    416        1 ( 657/ 640-1008/ 717)  14.6 E19-W04 S28-S19
     15 1425  665 (S16W32 L=106)   417     98        1 (1380/ 640-1457/ 689)  21.8 W28-W33 S17-S14
     16 1706  650 (S13W56 L=129)   462     61        1 (1688/ 623-1727/ 676) -71.6 W53-W58 S14-S11
     17  503  613 (S34E32 L= 42)   616    155        0 ( 438/ 583- 580/ 642)  24.8 E38-E25 S36-S30
     18 1276  557 (S25W25 L= 98)   417    188        0 (1199/ 510-1347/ 605)  48.4 W20-W28 S29-S20
     19 1414  563 (S23W34 L=108)   284    102        1 (1386/ 509-1443/ 605) -45.0 W31-W38 S25-S19
     20  784  187 (S69E07 L= 67)  1094    115        2 ( 745/ 146- 819/ 233) -53.1 E13-W00 S76-S63
     21 1039  147 (S66W35 L=108)   587     61        1 (1019/ 122-1061/ 179) -22.8 W28-W47 S69-S61
  

    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