Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  983 1832 (N44E36 L=184)   760    121        2 ( 945/1799-1034/1860)  74.1 E39-E32 N40-N47
      2 1350 1684 (N46E01 L=220)  1518    194        3 (1304/1602-1406/1749) -81.9 E02-W02 N38-N52
      3 1800 1371 (N41W49 L=269)  1086    107        2 (1756/1326-1841/1419) -29.7 W42-W54 N38-N43
      4 1691 1351 (N34W35 L=255)   596    128        0 (1675/1304-1720/1413)  77.5 W33-W38 N31-N40
      5 1489 1336 (N26W19 L=239)   429    100        2 (1441/1314-1530/1362)   0.0 W15-W22 N24-N27
      6  373 1186 (S13E45 L=175)   271     55        1 ( 348/1163- 398/1207)  45.0 E47-E43 S14-S11
      7  917  683 (S28W04 L=224)   352    115        0 ( 876/ 644- 977/ 710)  56.3 W01-W07 S31-S24
      8 1419  586 (S18W38 L=258)   251     96        0 (1377/ 569-1447/ 616)  53.1 W35-W39 S19-S15
      9  679  563 (S43E08 L=212)   265      8        0 ( 661/ 542- 696/ 582) -33.7 E09-E06 S44-S41
     10 1102  397 (S39W29 L=249)   733    124        0 (1050/ 362-1148/ 446)  82.9 W26-W30 S42-S34
     11 1292  352 (S35W44 L=265)   393    107        0 (1253/ 320-1327/ 387) -80.5 W42-W45 S37-S31
     12  842  289 (S57W19 L=240)   346     56        0 ( 829/ 255- 859/ 317) -50.2 W16-W23 S59-S53
     13 1069  288 (S47W35 L=256)   296     56        1 (1044/ 265-1094/ 310)  -7.1 W31-W39 S48-S45
  

    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