Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  841 1494 (N39E01 L=127)   618    169        1 ( 821/1435- 878/1573)  60.9 E03-W02 N34-N44
      2 1071 1539 (N37W17 L=145)   310     84        1 (1041/1508-1113/1557)   0.0 W14-W19 N34-N37
      3 1543 1384 (N15W42 L=170)   270     72        1 (1521/1345-1561/1418) -90.0 W40-W43 N12-N17
      4  858 1223 (N22E06 L=122)  1148    344        1 ( 784/1091- 969/1351) -68.7 E08-E01 N12-N31
      5  118 1145 (N28E77 L= 51)   889     85        1 ( 102/1100- 134/1185)  78.7 E81-E73 N25-N30
      6  709  938 (N08E20 L=108)   197     58        1 ( 671/ 917- 728/ 958)  14.0 E22-E18 N06-N09
      7 1081  918 (S00W01 L=129)   196     66        1 (1062/ 891-1104/ 949) -63.4 W00-W02 S01-N01
      8  167  907 (N14E67 L= 61)   915    101        1 ( 130/ 858- 194/ 941)  68.2 E73-E62 N10-N15
      9  208  866 (N11E62 L= 66)   795    137        2 ( 191/ 799- 227/ 937)  71.6 E65-E59 N06-N15
     10  966  857 (S01E07 L=121)   371    116        2 ( 904/ 830-1011/ 895)   0.0 E10-E03 S02-N00
     11 1660  754 (S24W36 L=164)  1614    302        2 (1580/ 626-1723/ 870)  42.7 W28-W42 S30-S18
     12  521  727 (S01E37 L= 91)   331     79        0 ( 507/ 684- 537/ 777)  53.1 E39-E35 S03-N01
     13 1190  672 (S17W02 L=131)   449     90        4 (1161/ 638-1229/ 704)  26.6 W00-W05 S19-S14
     14  905  541 (S19E18 L=110)   585    211        2 ( 851/ 497- 963/ 621) -78.7 E20-E14 S23-S13
     15 1040  605 (S18E08 L=120)   260    103        0 ( 991/ 573-1078/ 621) -45.0 E10-E06 S20-S16
     16 1073  514 (S24E08 L=120)   310    108        1 (1029/ 471-1104/ 558)  23.2 E12-E05 S26-S21
     17  388  427 (S18E63 L= 65)   896    135        1 ( 318/ 406- 430/ 457)   5.4 E76-E55 S19-S16
     18 1106  365 (S36E11 L=117)  1043    160        5 (1032/ 324-1177/ 412)   0.0 E16-E05 S38-S33
     19 1598  365 (S54W34 L=163)   699     60        2 (1574/ 345-1631/ 391) -26.6 W29-W41 S56-S49
     20 1003  317 (S37E20 L=108)   598     60        3 ( 972/ 286-1035/ 354)  71.6 E22-E17 S40-S34
     21  821  253 (S38E37 L= 91)  2747    334        5 ( 681/ 173- 943/ 326)  11.0 E61-E24 S43-S33
  

    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