Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1005 1870 (N48E39 L=220)   752     79        3 ( 969/1835-1047/1892)  45.0 E42-E35 N44-N51
      2  916 1814 (N39E39 L=220)   814    105        0 ( 893/1758- 946/1862) -51.3 E43-E33 N34-N44
      3 1254 1568 (N33E03 L=256)   790    142        2 (1227/1497-1282/1638) -70.0 E05-W00 N27-N38
      4 1453 1549 (N39W11 L=270)   881    180        2 (1381/1481-1502/1602) -18.4 W04-W16 N35-N41
      5 1546 1357 (N29W22 L=281)   478    117        1 (1513/1303-1585/1404) -23.2 W19-W26 N25-N31
      6  593 1132 (S11E28 L=231)   229     72        0 ( 559/1104- 614/1153) -14.0 E30-E26 S12-S10
      7 1631 1092 (N16W34 L=293)   409     45        0 (1598/1070-1658/1116)  21.8 W31-W36 N14-N17
      8 1669 1042 (N14W38 L=297)   477     73        1 (1626/1022-1703/1072)  26.6 W35-W41 N12-N16
      9 1566  834 (S00W37 L=296)   791    182        3 (1517/ 762-1630/ 912)  78.7 W34-W39 S05-N05
     10  821  876 (S20E07 L=251)   263     63        0 ( 792/ 848- 855/ 902)   0.0 E09-E04 S20-S18
     11  891  561 (S36W07 L=266)   689    278        2 ( 839/ 461- 922/ 677) -76.0 W03-W10 S44-S28
     12  701  621 (S38E08 L=251)   260     81        0 ( 676/ 593- 729/ 649)  59.0 E09-E06 S40-S35
     13  757  453 (S48W02 L=261)   328     77        0 ( 719/ 436- 797/ 474)   9.5 E01-W05 S48-S46
     14 1150  344 (S41W36 L=295)   462     90        0 (1110/ 322-1196/ 370)  14.0 W31-W40 S41-S39
     15 1403  336 (S32W54 L=313)   853     81        1 (1350/ 313-1448/ 357)  18.4 W48-W58 S33-S29
  

    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