Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1179 1715 (N48W31 L=327)   475     68        1 (1147/1684-1214/1737)  14.0 W26-W34 N46-N50
      2 1303 1628 (N39W35 L=331)   969    146        2 (1258/1577-1353/1681) -83.7 W31-W37 N34-N43
      3 1655 1561 (N26W63 L=359)   583    103        0 (1610/1525-1696/1594) -56.3 W59-W65 N23-N29
      4 1231 1558 (N36W26 L=322)   309     67        0 (1195/1530-1258/1575) -36.9 W23-W27 N33-N37
      5 1152 1511 (N34W18 L=314)   312    107        0 (1129/1463-1181/1558)  81.9 W17-W20 N30-N37
      6  251 1135 (N22E57 L=239)   781    182        1 ( 217/1044- 268/1206) -59.0 E62-E54 N16-N26
      7  673 1133 (N18E21 L=275)   724    277        0 ( 548/1087- 791/1184) -26.6 E29-E13 N13-N22
      8  537  973 (N10E32 L=264)   287    130        0 ( 492/ 921- 580/1011) -50.2 E34-E29 N06-N12
      9 1651  904 (S12W39 L=335)  1366    253        0 (1578/ 793-1709/1011)  45.0 W32-W45 S17-S06
     10 1896  910 (S18W67 L=  3)  1169    123        0 (1875/ 844-1911/ 970) -60.9 W63-W71 S22-S13
     11 1205  887 (S05W09 L=305)   390     71        1 (1185/ 846-1225/ 924)  63.4 W07-W10 S06-S02
     12 1797  873 (S17W53 L=349)   431    126        0 (1748/ 843-1842/ 920)  10.3 W47-W58 S18-S15
     13 1642  706 (S25W38 L=334)   409    135        1 (1603/ 647-1668/ 762)  50.2 W34-W40 S27-S20
     14 1090  231 (S51E13 L=283)   396     52        1 (1061/ 213-1119/ 248)  15.9 E16-E09 S52-S49
  

    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