Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1350 1628 (N36W24 L=142)   921    242        2 (1231/1597-1455/1652)   3.2 W14-W32 N33-N37
      2 1516 1596 (N34W37 L=154)   304     34        0 (1497/1576-1536/1619)  63.4 W34-W38 N32-N36
      3  407 1481 (N25E45 L= 73)   958    328        3 ( 346/1363- 443/1564) -47.1 E53-E39 N17-N31
      4  966 1492 (N25E04 L=113)   536    124        2 ( 940/1430- 996/1550)  90.0 E06-E02 N21-N29
      5  230 1407 (N21E61 L= 57)   527     41        0 ( 210/1383- 250/1425)  56.3 E63-E58 N19-N22
      6 1180 1232 (N09W09 L=127)   280     91        0 (1141/1198-1224/1280) -45.0 W06-W11 N07-N11
      7  525 1130 (N03E31 L= 86)  1134    249        0 ( 484/ 999- 584/1234)  65.2 E34-E27 S05-N08
      8  123 1137 (N05E71 L= 47)  1114    214        5 (  95/1087- 157/1170)  26.6 E76-E65 N01-N06
      9  641 1109 (N01E24 L= 94)   203     51        0 ( 626/1079- 657/1138)  71.6 E24-E22 N00-N03
     10  949 1088 (N00E05 L=113)   222     60        3 ( 916/1069- 972/1114)  18.4 E06-E03 S01-N01
     11  783 1049 (S02E15 L=103)   632    157        3 ( 726/1010- 826/1098)  33.7 E18-E11 S04-N00
     12  731  839 (S15E18 L=100)  1187    447        0 ( 639/ 661- 801/1028) -72.3 E23-E14 S25-S03
     13 1888  847 (S11W66 L=184)  4950    620        9 (1804/ 727-1950/ 992)  50.5 W57-W76 S19-S02
     14  889  910 (S11E08 L=110)   620    183        1 ( 796/ 875- 984/ 949)  15.3 E13-E02 S12-S08
     15  647  858 (S14E24 L= 94)   557    143        5 ( 593/ 825- 702/ 891) -15.9 E27-E20 S15-S11
     16  387  826 (S15E43 L= 75)   343     78        1 ( 357/ 807- 417/ 847)  11.3 E45-E40 S16-S13
     17  937  780 (S18E05 L=113)   464    151        1 ( 864/ 748- 999/ 820)  26.6 E09-E01 S20-S15
     18  284  712 (S22E54 L= 64)   810    164        2 ( 253/ 647- 330/ 755)  45.0 E56-E48 S25-S19
     19  978  663 (S26E03 L=115)   568    261        1 ( 853/ 627-1107/ 699)  14.0 E11-W05 S28-S23
     20 1529  632 (S27W36 L=154)   245     50        1 (1507/ 605-1547/ 652)  90.0 W34-W37 S28-S25
     21  290  597 (S29E57 L= 61)   901    176        4 ( 254/ 546- 327/ 638) -63.4 E59-E52 S32-S26
     22 1136  611 (S29W08 L=126)   202     54        0 (1106/ 586-1168/ 636)  36.9 W06-W10 S30-S27
     23  703  542 (S34E23 L= 95)   242    107        0 ( 673/ 505- 722/ 584)  51.3 E25-E21 S36-S31
  

    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