Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  846 1776 (N55W06 L=356)  1521    168        5 ( 774/1726- 912/1821) -14.0 E01-W12 N50-N59
      2 1230 1700 (N39W33 L= 23)  1845    295        3 (1105/1646-1363/1745) -40.6 W23-W39 N32-N44
      3  539 1680 (N55E29 L=321)   354     37        1 ( 522/1652- 553/1704) -59.0 E32-E26 N52-N57
      4 1411 1524 (N23W36 L= 26)   504    111        1 (1374/1496-1460/1549) -31.0 W33-W39 N21-N25
      5  564 1461 (N37E24 L=326)   675    186        3 ( 469/1430- 643/1486) -18.4 E32-E17 N33-N40
      6 1553 1414 (N14W42 L= 32)   561    101        0 (1501/1388-1606/1437) -29.7 W38-W45 N11-N16
      7  732 1347 (N26E12 L=338)   551    168        5 ( 672/1288- 778/1385) -50.2 E16-E09 N22-N29
      8  228 1279 (N31E57 L=293)  1908    253        3 ( 126/1238- 341/1332) -12.7 E83-E43 N27-N36
      9  756 1223 (N18E13 L=338)   239     74        0 ( 738/1186- 775/1253)  76.0 E13-E10 N15-N19
     10  831 1172 (N14E09 L=342)   444    178        4 ( 768/1145- 912/1196)  -6.3 E12-E03 N11-N15
     11  561 1140 (N17E26 L=324)   688    203        1 ( 480/1107- 664/1175) -26.6 E32-E19 N13-N20
     12  274 1111 (N20E50 L=300)   504    106        1 ( 226/1086- 329/1140) -20.0 E55-E44 N17-N22
     13  257  975 (N12E53 L=297)   981    210        1 ( 189/ 881- 313/1030) -42.3 E60-E48 N05-N15
     14  422 1007 (N11E38 L=312)   298    123        0 ( 369/ 990- 478/1025) -14.0 E42-E34 N09-N12
     15 1490  955 (S11W27 L= 17)   340    185        0 (1462/ 872-1536/1024)  53.1 W24-W30 S15-S07
     16 1660  763 (S26W38 L= 28)   319     47        0 (1636/ 734-1679/ 796)  45.0 W35-W39 S27-S24
     17 1404  717 (S24W18 L=  8)   612    200        0 (1319/ 657-1464/ 784)  24.4 W11-W22 S25-S20
     18 1163  618 (S25W01 L=351)   342    102        0 (1141/ 570-1182/ 665)  59.0 E01-W02 S27-S22
     19  581  343 (S32E51 L=300)  1173    221        2 ( 550/ 250- 632/ 438)  27.6 E64-E40 S38-S25
     20  450  383 (S27E60 L=290)   430     69        0 ( 430/ 337- 469/ 412)  45.0 E64-E57 S29-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