Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1572 1607 (N21W55 L=237)   761    200        0 (1511/1579-1653/1638) -33.7 W50-W61 N17-N24
      2 1692 1517 (N13W60 L=241)   489     65        1 (1652/1496-1727/1536)  -6.3 W55-W64 N11-N13
      3 1163 1445 (N24W20 L=201)   277    129        1 (1095/1433-1218/1464) -29.7 W16-W23 N21-N26
      4  999 1282 (N19W05 L=187)   261     60        1 ( 964/1257-1024/1305) -56.3 W03-W07 N17-N20
      5  859 1245 (N21E04 L=177)   380    145        2 ( 808/1204- 933/1277)  -8.1 E07-W00 N19-N22
      6 1676 1156 (S06W42 L=224)   525    136        0 (1607/1127-1734/1185) -36.9 W38-W46 S08-S02
      7  733 1127 (N17E14 L=167)   225     81        0 ( 718/1093- 749/1173)  45.0 E15-E11 N15-N19
      8  298 1091 (N25E47 L=135)   342     87        0 ( 277/1042- 326/1126)  45.0 E48-E43 N22-N27
      9 1217 1046 (N01W11 L=192)   571    120        2 (1173/ 980-1246/1098) -90.0 W09-W12 S03-N03
     10 1483 1024 (S07W26 L=207)   220     65        1 (1464/ 988-1501/1047)  56.3 W24-W27 S09-S05
     11  171  894 (N16E64 L=117)  3722    332        6 ( 123/ 774- 216/1045)  76.0 E72-E58 N09-N25
     12 1610  991 (S13W33 L=215)   242     49        1 (1582/ 973-1634/1010) -14.0 W31-W35 S14-S11
     13 1692  745 (S30W36 L=217)  4031    636        7 (1505/ 513-1826/1010)  33.7 W17-W52 S40-S17
     14  231  921 (N17E56 L=125)   831    145        2 ( 203/ 842- 256/ 968)  81.9 E58-E53 N12-N19
     15 1373  846 (S14W15 L=196)   538    158        1 (1330/ 779-1431/ 881)  14.0 W11-W19 S17-S12
     16  593  738 (S01E32 L=149)   927    243        1 ( 502/ 643- 660/ 824) -71.6 E35-E29 S07-N05
     17 1115  784 (S11E01 L=180)   201     98        0 (1084/ 740-1132/ 817) -90.0 E02-W00 S13-S08
     18 1064  603 (S20E09 L=172)   208     55        0 (1042/ 583-1082/ 635)  76.0 E10-E07 S21-S17
     19 1351  578 (S30W08 L=189)   278    103        0 (1337/ 543-1378/ 634) -90.0 W06-W09 S32-S26
     20  291  551 (S06E64 L=117)   941    110        3 ( 249/ 526- 352/ 588) -24.0 E69-E58 S07-S02
     21  538  454 (S16E47 L=134)  1634    352        5 ( 440/ 345- 654/ 575)  19.0 E63-E34 S21-S11
     22  811  415 (S25E31 L=150)  1942    480        3 ( 598/ 286- 982/ 517)   6.2 E53-E16 S29-S22
     23  325  452 (S12E68 L=113)  1647    130        5 ( 289/ 393- 363/ 511)  29.7 E78-E59 S16-S08
  

    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