Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  737 1791 (N44E46 L=209)   596     88        0 ( 711/1756- 765/1826) -22.6 E51-E39 N41-N46
      2 1661 1506 (N42W43 L=298)   616    126        3 (1599/1465-1717/1537)  -4.4 W36-W50 N39-N43
      3  412 1489 (N17E52 L=203)   370     65        1 ( 375/1472- 443/1503)  21.8 E55-E49 N15-N17
      4  858 1258 (N10E14 L=241)  1296    293       13 ( 771/1192- 932/1354)  45.0 E19-E08 N06-N16
      5  600 1279 (N07E31 L=224)   427    131        0 ( 583/1215- 617/1339) -54.5 E33-E28 N03-N10
      6  930 1272 (N12E10 L=245)   203    112        2 ( 887/1255- 991/1285)  18.4 E12-E06 N10-N13
      7  835 1104 (N01E12 L=243)   208    130        1 ( 797/1052- 876/1145)  59.0 E13-E10 S02-N03
      8  369 1087 (S08E44 L=211)   395     95        1 ( 329/1065- 408/1113)  38.7 E47-E40 S09-S05
      9  836  886 (S12E09 L=246)   913    355        2 ( 765/ 760- 929/1045)  75.3 E11-E05 S20-S01
     10  989  823 (S13W01 L=256)   201     60        1 ( 965/ 803-1014/ 839)  26.6 W00-W02 S14-S12
     11  408  776 (S26E38 L=217)   565    185        2 ( 335/ 746- 465/ 830)  30.3 E45-E33 S28-S21
     12 1301  716 (S14W22 L=277)   344    143        0 (1240/ 674-1358/ 751) -12.5 W18-W27 S15-S13
     13 1058  663 (S22W09 L=264)   279     95        0 (1015/ 641-1109/ 679)  31.0 W06-W11 S23-S19
     14 1127  499 (S31W17 L=272)   223    123        0 (1083/ 480-1181/ 531)  33.7 W14-W20 S33-S27
     15  420  409 (S54E48 L=207)  1692    192        5 ( 350/ 347- 491/ 469) -19.4 E59-E38 S58-S49
  

    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