Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1203 1896 (N56W51 L=348)   686     58        0 (1185/1858-1219/1926)  26.6 W44-W60 N52-N59
      2 1190 1691 (N40W28 L=325)  1663    308        2 (1016/1659-1315/1732) -11.8 W13-W37 N36-N41
      3 1550 1602 (N26W51 L=348)   677    181        0 (1467/1552-1615/1644) -52.1 W45-W54 N21-N30
      4 1484 1533 (N23W41 L=339)   685     90        2 (1454/1500-1530/1563)   8.1 W37-W45 N21-N25
      5  919 1462 (N29W01 L=298)  1562    508        2 ( 676/1433-1149/1484) -17.9 E15-W16 N24-N34
      6 1444 1443 (N18W35 L=332)   237     36        0 (1426/1423-1460/1469)  71.6 W33-W36 N17-N20
      7 1367 1394 (N17W28 L=325)   612    201        0 (1273/1374-1459/1412) -14.0 W22-W34 N14-N18
      8  940 1355 (N22W01 L=298)   572    245        1 ( 834/1332-1041/1397) -28.6 E05-W06 N18-N26
      9  583 1369 (N29E23 L=274)   335     97        0 ( 536/1341- 621/1389) -33.7 E26-E20 N26-N30
     10  351 1335 (N31E43 L=254)  1289    273        3 ( 240/1288- 468/1386) -15.6 E57-E32 N27-N35
     11  922 1247 (N16E02 L=295)   874    338        1 ( 796/1167-1069/1326) -45.0 E08-W05 N08-N22
     12 1711 1149 (S03W47 L=344)   350     54        1 (1680/1130-1742/1171) -11.3 W43-W49 S04-S02
     13 1849 1062 (S11W59 L=356)   617    154        1 (1832/ 992-1861/1140)  77.5 W56-W61 S15-S06
     14  744  964 (N02E17 L=280)   231     55        1 ( 710/ 948- 773/ 983)   0.0 E19-E15 N01-N03
     15 1584  925 (S14W33 L=330)   226    111        0 (1538/ 898-1629/ 961)  14.0 W29-W37 S15-S12
     16 1487  750 (S23W25 L=322)   331    181        0 (1412/ 709-1563/ 793)  15.3 W19-W30 S24-S21
     17 1196  752 (S18W06 L=303)   246     58        1 (1172/ 724-1229/ 783)  36.9 W04-W08 S19-S16
     18  957  725 (S15E09 L=288)   417    158        0 ( 913/ 686-1035/ 775) -54.5 E11-E05 S18-S11
     19 1237  747 (S19W08 L=305)   215     46        0 (1215/ 724-1266/ 767)  14.0 W06-W10 S20-S17
     20 1029  494 (S31E10 L=287)  1152    216        0 ( 996/ 391-1077/ 612)  54.5 E14-E04 S38-S24
  

    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