Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  404 1672 (N16E69 L=119)  1440     98        1 ( 374/1647- 457/1702)  29.7 E80-E64 N14-N18
      2 1355 1579 (N37W03 L=192)   304    143        0 (1326/1522-1380/1653) -53.1 E01-W06 N33-N41
      3 1474 1575 (N41W12 L=201)   347     96        0 (1445/1530-1502/1618) -35.5 W08-W15 N38-N43
      4  641 1282 (S02E29 L=159)  1201    300        3 ( 575/1148- 712/1413) -36.3 E37-E22 S08-N03
      5 1562 1178 (N18W27 L=216)   968    237        0 (1489/1065-1630/1250) -23.2 W20-W34 N13-N20
      6 1621  873 (N03W40 L=228)   323     71        0 (1603/ 838-1640/ 911) -36.9 W37-W41 N02-N05
      7  746  722 (S31E08 L=181)   938    331        0 ( 623/ 660- 886/ 792)  48.8 E15-E01 S38-S22
      8 1696  760 (N00W50 L=238)   380     47        0 (1665/ 744-1726/ 778)   0.0 W46-W52 N00-N01
      9 1178  745 (S17W17 L=205)  1075    326        1 (1024/ 714-1330/ 773)  34.5 W09-W25 S22-S11
     10 1239  593 (S23W26 L=215)   269     92        0 (1198/ 571-1288/ 608)  53.1 W24-W28 S25-S21
     11 1239  478 (S30W32 L=221)  1378    320        2 (1122/ 452-1386/ 538)  25.2 W23-W41 S33-S23
     12  479  407 (S63E29 L=160)   443     23        0 ( 461/ 385- 501/ 433) -90.0 E31-E25 S65-S60
     13  569  377 (S62E15 L=174)   419     55        0 ( 553/ 348- 589/ 410) -68.2 E17-E11 S65-S58
     14 1478  344 (S28W59 L=248)   527     40        0 (1460/ 313-1496/ 373) -14.0 W55-W63 S29-S27
  

    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