Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1040 1591 (N33W01 L=158)   663    158        1 ( 951/1571-1126/1608)  -5.2 E04-W07 N31-N34
      2 1635 1523 (N29W45 L=202)   392    106        0 (1595/1510-1680/1538)  -8.1 W41-W49 N27-N29
      3 1446 1158 (N05W26 L=183)   687    110        2 (1400/1101-1478/1214) -60.3 W23-W28 N01-N08
      4  245 1022 (S02E54 L=103)  1235    239        2 ( 199/ 972- 285/1079) -29.1 E59-E50 S04-N01
      5 1374  904 (S10W22 L=178)  1022    327        1 (1276/ 726-1467/1027)  58.6 W16-W27 S21-S03
      6  317  954 (S06E48 L=109)   398    111        1 ( 296/ 902- 338/1011)  66.8 E49-E45 S09-S02
      7  182  971 (S04E62 L= 95)   754    125        2 ( 145/ 937- 209/1004)  29.7 E66-E58 S06-S02
      8  364  773 (S17E46 L=111)  1856    489        4 ( 290/ 621- 429/ 929)  57.7 E54-E39 S26-S07
      9  224  804 (S14E58 L= 98)  2988    457        8 ( 160/ 730- 298/ 889) -45.0 E65-E51 S19-S09
     10 1836  789 (S16W60 L=217)  3252    619       10 (1740/ 706-1908/ 883)  36.3 W50-W69 S21-S10
     11 1689  770 (S18W46 L=203)   589    173        4 (1631/ 726-1752/ 811)  29.1 W41-W51 S20-S15
     12  426  627 (S26E43 L=114)   623    249        0 ( 360/ 580- 520/ 678)  20.6 E50-E34 S29-S23
     13  302  585 (S28E56 L=101)   447    117        4 ( 269/ 561- 331/ 617)  -9.5 E59-E53 S30-S26
     14  587  527 (S34E33 L=124)   775    212        1 ( 567/ 448- 617/ 614)  63.4 E35-E28 S39-S27
     15 1552  542 (S33W39 L=196)   327     88        0 (1503/ 511-1593/ 565)  33.7 W36-W42 S35-S31
  

    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