Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  433 1663 (N58E59 L= 26)  1058    136        1 ( 370/1640- 491/1683)   4.4 E76-E48 N56-N60
      2 1584 1403 (N19W46 L=131)   965    258        1 (1533/1358-1654/1447) -45.0 W42-W50 N14-N21
      3  611 1402 (N36E24 L= 62)   377    102        2 ( 557/1385- 668/1415)  -6.3 E28-E19 N34-N37
      4 1304 1217 (N13W20 L=106)   278     86        1 (1264/1194-1346/1239)   0.0 W17-W23 N12-N14
      5  259 1061 (N17E55 L= 30)   476     51        1 ( 234/1038- 283/1083) -31.0 E58-E52 N15-N18
      6 1856  992 (S11W61 L=147)   645     52        0 (1825/ 970-1888/1011)   0.0 W56-W65 S12-S10
      7 1703  650 (S30W45 L=130)   411     56        1 (1678/ 629-1726/ 673) -53.1 W42-W47 S31-S27
      8 1023  566 (S22E07 L= 78)   907    234        0 ( 939/ 495-1098/ 655)  31.6 E14-E01 S25-S17
      9 1495  552 (S32W26 L=111)   374    126        0 (1451/ 505-1535/ 606)  45.0 W22-W28 S34-S28
     10  547  562 (S16E40 L= 46)   456     92        1 ( 517/ 520- 588/ 595)  29.7 E43-E35 S18-S14
     11 1110  477 (S30E03 L= 82)   697    233        0 (1020/ 420-1201/ 531)  21.0 E10-W03 S32-S27
     12 1543  496 (S38W30 L=116)   414     54        0 (1506/ 478-1577/ 517)   0.0 W27-W33 S38-S36
     13  655  422 (S27E37 L= 48)   629     86        2 ( 631/ 384- 685/ 464)  74.1 E39-E34 S30-S23
     14 1331  439 (S37W12 L= 98)   306     70        0 (1298/ 418-1371/ 460)   9.5 W09-W15 S38-S35
  

    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