Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1065 1897 (N52E37 L=235)   451     45        0 (1040/1883-1092/1911)  63.4 E39-E33 N49-N53
      2 1402 1581 (N38W07 L=278)   501     86        0 (1352/1553-1444/1602)   0.0 W02-W10 N36-N39
      3  317 1558 (N07E67 L=205)   752     64        0 ( 297/1522- 338/1593) -53.1 E70-E64 N05-N09
      4  506 1462 (N05E44 L=228)   358     64        2 ( 489/1420- 522/1495) -45.0 E45-E41 N02-N07
      5  962 1374 (N11E13 L=259)   630    191        0 ( 895/1302-1001/1452) -24.4 E19-E08 N08-N14
      6  272 1164 (S17E53 L=218)  2038    507        4 ( 180/ 977- 404/1363)  65.2 E61-E47 S28-S02
      7 1070  849 (S14W07 L=279)   340     80        1 (1032/ 824-1105/ 881)  36.9 W05-W09 S16-S12
      8 1400  702 (S13W31 L=302)   470    157        0 (1351/ 639-1420/ 772) -29.1 W25-W34 S15-S10
      9  289  630 (S50E51 L=220)   396     52        0 ( 270/ 605- 310/ 660) -63.4 E53-E47 S51-S47
     10  375  621 (S48E39 L=233)   514     86        1 ( 335/ 603- 416/ 647)  20.0 E44-E33 S50-S45
     11 1320  616 (S20W30 L=301)   301     93        0 (1271/ 605-1371/ 629)  18.4 W26-W32 S20-S17
     12 1197  562 (S26W25 L=296)   469    153        0 (1129/ 529-1270/ 581)  16.7 W20-W30 S28-S25
     13 1657  442 (S17W65 L=337)  1295    139        1 (1594/ 420-1724/ 466)  23.2 W59-W73 S20-S14
     14  905  384 (S47W16 L=287)   904    193        3 ( 824/ 343- 994/ 432)   0.0 W07-W24 S48-S44
     15 1103  296 (S45W36 L=308)   399     74        0 (1072/ 274-1144/ 323)   8.1 W32-W40 S46-S44
  

    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