Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1403 1627 (N44W32 L=159)  1136    221        2 (1363/1549-1440/1696)  50.2 W27-W38 N37-N49
      2 1005 1640 (N45E03 L=124)   889    252        6 ( 966/1564-1056/1693)  68.2 E06-W01 N38-N49
      3  352 1545 (N34E57 L= 70)   516     79        1 ( 331/1520- 382/1563)  21.8 E59-E54 N32-N35
      4 1439 1437 (N30W30 L=157)   259     74        2 (1419/1404-1457/1465) -63.4 W28-W30 N27-N31
      5 1139 1305 (N21W07 L=134)   874    285        3 (1039/1212-1214/1397) -47.7 W00-W11 N15-N26
      6 1693 1193 (N14W47 L=174)   287     67        0 (1664/1177-1718/1213)   0.0 W44-W49 N12-N14
      7 1091 1114 (N09W04 L=131)   505    231        1 ( 997/1071-1208/1183) -30.3 E01-W11 N06-N13
      8 1454  885 (S05W28 L=155)   228     93        1 (1436/ 845-1472/ 932)  78.7 W26-W28 S07-S02
      9  383  850 (S09E44 L= 83)   294     99        0 ( 346/ 820- 429/ 884) -26.6 E46-E39 S11-S07
     10  338  674 (S21E50 L= 77)   327     87        1 ( 308/ 652- 369/ 699) -31.0 E52-E47 S22-S19
     11  523  411 (S40E41 L= 86)   432     95        1 ( 496/ 386- 542/ 444)  51.3 E44-E38 S41-S36
     12  604  381 (S42E35 L= 92)  1152    223        3 ( 546/ 338- 654/ 440)  31.6 E41-E28 S45-S36
     13 1449  379 (S40W37 L=164)  2115    395        5 (1299/ 334-1598/ 437)   9.1 W24-W50 S44-S35
  

    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