Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  997 1739 (N50W27 L= 94)   278     67        1 ( 971/1716-1019/1768)   7.1 W23-W31 N48-N51
      2  760 1739 (N60W08 L= 74)   384     85        2 ( 719/1706- 792/1764)  11.3 W02-W12 N57-N61
      3  517 1640 (N61E25 L= 41)  2126    296        6 ( 396/1570- 646/1697)   0.0 E44-E06 N57-N64
      4 1169 1533 (N31W25 L= 91)   591    249        0 (1069/1477-1277/1583) -56.3 W20-W29 N24-N36
      5  614 1445 (N42E16 L= 50)   643    193        2 ( 582/1364- 656/1535) -85.9 E17-E13 N35-N49
      6  984 1363 (N26W07 L= 73)   508    187        1 ( 886/1340-1061/1381) -35.0 W01-W11 N22-N29
      7  712 1133 (N20E15 L= 51)  2124    500       10 ( 566/ 993- 870/1252) -53.6 E23-E07 N09-N29
      8 1880 1232 (S09W67 L=133)   601     57        1 (1851/1215-1918/1249)  -8.7 W62-W75 S10-S07
      9  709 1176 (N23E15 L= 52)   375    123        1 ( 677/1134- 740/1204) -76.0 E16-E12 N20-N24
     10  490 1025 (N19E33 L= 33)   558    195        0 ( 418/ 969- 584/1056) -38.7 E37-E27 N14-N22
     11 1693  847 (S23W37 L=103)  1058    339        0 (1574/ 763-1785/ 974)  12.8 W26-W48 S26-S18
     12 1434  731 (S22W16 L= 82)   518    201        0 (1371/ 662-1494/ 806)  24.4 W10-W21 S24-S18
     13  938  504 (S21E20 L= 46)   635    116        0 ( 887/ 461- 987/ 541)   6.3 E24-E15 S22-S19
     14  398  472 (S11E60 L=  6)   461     64        1 ( 373/ 439- 415/ 498)  78.7 E61-E57 S13-S08
     15  807  312 (S30E38 L= 28)   293    103        0 ( 756/ 295- 845/ 342)   6.3 E42-E33 S31-S29
  

    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