Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1601 1560 (N22W57 L= 36)  1522    265        3 (1558/1448-1636/1667)  31.4 W48-W66 N16-N28
      2 1394 1542 (N27W40 L= 18)   941    147        2 (1327/1480-1450/1597) -84.3 W37-W42 N22-N32
      3 1053 1353 (N25W10 L=348)   357    114        0 (1021/1293-1076/1397)  74.1 W08-W11 N21-N28
      4 1202 1358 (N22W19 L=358)   265     67        1 (1177/1326-1229/1394)  36.9 W17-W22 N20-N23
      5 1383 1328 (N16W29 L=  8)   742    241        1 (1281/1258-1469/1386) -57.5 W24-W33 N09-N21
      6  904 1206 (N20E03 L=335)   218    104        0 ( 857/1187- 945/1233)   0.0 E05-W00 N19-N21
      7  646 1114 (N20E21 L=317)   586    159        1 ( 624/1035- 689/1177)  53.1 E23-E17 N15-N23
      8  131 1026 (N23E74 L=264)   795     52        1 (  99/1009- 164/1047)  -6.7 E84-E67 N21-N23
      9  208  812 (N09E65 L=273)   582    127        0 ( 176/ 755- 242/ 862) -54.5 E68-E61 N05-N12
     10 1396  710 (S20W15 L=354)   451    158        0 (1325/ 680-1440/ 764)   0.0 W10-W18 S21-S17
     11  843  713 (S07E18 L=321)   216     81        0 ( 821/ 677- 876/ 744)  31.0 E19-E14 S08-S05
     12 1541  690 (S26W25 L=  4)   895    205        1 (1468/ 623-1622/ 732)   8.1 W18-W32 S28-S23
     13  752  273 (S35E43 L=295)  2275    342        3 ( 716/ 140- 803/ 455)  31.2 E71-E28 S48-S22
  

    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