Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  923 1687 (N51W16 L=290)   524     88        1 ( 896/1648- 955/1726)  24.0 W11-W20 N48-N53
      2 1254 1640 (N37W37 L=311)   391     66        0 (1235/1606-1275/1669)  38.7 W34-W39 N34-N38
      3 1640 1552 (N19W61 L=335)  2234    189        4 (1581/1505-1714/1596) -35.0 W55-W71 N16-N23
      4 1471 1512 (N23W44 L=318)   707    173        4 (1444/1423-1492/1582)  59.0 W40-W48 N17-N27
      5  385 1329 (N40E41 L=233)  1003    109        3 ( 330/1295- 443/1358) -21.0 E48-E35 N36-N42
      6 1625 1168 (S00W41 L=315)  1720    385        3 (1586/1022-1662/1357)  58.6 W34-W46 S08-N10
      7  837 1244 (N24E06 L=268)  1211    403        5 ( 674/1214-1033/1268) -20.0 E17-W05 N18-N27
      8 1365 1226 (N10W25 L=299)   235     62        1 (1341/1200-1390/1245)  11.3 W22-W27 N08-N11
      9 1170 1116 (N09W11 L=285)   412    126        0 (1119/1084-1216/1163)  14.0 W06-W14 N07-N10
     10  670 1093 (N19E20 L=254)   408    126        2 ( 629/1041- 698/1134)  51.3 E22-E17 N16-N21
     11  560 1098 (N22E28 L=247)   256     95        1 ( 519/1069- 599/1117)   0.0 E30-E24 N20-N22
     12  372 1047 (N22E43 L=231)  1048    176        4 ( 308/ 984- 436/1101) -42.0 E49-E38 N17-N26
     13 1866  957 (S21W59 L=334)   505     42        2 (1848/ 936-1887/ 980)   9.5 W56-W62 S22-S19
     14 1503  544 (S35W20 L=294)  5353    994       11 (1211/ 249-1731/ 892)  29.9 E11-W43 S50-S18
     15 1053  827 (S05E03 L=271)   209     80        1 (1026/ 799-1081/ 865) -68.2 E04-E01 S06-S01
     16  192  805 (N10E68 L=206)   800    105        2 ( 168/ 762- 208/ 863)  33.7 E73-E64 N07-N13
     17 1052  542 (S22E10 L=264)   400    193        0 ( 999/ 488-1083/ 623)  41.2 E15-E07 S24-S17
     18  914  323 (S34E28 L=246)   703    140        0 ( 862/ 286- 975/ 375)  17.1 E34-E21 S36-S31
     19 1125  224 (S50E20 L=254)   527     78        1 (1085/ 204-1163/ 244)  -7.1 E24-E16 S51-S47
  

    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