Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1315 1725 (N48W39 L= 47)   419     68        0 (1286/1692-1339/1754)  78.7 W36-W40 N45-N50
      2 1256 1615 (N41W27 L= 35)   375     84        1 (1220/1578-1280/1640) -90.0 W23-W28 N37-N42
      3 1699 1487 (N25W60 L= 69)   728    102        0 (1654/1452-1734/1512) -39.8 W56-W63 N22-N27
      4  344 1423 (N35E53 L=315)   451     53        1 ( 314/1402- 379/1441)  -6.3 E58-E49 N33-N36
      5 1037 1415 (N30W05 L= 14)   256    111        0 ( 989/1389-1086/1439) -29.7 W01-W08 N27-N31
      6 1268 1059 (N05W15 L= 24)   208     95        1 (1239/1012-1299/1089)  53.1 W13-W17 N02-N06
      7 1562 1051 (N01W35 L= 43)   232     52        1 (1540/1021-1584/1075)  33.7 W33-W36 N00-N02
      8 1719  793 (S17W47 L= 55)   520    134        1 (1688/ 750-1740/ 830)  78.7 W43-W49 S19-S14
      9  378  712 (S10E48 L=321)   620    149        3 ( 341/ 653- 400/ 777) -90.0 E50-E45 S13-S05
     10 1005  692 (S15E04 L=  4)   330    186        1 ( 951/ 652-1052/ 742) -50.2 E07-E01 S17-S11
     11 1383  622 (S24W20 L= 29)   822    302        2 (1285/ 563-1527/ 724)  22.4 W13-W30 S26-S18
     12 1118  631 (S20W02 L= 11)   344    112        2 (1072/ 601-1150/ 678)  53.1 W00-W04 S21-S17
     13  498  644 (S14E39 L=329)   469    146        0 ( 444/ 616- 545/ 675) -14.0 E43-E35 S16-S12
     14  733  616 (S18E23 L=346)   223     68        2 ( 703/ 596- 758/ 636) -33.7 E24-E21 S19-S16
     15 1599  594 (S29W38 L= 46)   332     55        1 (1567/ 576-1629/ 614) -23.2 W34-W41 S30-S27
     16 1793  560 (S36W66 L= 74)   864     70        2 (1759/ 542-1830/ 581)  -6.0 W58-W78 S37-S34
     17  806  535 (S24E20 L=349)   325    102        0 ( 786/ 495- 840/ 579)  50.2 E21-E16 S26-S20
     18 1164  474 (S32W04 L= 13)   761    168        0 (1102/ 427-1221/ 531)  32.0 W00-W08 S35-S28
     19 1267  421 (S37W12 L= 20)   517    148        2 (1195/ 404-1343/ 447)  -5.2 W06-W17 S38-S35
     20  925  291 (S44E18 L=351)  1464    213        3 ( 873/ 217- 997/ 346)  33.7 E25-E10 S51-S39
  

    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