Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1022 1777 (N52W33 L= 68)   402     52        2 ( 995/1751-1048/1800)  76.0 W30-W35 N50-N54
      2 1174 1758 (N45W42 L= 77)   822     80        1 (1139/1730-1221/1783)  -7.1 W36-W45 N42-N47
      3 1691 1530 (N14W63 L= 98)   809    118        1 (1635/1512-1743/1555) -12.1 W56-W71 N12-N15
      4 1118 1365 (N23W15 L= 50)   394     99        1 (1081/1335-1149/1406)  11.3 W12-W17 N21-N25
      5 1774 1305 (S00W58 L= 92)   716    125        1 (1744/1241-1794/1365)  63.4 W55-W60 S03-N03
      6  902 1331 (N27W01 L= 36)   196     50        0 ( 886/1304- 922/1354)  56.3 W00-W03 N25-N28
      7  844 1152 (N18E07 L= 28)   626    179        2 ( 786/1089- 902/1221)  21.8 E11-E01 N16-N21
      8 1192 1133 (N08W12 L= 47)   279     73        1 (1165/1107-1214/1167)  33.7 W10-W13 N07-N09
      9  289  993 (N22E51 L=344)  2381    516        8 ( 239/ 742- 365/1155) -85.8 E55-E46 N05-N32
     10  483 1053 (N21E33 L=  2)   818    231        2 ( 383/ 970- 545/1096) -45.0 E40-E29 N15-N25
     11 1867  941 (S24W58 L= 92)   754    113        0 (1832/ 895-1888/ 994)  24.0 W52-W61 S26-S20
     12 1567  855 (S18W28 L= 63)  1297    433        2 (1382/ 824-1751/ 914) -14.0 W15-W43 S22-S12
     13 1129  757 (S11E01 L= 34)   265     85        0 (1105/ 720-1148/ 794)  45.0 E03-W00 S12-S09
     14 1840  770 (S34W54 L= 88)   585     67        1 (1806/ 752-1880/ 787) -22.6 W48-W61 S36-S31
     15 1037  577 (S19E12 L= 23)   313    115        1 (1026/ 505-1051/ 632)  63.4 E13-E09 S23-S15
     16  689  513 (S14E35 L=360)   800    240        0 ( 648/ 414- 731/ 604)  35.5 E42-E28 S19-S09
     17  488  339 (S22E62 L=332)  1924    146        7 ( 445/ 290- 533/ 402)  81.9 E71-E55 S25-S17
     18  574  332 (S24E54 L=340)   491     98        0 ( 530/ 312- 600/ 360)   0.0 E57-E49 S25-S22
     19  771  309 (S30E41 L=354)   692    104        1 ( 732/ 260- 815/ 348)  24.4 E46-E35 S33-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