Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  467 1631 (N39E44 L= 79)   331     66        0 ( 457/1596- 477/1668) -63.4 E46-E41 N36-N42
      2 1550 1618 (N33W44 L=167)   956    115        2 (1496/1578-1597/1650) -33.7 W39-W47 N30-N35
      3  714 1610 (N36E20 L=103)   619    139        2 ( 666/1538- 749/1644) -53.1 E24-E17 N30-N38
      4 1027 1537 (N29W02 L=125)   904    264        1 ( 912/1485-1160/1590) -18.4 E05-W10 N25-N32
      5  229 1507 (N32E69 L= 55)   736     43        1 ( 199/1486- 256/1521)   0.0 E77-E63 N30-N33
      6  898 1329 (N16E07 L=116)   345    152        0 ( 855/1260- 931/1383) -63.4 E09-E04 N11-N19
      7 1273 1331 (N15W16 L=140)   246     62        0 (1243/1316-1309/1346)   0.0 W14-W18 N14-N15
      8  877 1226 (N10E08 L=115)   349    121        0 ( 860/1163- 896/1281) -90.0 E09-E06 N06-N13
      9 1781 1057 (S02W51 L=174)  1584    337        3 (1717/ 939-1836/1156) -76.0 W45-W57 S09-N03
     10 1890 1090 (S00W63 L=187)   776    142        2 (1848/1015-1910/1134) -56.3 W58-W66 S04-N02
     11  464  876 (S09E36 L= 87)  1507    297        8 ( 391/ 812- 596/ 984) -36.9 E41-E27 S12-S02
     12 1753  878 (S13W49 L=172)   660     90        2 (1724/ 844-1781/ 916) -45.0 W46-W51 S14-S10
     13 1662  848 (S15W42 L=165)  1131    260        1 (1582/ 752-1709/ 909) -52.1 W35-W45 S20-S11
     14 1552  813 (S17W33 L=157)   410     86        1 (1513/ 777-1582/ 856)  45.0 W30-W35 S18-S14
     15  252  788 (S13E56 L= 67)   507     87        1 ( 217/ 750- 279/ 828) -51.3 E58-E53 S15-S10
     16  149  773 (S13E70 L= 53)   505     54        0 ( 131/ 741- 164/ 802) -76.0 E72-E67 S14-S10
     17 1740  685 (S25W52 L=175)   815    203        2 (1660/ 608-1811/ 762)  39.3 W46-W57 S29-S19
     18  306  673 (S20E54 L= 69)   416     56        0 ( 290/ 637- 319/ 709)  45.0 E56-E51 S22-S17
     19 1033  643 (S26E01 L=122)   392    124        0 ( 992/ 599-1062/ 700)  56.3 E03-W01 S28-S22
     20  243  607 (S24E65 L= 58)   891     87        2 ( 198/ 587- 293/ 633)  -4.1 E73-E59 S25-S21
     21  828  535 (S32E16 L=107)   212     70        0 ( 796/ 515- 863/ 550)  11.3 E18-E13 S33-S30
     22  622  398 (S40E36 L= 87)  1207    235        2 ( 538/ 329- 694/ 490)  30.1 E47-E27 S45-S34
     23  829  246 (S54E25 L= 98)   405     45        0 ( 804/ 224- 854/ 271) -53.1 E27-E22 S56-S51
     24 1006  203 (S60E08 L=115)   896    149        1 ( 938/ 181-1071/ 229)   0.0 E16-W00 S62-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