Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1376 1385 (N23W29 L=256)   300     72        0 (1337/1350-1411/1420) -51.3 W26-W30 N20-N25
      2  900 1212 (N19E05 L=222)  1972    484        6 ( 685/1124-1089/1299) -30.3 E19-W05 N11-N26
      3 1559 1235 (N11W38 L=265)   518    122        3 (1504/1198-1619/1271) -40.6 W34-W42 N07-N13
      4  393 1138 (N19E42 L=185)   374    122        1 ( 356/1095- 423/1176) -51.3 E45-E39 N16-N21
      5  643 1062 (N12E24 L=204)   240     97        0 ( 602/1029- 672/1093)  31.0 E26-E21 N10-N14
      6  748 1025 (N09E17 L=210)   283    104        1 ( 724/ 965- 778/1068) -80.5 E18-E15 N05-N11
      7  346  992 (N11E47 L=181)   278     79        1 ( 315/ 971- 374/1027)  31.0 E49-E43 N09-N12
      8 1856  792 (S22W60 L=287)  2014    289        3 (1793/ 699-1916/ 898)  37.6 W53-W68 S27-S17
      9 1353  852 (S09W18 L=245)   408    120        2 (1308/ 829-1404/ 886)   9.5 W15-W21 S10-S06
     10 1377  775 (S14W19 L=246)   997    328        2 (1247/ 675-1484/ 877)  27.9 W09-W26 S18-S09
     11 1220  798 (S10W09 L=236)   461    149        1 (1169/ 744-1241/ 869)  45.0 W05-W11 S13-S06
     12  279  751 (S04E57 L=170)   768    163        1 ( 231/ 721- 327/ 789) -26.6 E62-E52 S06-S01
     13 1055  766 (S10E01 L=226)   270     82        0 (1027/ 733-1091/ 788)   0.0 E03-W00 S12-S08
     14  890  660 (S15E13 L=214)   206    110        1 ( 840/ 641- 941/ 678) -18.4 E16-E10 S16-S13
     15  373  593 (S15E53 L=175)   972    187        2 ( 351/ 515- 400/ 670)  70.0 E55-E50 S20-S09
  

    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