Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  968 1741 (N39E18 L=136)   464     96        2 ( 916/1722-1022/1759)  23.2 E21-E14 N37-N40
      2  680 1595 (N24E32 L=122)   753    251        1 ( 629/1515- 728/1667) -48.0 E37-E27 N18-N28
      3  449 1514 (N16E47 L=108)  3192    651        9 ( 342/1265- 510/1650) -54.2 E58-E35 N00-N25
      4  280 1478 (N12E62 L= 93)  1396    253        3 ( 218/1436- 325/1528)  36.9 E68-E56 N09-N15
      5  352 1422 (N09E52 L=103)  1090    190        3 ( 306/1347- 404/1483)  69.4 E57-E48 N04-N13
      6  730 1375 (N10E23 L=131)   319    134        0 ( 684/1352- 797/1416)   0.0 E26-E19 N08-N12
      7 1054 1209 (N05E01 L=153)   437    139        0 ( 998/1145-1096/1241) -38.7 E04-W01 N01-N06
      8  242  992 (S17E54 L=101)  1101    316        4 ( 203/ 870- 320/1123)  59.0 E57-E47 S24-S09
      9 1200  948 (S08W11 L=166)   335    140        0 (1130/ 914-1261/ 967)   7.1 W07-W15 S09-S06
     10 1353  771 (S16W24 L=179)   560    153        0 (1275/ 746-1433/ 803)  29.1 W19-W28 S17-S12
     11  475  711 (S33E33 L=121)   291     78        0 ( 445/ 686- 508/ 728)  31.0 E35-E30 S34-S31
     12  322  572 (S44E50 L=105)   797    183        1 ( 288/ 526- 362/ 612)  36.9 E54-E44 S46-S40
     13  472  494 (S48E37 L=118)  1012    225        3 ( 390/ 478- 553/ 526)   6.7 E46-E28 S49-S45
     14  860  206 (S66W07 L=161)   601     83        2 ( 833/ 182- 889/ 236)   7.1 W02-W10 S69-S63
  

    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