Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1311 1579 (N40W19 L=298)  7635   1189       10 ( 771/1442-1790/1726)  -5.7 E29-W71 N31-N48
      2  313 1192 (N08E51 L=229)  2268    401        5 ( 256/1015- 343/1369) -79.2 E58-E46 S03-N18
      3  974 1180 (N11E04 L=275)  1721    424        1 ( 935/ 975-1000/1367) -77.2 E07-E01 N00-N22
      4 1665 1298 (N22W45 L=324)   451     96        0 (1641/1256-1685/1344) -71.6 W43-W46 N19-N25
      5 1738 1284 (N22W52 L=331)   413     90        0 (1727/1233-1750/1327)  56.3 W49-W53 N18-N24
      6  560 1281 (N15E32 L=247)   262    101        2 ( 517/1250- 610/1304)  15.9 E35-E28 N12-N16
      7  457 1232 (N11E39 L=240)   398     77        1 ( 433/1197- 479/1271)  76.0 E40-E37 N09-N13
      8  468 1160 (N07E37 L=242)   227     95        0 ( 449/1135- 508/1192) -26.6 E38-E34 N05-N08
      9  525  761 (S17E32 L=248)  1387    455        1 ( 476/ 563- 562/ 952)  72.3 E37-E28 S30-S05
     10  211  906 (S11E60 L=220)   684     95        0 ( 167/ 880- 256/ 932)   0.0 E65-E54 S12-S09
     11  966  615 (S24E01 L=278)   495    141        0 ( 903/ 585-1025/ 653)  35.5 E05-W02 S25-S20
     12 1775  553 (S24W67 L=347)  2076    149        3 (1717/ 508-1827/ 584)  -2.7 W58-W79 S27-S22
     13 1528  446 (S33W44 L=324)  2588    378        6 (1327/ 365-1673/ 507)  17.8 W28-W58 S39-S27
     14 1136  314 (S46W16 L=295)   335     37        0 (1106/ 297-1161/ 333)   0.0 W12-W17 S47-S43
  

    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