Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  838 1491 (N39E02 L=354)  1584    475        1 ( 695/1406-1049/1602) -43.7 E12-W10 N28-N50
      2 1214 1355 (N22W19 L= 16)   210    102        0 (1198/1314-1233/1405)  63.4 W18-W21 N19-N25
      3  250 1296 (N36E58 L=298)  1322    180        4 ( 179/1245- 329/1332)  -7.1 E72-E48 N32-N38
      4  457 1154 (N25E35 L=321)   777    134        3 ( 397/1093- 494/1201) -48.8 E40-E32 N20-N28
      5  353 1006 (N17E45 L=311)   320     97        0 ( 333/ 961- 383/1040)  63.4 E47-E42 N14-N18
      6  488  983 (N14E35 L=322)   228     84        0 ( 457/ 947- 516/1020) -59.0 E36-E33 N11-N16
      7  203  945 (N15E62 L=295)   750    142        3 ( 179/ 881- 226/1002) -76.0 E64-E58 N10-N18
      8  602  963 (N11E27 L=330)   267     99        0 ( 551/ 935- 645/ 980)   0.0 E30-E23 N09-N11
      9  260  749 (N03E60 L=297)   484    116        2 ( 245/ 704- 272/ 806)  63.4 E63-E57 N00-N06
     10  844  690 (S09E17 L=339)   680    315        0 ( 735/ 608- 923/ 777)  23.6 E26-E10 S12-S05
     11 1726  562 (S40W46 L= 43)   403     49        1 (1707/ 535-1743/ 584)  90.0 W43-W48 S42-S37
     12 1469  545 (S33W20 L= 16)   296     56        1 (1446/ 518-1489/ 571)  71.6 W18-W21 S35-S31
     13 1313  438 (S37W06 L=  3)   484     82        1 (1280/ 412-1341/ 473)  18.4 W03-W09 S38-S34
     14  965  319 (S37E22 L=335)   392     64        0 ( 943/ 286- 987/ 352)  33.7 E25-E19 S39-S34
  

    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