Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  974 1777 (N38E31 L= 66)   321     41        1 ( 953/1761- 999/1796) -21.8 E33-E28 N36-N40
      2 1145 1537 (N27E08 L= 89)   431    104        1 (1119/1488-1169/1599) -45.0 E11-E05 N24-N30
      3  773 1477 (N13E28 L= 70)   223     87        0 ( 760/1435- 796/1513) -78.7 E28-E26 N10-N15
      4  884 1422 (N12E19 L= 78)   258    101        3 ( 855/1377- 909/1452) -31.0 E21-E16 N10-N13
      5 1462 1330 (N24W17 L=115)   347     65        0 (1421/1313-1493/1351)  21.8 W14-W19 N21-N25
      6 1118 1285 (N11E02 L= 95)   583    267        1 (1018/1188-1179/1345) -18.4 E09-W03 N07-N12
      7 1662 1079 (N16W37 L=134)   636    143        0 (1607/1031-1718/1129)  -5.2 W31-W42 N14-N17
      8  940  611 (S31W08 L=105)   254     61        1 ( 913/ 588- 964/ 632)  56.3 W06-W09 S32-S29
      9 1052  602 (S29W15 L=112)   396     77        0 (1016/ 581-1100/ 618)  45.0 W12-W17 S30-S26
     10  517  543 (S50E23 L= 75)   267     29        0 ( 497/ 526- 540/ 565)   0.0 E25-E20 S50-S48
     11 1086  438 (S37W25 L=122)   422     94        0 (1045/ 398-1121/ 476)  81.9 W23-W26 S40-S33
     12 1526  376 (S25W60 L=157)   615    114        0 (1473/ 341-1576/ 420)  74.1 W57-W61 S28-S21
     13 1392  323 (S33W54 L=152)   578     98        1 (1346/ 305-1434/ 345)  11.3 W48-W58 S34-S30
  

    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