Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1195 1887 (N56W50 L=348)   836     54        1 (1176/1848-1216/1924)  20.2 W42-W61 N52-N59
      2 1204 1686 (N39W29 L=327)  1598    250        1 (1084/1652-1305/1721) -12.5 W18-W36 N34-N41
      3 1492 1638 (N30W49 L=347)   564    106        1 (1453/1610-1543/1664)  -6.3 W43-W52 N27-N31
      4 1576 1568 (N24W51 L=349)   438     55        0 (1542/1540-1604/1592) -63.4 W48-W53 N21-N25
      5 1471 1524 (N23W40 L=338)   655     64        1 (1439/1493-1508/1551)   8.1 W36-W43 N21-N24
      6 1550 1478 (N19W44 L=342)   313     31        0 (1533/1455-1569/1507) -90.0 W42-W45 N17-N20
      7 1002 1459 (N28W07 L=305)  1013    281        0 ( 873/1440-1134/1479) -17.4 E01-W15 N24-N30
      8 1426 1442 (N19W34 L=332)   253     44        1 (1407/1416-1443/1472) -90.0 W32-W34 N16-N20
      9  723 1450 (N32E12 L=286)   531    109        1 ( 658/1429- 778/1467) -24.0 E17-E08 N30-N34
     10 1348 1385 (N17W27 L=325)   693    193        0 (1261/1364-1435/1405) -15.3 W21-W32 N14-N18
     11  933 1347 (N22W00 L=298)   689    224        0 ( 825/1322-1021/1391) -28.6 E06-W05 N18-N26
     12  571 1363 (N29E24 L=274)   344    121        1 ( 522/1323- 605/1387) -38.7 E28-E21 N26-N31
     13  341 1331 (N31E45 L=253)  1205    236        2 ( 236/1286- 427/1380) -15.3 E58-E36 N27-N35
     14  914 1235 (N15E03 L=295)   928    375        0 ( 780/1133-1057/1322) -53.1 E10-W04 N06-N22
     15 1838 1072 (S10W58 L=356)   749    164        1 (1822/ 995-1851/1155)  66.0 W55-W60 S14-S05
     16  729  959 (N02E19 L=280)   315    130        1 ( 680/ 923- 776/ 994)  23.2 E22-E15 N00-N03
     17 1185  752 (S18W05 L=303)   290     90        1 (1156/ 715-1229/ 787)  36.9 W03-W08 S19-S16
     18  924  733 (S14E11 L=287)   327    112        0 ( 887/ 691- 960/ 775) -63.4 E12-E09 S17-S11
     19 1223  742 (S19W07 L=305)   228     57        0 (1200/ 719-1256/ 761)  14.0 W05-W09 S20-S17
     20 1020  498 (S31E11 L=288)  1056    229        2 ( 989/ 385-1064/ 615)  59.0 E15-E05 S38-S23
  

    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