Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1030 1414 (N20E09 L=230)   225     67        0 (1015/1380-1040/1451) -53.1 E10-E07 N18-N22
      2 1339 1370 (N25W11 L=251)   333     61        0 (1310/1339-1364/1399) -21.8 W08-W13 N23-N26
      3  920 1251 (N08E11 L=228)   597    165        3 ( 861/1179- 982/1310) -33.7 E16-E06 N04-N10
      4  397 1103 (S12E42 L=198)  1175    216        1 ( 347/1002- 437/1205)  77.0 E44-E39 S18-S05
      5  810 1035 (S07E13 L=227)   618    275        0 ( 694/ 959- 949/1089)  -6.3 E20-E02 S08-S05
      6  820  918 (S14E10 L=230)   214     39        0 ( 804/ 891- 837/ 946) -45.0 E10-E08 S15-S12
      7 1437  643 (S15W35 L=275)   523     89        1 (1392/ 618-1484/ 670)  45.0 W32-W37 S16-S12
      8 1638  641 (S10W50 L=290)   310     84        0 (1607/ 615-1669/ 664)  53.1 W48-W52 S11-S07
      9  729  633 (S33E09 L=230)   344     65        1 ( 694/ 608- 759/ 656)  11.3 E12-E07 S35-S31
     10  808  632 (S31E04 L=236)   259     63        0 ( 782/ 605- 841/ 651)  53.1 E05-E02 S33-S29
     11  550  467 (S51E23 L=217)   395     60        0 ( 523/ 437- 578/ 504) -45.0 E25-E19 S52-S48
     12 1326  455 (S29W36 L=276)   454     71        0 (1295/ 425-1356/ 481) -18.4 W33-W39 S30-S27
     13 1091  330 (S44W28 L=267)   968    137        1 (1034/ 290-1142/ 374) -14.0 W21-W33 S46-S41
  

    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