Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1472 1635 (N27W51 L=  0)   630    120        0 (1416/1615-1541/1653) -14.0 W46-W58 N25-N28
      2 1524 1525 (N19W48 L=357)   335     44        0 (1492/1504-1545/1542) -33.7 W45-W50 N17-N20
      3 1043 1431 (N29W13 L=322)   650    138        0 ( 982/1402-1104/1456) -12.5 W08-W17 N27-N30
      4 1044 1351 (N24W10 L=319)   404     67        0 (1008/1329-1091/1378) -53.1 W08-W12 N22-N26
      5  718 1323 (N32E11 L=298)   318     91        0 ( 672/1307- 767/1340) -15.9 E14-E07 N30-N32
      6 1756 1094 (S10W48 L=356)  1628    366        0 (1703/ 962-1784/1265)  39.1 W39-W55 S16-S02
      7  634 1099 (N21E21 L=288)   811    248        1 ( 542/1075- 754/1118) -15.9 E27-E13 N18-N22
      8 1877 1076 (S16W60 L=  9)  1570    159        7 (1822/1027-1933/1118)  -6.7 W53-W70 S19-S12
      9  446  872 (N12E39 L=270)  1862    335        2 ( 404/ 743- 514/1001)  82.9 E41-E36 N03-N19
     10 1509  748 (S22W21 L=330)   918    323        0 (1467/ 608-1562/ 885)  49.4 W15-W27 S29-S15
     11 1343  839 (S12W13 L=322)   282     44        0 (1317/ 808-1367/ 865)  26.6 W10-W14 S13-S10
     12  288  742 (N07E56 L=252)   704     90        1 ( 262/ 710- 323/ 788) -90.0 E58-E53 N05-N10
     13  224  702 (N06E65 L=243)   784     96        2 ( 209/ 646- 247/ 754)  40.6 E70-E61 N02-N08
     14  434  531 (S08E52 L=257)   446     73        1 ( 413/ 495- 453/ 560) -90.0 E53-E50 S10-S05
     15  960  501 (S21E18 L=290)   631     74        3 ( 926/ 463- 993/ 542)  18.4 E21-E15 S23-S18
     16  637  471 (S15E40 L=269)   415     75        1 ( 614/ 441- 663/ 507) -90.0 E41-E38 S17-S12
     17  517  449 (S14E50 L=259)  1292    203        2 ( 460/ 393- 604/ 486)   0.0 E56-E41 S18-S11
     18  911  422 (S25E25 L=284)   242     31        1 ( 892/ 396- 927/ 445)  71.6 E25-E23 S26-S23
     19  550  341 (S22E55 L=254)  2035    241        4 ( 480/ 289- 629/ 384)  -3.6 E61-E45 S26-S18
     20 1608  363 (S57W28 L=337)   546     72        0 (1579/ 341-1633/ 384) -31.0 W23-W33 S60-S53
     21  854  192 (S41E45 L=264)  1249    160        0 ( 809/ 134- 891/ 267)  24.4 E56-E34 S46-S35
  

    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