Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1470 1638 (N27W52 L=342)   798    235        1 (1379/1560-1544/1712) -85.6 W50-W54 N20-N33
      2  643 1565 (N50E11 L=279)   340     82        1 ( 616/1523- 666/1604)  45.0 E13-E08 N47-N52
      3  940 1539 (N38W11 L=301)  1184    257        5 ( 830/1497-1057/1575) -20.6 W03-W19 N33-N42
      4  425 1526 (N54E36 L=254)   396     56        1 ( 405/1492- 438/1556) -68.2 E39-E33 N51-N56
      5  335 1517 (N56E51 L=239)   792     91        0 ( 292/1490- 390/1537)  -6.3 E59-E41 N54-N57
      6 1690 1387 (N06W54 L=343)   944    145        2 (1641/1330-1726/1450)  26.6 W47-W58 N04-N09
      7 1365 1344 (N14W29 L=319)   453    106        1 (1321/1316-1405/1388) -71.6 W27-W31 N11-N17
      8  678 1215 (N26E16 L=274)   273     77        1 ( 653/1184- 706/1241)  21.8 E18-E13 N24-N28
      9  184 1177 (N35E64 L=226)   774     77        2 ( 148/1146- 220/1207) -19.7 E71-E57 N32-N37
     10  735 1130 (N20E14 L=276)   222     81        0 ( 704/1095- 756/1156) -63.4 E15-E13 N17-N21
     11 1691 1061 (S11W42 L=331)   304     14        0 (1671/1041-1710/1084)  45.0 W40-W43 S12-S09
     12  715  910 (N08E21 L=269)   417    118        1 ( 658/ 888- 774/ 930) -23.2 E23-E16 N06-N09
     13 1600  729 (S27W28 L=317)   735    339        0 (1528/ 601-1691/ 858)  32.9 W20-W37 S33-S22
     14  260  764 (N09E59 L=230)   450     70        3 ( 236/ 732- 289/ 787) -21.8 E61-E56 N07-N10
     15  819  693 (S07E20 L=269)   432    105        1 ( 772/ 677- 873/ 713) -38.7 E22-E17 S08-S04
     16 1011  615 (S16E12 L=278)   615    175        0 ( 962/ 584-1049/ 674)  26.6 E15-E08 S18-S13
     17 1351  571 (S29W07 L=296)   936    206        2 (1281/ 509-1410/ 665)  24.8 W00-W13 S31-S24
     18 1692  573 (S42W36 L=325)  1229    120        3 (1655/ 513-1728/ 628)  66.8 W31-W40 S46-S37
     19 1058  227 (S45E28 L=261)  1585    232        1 ( 941/ 184-1143/ 283)   5.2 E40-E18 S47-S42
  

    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