Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1256 1742 (N46W08 L=260)  1472    210        3 (1161/1689-1351/1776) -10.6 W00-W16 N42-N48
      2  357 1534 (N20E56 L=196)  1626    190        3 ( 310/1448- 401/1608) -47.7 E65-E51 N14-N25
      3 1027 1433 (N19E05 L=247)  1123    309        2 ( 908/1330-1140/1534) -32.0 E13-W03 N13-N24
      4 1617 1434 (N28W37 L=289)   288     91        0 (1594/1387-1640/1472) -63.4 W35-W38 N24-N30
      5 1522 1397 (N24W29 L=281)  1100    272        5 (1428/1333-1640/1469) -16.4 W21-W38 N20-N27
      6 1731 1316 (N22W46 L=298)  1541    339        0 (1694/1155-1764/1460)  87.1 W43-W50 N11-N31
      7 1844 1191 (N16W57 L=309)  2099    392        3 (1782/1037-1913/1351) -59.5 W51-W66 N07-N26
      8  162  912 (S18E66 L=186)   477     72        1 ( 140/ 873- 185/ 947)  29.7 E69-E62 S20-S16
      9  134  827 (S23E73 L=179)   824     64        1 ( 101/ 808- 159/ 852)   0.0 E83-E68 S24-S21
     10  355  726 (S30E46 L=205)   746    183        1 ( 307/ 644- 404/ 799)  37.6 E54-E40 S34-S24
     11 1830  668 (S15W68 L=320)  3431    228       11 (1755/ 574-1880/ 774) -72.9 W56-W77 S20-S07
     12 1187  608 (S29W16 L=268)  1434    420        1 (1038/ 485-1350/ 718)  49.9 W08-W24 S38-S19
     13  862  463 (S43E05 L=247)   261     62        0 ( 844/ 434- 879/ 495) -76.0 E06-E03 S45-S40
  

    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