Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1532 1696 (N27W62 L=260)   645     84        2 (1505/1659-1560/1732)  51.3 W59-W65 N24-N29
      2 1180 1669 (N38W34 L=231)   413     46        0 (1148/1649-1219/1685) -18.4 W31-W37 N36-N39
      3 1373 1597 (N27W42 L=239)   833    209        0 (1282/1578-1470/1619) -33.7 W36-W48 N23-N31
      4  984 1599 (N40W17 L=214)   375     87        1 ( 934/1576-1020/1617) -15.9 W12-W19 N38-N41
      5 1453 1452 (N17W39 L=236)   772    317        0 (1302/1427-1584/1480) -22.8 W28-W47 N12-N21
      6 1648 1373 (N07W49 L=246)   310     40        1 (1625/1347-1665/1397) -71.6 W47-W50 N05-N08
      7 1066 1338 (N22W11 L=209)   640    180        1 ( 990/1313-1157/1369) -10.3 W06-W17 N20-N24
      8 1546 1305 (N06W39 L=236)   249     80        0 (1510/1278-1579/1327) -53.1 W36-W40 N04-N08
      9 1143 1260 (N16W13 L=210)   382    184        1 (1061/1227-1223/1291)  -5.2 W07-W18 N14-N16
     10  569 1207 (N28E23 L=174)   503    214        1 ( 482/1144- 643/1263) -47.7 E29-E18 N22-N33
     11  513  995 (N17E32 L=166)   825    303        1 ( 400/ 964- 658/1021) -25.2 E39-E22 N11-N20
     12  349  948 (N18E45 L=152)   327     30        0 ( 327/ 928- 371/ 969) -56.3 E47-E43 N16-N19
     13 1756  916 (S22W44 L=241)   423     82        1 (1714/ 903-1803/ 935) -18.4 W40-W49 S23-S19
     14  325  812 (N10E51 L=146)   422     40        1 ( 307/ 781- 345/ 841)  53.1 E52-E48 N08-N12
     15 1477  796 (S19W20 L=218)   235     86        0 (1456/ 758-1499/ 832)  36.9 W18-W22 S21-S17
     16  334  748 (N07E52 L=145)   482      0       -1 ( 301/ 726- 381/ 772) -15.9 E55-E48 N05-N08
     17 1115  670 (S16E04 L=193)   436    167        1 (1076/ 620-1152/ 754)  83.7 E05-E03 S19-S10
     18 1372  704 (S22W11 L=209)   253     92        0 (1351/ 658-1388/ 749)  45.0 W09-W13 S23-S19
     19  481  313 (S23E67 L=131)  1045    123        2 ( 449/ 267- 512/ 373)  52.1 E71-E62 S27-S18
     20 1367  309 (S51W00 L=197)  1179    203        1 (1296/ 269-1443/ 355)   8.1 E06-W08 S53-S48
  

    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