Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1481 1716 (N30W56 L=180)  1189    152        3 (1414/1668-1542/1776) -84.3 W53-W58 N25-N35
      2 1119 1476 (N29W20 L=143)  1036    219        3 (1012/1419-1221/1514) -50.7 W14-W23 N22-N34
      3 1410 1042 (S03W22 L=145)   746    233        2 (1366/ 940-1458/1144)  36.0 W16-W27 S08-N01
      4 1845 1065 (S16W55 L=179)   371     65        1 (1829/1029-1861/1098)  76.0 W54-W56 S18-S14
      5 1198  920 (S04W07 L=130)   956    250        1 (1160/ 805-1249/1043)  72.9 W04-W11 S11-N02
      6 1596  858 (S19W29 L=153)  1687    409        2 (1460/ 661-1690/1015)  33.7 W16-W38 S27-S12
      7 1365  865 (S12W15 L=138)   210    104        0 (1333/ 835-1405/ 917) -71.6 W13-W16 S14-S08
      8  385  885 (N14E43 L= 80)   587    201        2 ( 325/ 869- 480/ 915) -18.4 E48-E36 N11-N16
      9  419  696 (N02E47 L= 77)   466    107        0 ( 391/ 660- 453/ 734)  20.6 E50-E42 N00-N04
     10 1561  624 (S33W23 L=146)  1161    273        3 (1464/ 536-1675/ 723)  19.4 W14-W33 S36-S30
     11  899  496 (S20E23 L=101)   545    181        1 ( 879/ 428- 921/ 582)  59.0 E26-E19 S24-S14
     12  617  371 (S21E47 L= 77)   340     45        0 ( 589/ 351- 642/ 391) -33.7 E48-E45 S23-S19
     13  712  298 (S29E45 L= 79)   991    265        0 ( 638/ 258- 762/ 372)  21.0 E50-E37 S31-S24
  

    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