Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  715 1498 (N31E25 L=355)   531    176        1 ( 640/1436- 773/1533) -18.4 E31-E19 N27-N33
      2 1588 1500 (N35W44 L= 64)   387     48        0 (1569/1472-1607/1528) -71.6 W42-W45 N33-N37
      3  468 1481 (N28E45 L=335)   355     73        2 ( 449/1441- 490/1518) -78.7 E46-E43 N25-N30
      4 1463 1468 (N32W31 L= 51)   314     49        1 (1439/1446-1489/1489) -26.6 W29-W33 N30-N34
      5  637 1452 (N28E30 L=350)   233     73        3 ( 613/1432- 661/1488)  76.0 E31-E27 N26-N30
      6 1079 1432 (N29W02 L= 22)   531    248        3 (1030/1369-1145/1473) -56.3 E01-W06 N24-N31
      7 1199 1413 (N28W10 L= 31)   216     81        0 (1172/1395-1235/1440) -26.6 W08-W12 N26-N29
      8 1280 1314 (N22W16 L= 36)   221     66        2 (1250/1296-1306/1344)   0.0 W13-W17 N20-N23
      9  918 1221 (N14E08 L= 13)   268     78        1 ( 879/1203- 962/1244)  -9.5 E10-E04 N13-N15
     10  391 1007 (S02E42 L=338)  1810    477        9 ( 325/ 798- 460/1190) -73.1 E49-E36 S14-N09
     11  297  872 (S11E51 L=329)  1305    294        7 ( 258/ 747- 331/ 983)  71.6 E55-E47 S18-S03
     12 1540  890 (S04W34 L= 54)   320     89        1 (1506/ 859-1571/ 925) -36.9 W31-W36 S05-S01
     13  896  881 (S07E07 L= 13)   195     68        1 ( 882/ 851- 911/ 918)  76.0 E08-E06 S08-S04
     14 1021  770 (S13W01 L= 21)   263    154        5 (1000/ 707-1042/ 859) -78.7 W00-W02 S17-S07
     15  858  788 (S13E09 L= 11)   421    159        0 ( 803/ 725- 889/ 841) -60.3 E13-E07 S16-S09
     16 1684  769 (S11W47 L= 68)   559    108        3 (1638/ 728-1719/ 805)  23.2 W43-W50 S13-S08
     17  662  699 (S19E23 L=358)   993    243        3 ( 601/ 598- 726/ 794) -67.4 E26-E18 S25-S13
     18  736  733 (S17E17 L=  3)   403     55        3 ( 712/ 700- 769/ 764)  78.7 E18-E15 S19-S14
     19  321  597 (S29E55 L=325)  2558    472        7 ( 234/ 474- 468/ 758) -46.6 E64-E43 S37-S18
     20 1856  734 (S14W69 L= 89)   682     78        1 (1817/ 708-1891/ 753)   9.5 W63-W75 S15-S12
     21  792  669 (S21E14 L=  7)   229     64        2 ( 770/ 630- 812/ 693)  63.4 E15-E12 S23-S19
     22  911  535 (S29E06 L= 15)  3468    645       14 ( 644/ 422-1173/ 671)  24.1 E27-W11 S39-S18
     23  561  618 (S26E31 L=349)   640    151        2 ( 525/ 578- 628/ 660)  29.1 E34-E25 S28-S22
     24 1330  500 (S30W25 L= 45)   882    274        1 (1220/ 444-1435/ 549)  25.0 W17-W32 S34-S26
     25 1190  262 (S51W22 L= 42)   370    133        2 (1150/ 246-1249/ 296)  11.3 W17-W27 S52-S47
  

    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