Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  880 1358 (N28W01 L=314)   338     58        1 ( 840/1331- 907/1378) -63.4 E01-W02 N25-N29
      2 1793 1240 (S05W55 L=  8)  1363    175        2 (1766/1149-1814/1321)  45.0 W50-W60 S10-S01
      3  847 1097 (N14E08 L=305)   760    300        1 ( 726/1019- 959/1139) -39.3 E15-E03 N07-N17
      4 1390 1092 (S01W22 L=335)   339    112        0 (1341/1060-1439/1110) -18.4 W18-W24 S02-N00
      5  418  909 (N14E40 L=273)  1085    165        4 ( 368/ 843- 480/ 985) -60.9 E42-E35 N09-N18
      6 1360  885 (S11W15 L=328)   210     74        1 (1328/ 864-1388/ 910) -45.0 W13-W16 S12-S09
      7 1421  678 (S25W14 L=327)  1205    394        2 (1320/ 535-1557/ 823)  27.6 W04-W25 S31-S20
      8  342  741 (N06E51 L=262)   599     77        2 ( 301/ 711- 377/ 772) -59.0 E54-E47 N03-N08
      9  229  675 (N04E65 L=248)   589     65        1 ( 208/ 647- 256/ 699)  14.0 E69-E61 N02-N05
     10  390  574 (S05E53 L=260)   376     56        1 ( 367/ 551- 423/ 593)   0.0 E56-E50 S05-S03
     11  903  464 (S23E23 L=290)  1523    308        6 ( 796/ 345-1001/ 570)  24.2 E34-E14 S28-S18
     12  417  453 (S12E58 L=255)  1441    235        2 ( 344/ 412- 479/ 513) -53.1 E62-E52 S15-S07
     13 1172  331 (S41E13 L=300)   297     79        0 (1151/ 293-1202/ 359)  33.7 E16-E10 S43-S38
     14  715  215 (S35E53 L=260)   458     43        0 ( 698/ 193- 739/ 240)  33.7 E56-E50 S37-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