Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  954 1742 (N39E19 L=136)   472    108        1 ( 884/1729-1005/1759)  20.6 E23-E15 N37-N41
      2  661 1621 (N25E35 L=120)   495    115        2 ( 622/1580- 692/1655) -35.5 E38-E31 N22-N27
      3  462 1490 (N14E45 L=110)  2378    485        3 ( 410/1267- 502/1647) -52.0 E55-E36 N01-N24
      4  317 1525 (N16E60 L= 95)  2334    350        5 ( 199/1406- 421/1629)  53.1 E69-E52 N07-N23
      5  344 1415 (N09E53 L=103)   984    154        2 ( 300/1345- 396/1465)  63.4 E56-E49 N04-N12
      6  724 1378 (N10E24 L=131)   367    136        1 ( 675/1353- 791/1418)  -7.1 E27-E19 N08-N12
      7 1049 1212 (N05E01 L=154)   348    122        1 ( 996/1149-1080/1251) -45.0 E04-W01 N01-N06
      8  244 1021 (S16E54 L=101)   926    268        3 ( 194/ 918- 318/1126)  61.7 E58-E47 S21-S08
      9 1210  927 (S09W12 L=167)   454    216        0 (1121/ 846-1258/ 967)  -6.3 W06-W15 S13-S06
     10 1356  776 (S15W24 L=179)   626    191        1 (1272/ 749-1466/ 806)  28.6 W19-W30 S17-S11
     11  468  713 (S33E34 L=121)   293     74        0 ( 438/ 686- 501/ 731)  31.0 E36-E31 S34-S31
     12  318  572 (S44E50 L=105)   814    171        0 ( 285/ 525- 350/ 620)  35.0 E55-E45 S46-S39
     13  468  495 (S48E37 L=118)  1051    216        1 ( 385/ 477- 550/ 532)   9.5 E46-E28 S49-S45
     14  858  205 (S67W07 L=162)   595     67        2 ( 834/ 182- 886/ 233)  23.2 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