Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1582 1519 (N34W45 L= 89)   606     67        1 (1554/1487-1611/1555) -78.7 W43-W47 N31-N36
      2  409 1489 (N34E48 L=355)   966    232        0 ( 352/1440- 474/1532) -19.7 E55-E41 N30-N36
      3 1753 1515 (N32W62 L=105)   595    160        0 (1720/1499-1788/1529)  -7.1 W57-W65 N30-N32
      4  755 1387 (N27E18 L= 25)   242     94        1 ( 707/1371- 802/1400)   0.0 E21-E14 N26-N27
      5 1750 1304 (N18W55 L= 98)   616    206        1 (1685/1217-1804/1364) -48.0 W49-W58 N12-N22
      6 1662 1218 (N14W45 L= 88)   615    159        2 (1622/1144-1699/1295) -71.6 W42-W47 N08-N18
      7  272 1242 (N17E56 L=348)   782    115        3 ( 252/1200- 295/1279) -39.8 E58-E52 N14-N19
      8  949 1178 (N14E04 L= 39)   189     79        0 ( 908/1143- 986/1215) -38.7 E07-E02 N11-N15
      9 1359  974 (N00W21 L= 64)   284     92        1 (1314/ 943-1411/ 996)   8.1 W17-W24 S01-N01
     10  568  841 (S07E30 L= 14)   300     98        0 ( 526/ 812- 618/ 872) -26.6 E32-E26 S08-S05
     11  244  658 (S20E62 L=342)   773    192        1 ( 224/ 600- 264/ 704)  48.8 E66-E58 S24-S16
     12 1233  572 (S25W13 L= 57)   313    101        0 (1182/ 560-1285/ 586)  -7.1 W09-W17 S26-S24
     13  435  543 (S27E45 L=358)   738    131        1 ( 398/ 514- 482/ 566)  24.0 E49-E40 S29-S25
  

    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