Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  722 1725 (N33E42 L= 52)  1875    495        5 ( 687/1538- 765/1850) -50.4 E51-E31 N20-N43
      2  992 1805 (N47E29 L= 65)   375    132        0 ( 966/1777-1027/1845) -21.8 E34-E24 N45-N50
      3  383 1628 (N19E65 L= 30)  1436    248        2 ( 343/1583- 424/1670) -17.1 E71-E57 N16-N22
      4 1200 1586 (N36E03 L= 91)   277     61        1 (1180/1551-1218/1612) -45.0 E05-E01 N33-N37
      5 1674 1475 (N42W38 L=132)   826    133        2 (1645/1408-1696/1520) -76.0 W34-W39 N37-N46
      6 1043 1420 (N21E08 L= 86)   476    209        0 ( 986/1355-1098/1456) -14.0 E12-E03 N18-N23
      7 1604 1249 (N24W32 L=126)   414    114        2 (1572/1200-1642/1292)  66.8 W29-W34 N21-N28
      8 1319 1250 (N17W12 L=107)   263     64        2 (1297/1205-1337/1273) -63.4 W10-W13 N14-N18
      9 1757 1229 (N27W45 L=140)   345     82        1 (1732/1202-1780/1258)  63.4 W43-W47 N25-N29
     10  165 1172 (S12E67 L= 27)  1013    196        4 ( 131/1112- 195/1245)  71.6 E71-E63 S16-S07
     11  191 1115 (S15E62 L= 33)   712    137        0 ( 162/1057- 216/1174)  66.8 E64-E59 S18-S11
     12  479 1103 (S10E35 L= 59)   354     87        0 ( 442/1080- 525/1120)  31.0 E37-E32 S12-S08
     13 1608 1083 (N14W35 L=129)   510    105        3 (1566/1054-1646/1116)  31.0 W32-W37 N12-N16
     14  432  926 (S22E36 L= 59)   558    154        1 ( 377/ 881- 492/ 958)  41.2 E39-E31 S25-S18
     15 1133  473 (S33W23 L=117)   367     86        1 (1093/ 449-1178/ 499)  51.3 W20-W24 S35-S30
  

    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