Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1524 1600 (N32W41 L=166)  1086    120        2 (1473/1544-1571/1638) -60.3 W37-W44 N28-N35
      2  705 1557 (N32E21 L=105)   855    243        2 ( 632/1460- 768/1629) -45.0 E27-E15 N25-N38
      3  990 1530 (N29E00 L=125)   914    277        1 ( 879/1476-1122/1580) -18.4 E07-W08 N25-N33
      4 1688 1541 (N28W55 L=180)   371     52        1 (1661/1512-1711/1568) -71.6 W52-W56 N26-N29
      5  856 1336 (N17E09 L=116)   270    130        0 ( 819/1273- 886/1379) -60.3 E11-E07 N12-N19
      6 1267 1332 (N15W16 L=141)   351    117        2 (1228/1291-1318/1358)   0.0 W13-W19 N12-N16
      7  842 1217 (N10E10 L=115)   273    117        1 ( 826/1157- 861/1275)  81.9 E11-E09 N06-N13
      8 1806 1099 (N00W55 L=180)  1986    400        5 (1684/ 994-1892/1161)   5.4 W43-W64 S06-N03
      9 1770  994 (S06W51 L=176)   562    114        1 (1729/ 952-1797/1041) -39.8 W47-W53 S08-S03
     10  437  886 (S08E38 L= 87)  1957    343        9 ( 366/ 788- 575/1008) -37.6 E43-E28 S14-N00
     11 1334  924 (S10W18 L=144)   220    132        0 (1272/ 883-1383/ 951) -35.5 W14-W21 S12-S07
     12 1730  880 (S13W48 L=173)   896    103        3 (1699/ 833-1762/ 927) -39.8 W44-W50 S15-S10
     13 1636  845 (S15W40 L=165)  1144    274        6 (1559/ 746-1685/ 906) -45.0 W33-W44 S21-S11
     14  237  776 (S13E59 L= 67)  2150    381        3 ( 130/ 625- 310/ 899) -57.1 E70-E53 S22-S05
     15 1520  809 (S17W31 L=157)   422     80        1 (1481/ 771-1553/ 856)  51.3 W28-W33 S19-S14
     16  503  730 (S18E36 L= 89)   250     86        0 ( 480/ 677- 521/ 762)  80.5 E37-E34 S21-S15
     17  476  678 (S21E39 L= 86)   320     60        2 ( 459/ 648- 494/ 714) -90.0 E41-E37 S22-S18
     18 1007  642 (S26E03 L=122)   305    108        0 ( 976/ 606-1028/ 698)  59.0 E04-E01 S28-S22
     19 1666  634 (S28W46 L=172)   351     99        0 (1621/ 604-1704/ 667)  33.7 W42-W49 S30-S26
     20  245  612 (S23E65 L= 60)  1041     84        1 ( 201/ 590- 287/ 636)  -4.4 E73-E59 S24-S21
     21  609  406 (S40E38 L= 88)  1369    218        4 ( 532/ 331- 673/ 500)  32.3 E48-E29 S45-S33
     22  817  256 (S54E26 L= 99)   492     62        1 ( 778/ 229- 850/ 278) -45.0 E29-E23 S56-S51
     23  977  208 (S60E12 L=113)   971    138        3 ( 913/ 179-1048/ 233)  -3.6 E18-E02 S63-S57
  

    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