Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  373 1620 (N29E58 L=137)  1980    154        4 ( 307/1560- 429/1670)  41.2 E63-E52 N25-N33
      2 1128 1521 (N26W03 L=198)   728    239        0 (1035/1446-1213/1573) -28.6 E03-W08 N22-N29
      3  419 1361 (N12E43 L=152)  3247    605       10 ( 297/1132- 539/1561) -56.8 E55-E31 S01-N25
      4 1086 1421 (N19W01 L=196)   197     30        0 (1061/1407-1109/1436)  26.6 W00-W02 N18-N20
      5  679 1398 (N15E25 L=170)   420     67        0 ( 643/1361- 712/1434)  68.2 E26-E22 N12-N17
      6  607 1408 (N16E30 L=165)   246     32        1 ( 589/1385- 635/1429)  33.7 E31-E27 N14-N16
      7  515 1382 (N14E36 L=159)   352     72        0 ( 484/1348- 549/1410)  45.0 E37-E33 N11-N15
      8 1657 1252 (N14W40 L=235)   448     53        1 (1623/1226-1690/1275)   0.0 W37-W42 N12-N15
      9  334 1233 (N04E47 L=148)   305     23        1 ( 314/1215- 353/1258)  63.4 E48-E45 N02-N05
     10  390 1109 (S03E41 L=154)   258     63        1 ( 365/1083- 422/1133)  26.6 E43-E38 S04-S01
     11  166 1030 (S08E63 L=132)  2427    269        7 ( 127/ 895- 198/1129)  81.9 E68-E58 S16-S02
     12 1771 1034 (N03W50 L=245)   337     62        0 (1738/1012-1795/1063)  36.9 W47-W52 N01-N04
     13  312 1016 (S09E47 L=148)   275     62        0 ( 291/ 984- 338/1047)  56.3 E49-E45 S10-S07
     14  272  858 (S18E52 L=143)  3125    491        7 ( 204/ 637- 324/1031) -85.2 E58-E48 S32-S08
     15 1927 1006 (N04W68 L=263)   514     45        2 (1901/ 985-1951/1028)  14.0 W64-W72 N02-N05
     16  540  885 (S16E30 L=165)  1160    368        1 ( 436/ 797- 614/ 940)  30.3 E37-E24 S21-S12
     17  741  892 (S15E16 L=179)   468    208        5 ( 646/ 845- 823/ 940)  24.4 E22-E11 S17-S11
     18  383  895 (S16E42 L=153)   359     86        1 ( 355/ 858- 400/ 932)  68.2 E44-E40 S18-S13
     19 1445  489 (S34W37 L=232)   439    144        0 (1395/ 456-1500/ 524) -15.3 W31-W42 S35-S31
     20  960  460 (S41W00 L=195)   351     53        0 ( 929/ 431- 984/ 485) -36.9 E02-W02 S42-S39
     21 1132  437 (S41W14 L=209)   226     54        1 (1102/ 422-1159/ 454)  26.6 W11-W16 S42-S39
     22 1429  220 (S53W60 L=255)   830     87        0 (1386/ 200-1475/ 245)  -2.7 W50-W72 S54-S52
  

    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