Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1150 1479 (N29W22 L=254)   391    121        0 (1094/1459-1220/1495) -20.6 W17-W25 N26-N30
      2 1577 1435 (N13W47 L=279)  1588    365        2 (1480/1358-1709/1477)  -8.1 W37-W58 N08-N15
      3  290 1119 (N30E47 L=185)  1569    545        2 ( 256/ 969- 343/1252)  58.0 E51-E41 N20-N36
      4  980 1140 (N14W01 L=233)  1728    361        4 ( 781/1106-1179/1175) -22.2 E11-W11 N09-N18
      5 1593  979 (S12W32 L=265)   512    172        1 (1565/ 899-1629/1039)  40.6 W28-W35 S15-S08
      6 1910  971 (S24W61 L=293)   557     76        0 (1895/ 932-1923/1017)  45.0 W58-W63 S26-S21
      7  589  929 (N12E28 L=204)   330    126        0 ( 558/ 855- 621/ 992)  49.4 E31-E24 N08-N15
      8  249  819 (N12E58 L=175)   642     86        2 ( 228/ 783- 273/ 858) -76.0 E60-E55 N10-N14
      9  605  761 (N02E31 L=201)   602    129        1 ( 564/ 722- 658/ 821) -80.5 E33-E28 N00-N06
     10  975  553 (S19E16 L=217)  2152    488        6 ( 810/ 368-1076/ 699) -90.0 E21-E12 S32-S06
     11  419  528 (S08E54 L=179)   488     89        0 ( 380/ 493- 468/ 555) -45.0 E57-E51 S10-S05
     12  824  396 (S25E31 L=201)   469    168        1 ( 804/ 341- 855/ 463)  60.9 E33-E27 S29-S20
     13  501  392 (S18E55 L=178)   373     27        0 ( 476/ 371- 520/ 410) -56.3 E56-E52 S19-S16
     14  580  245 (S30E59 L=173)  1232    240        3 ( 553/ 207- 604/ 292)  37.9 E63-E54 S33-S26
  

    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