Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1467 1674 (N48W11 L= 77)   394     36        0 (1438/1654-1494/1691)   9.5 W08-W14 N46-N49
      2 1519 1588 (N42W17 L= 83)   331     48        0 (1494/1570-1536/1616)  68.2 W15-W18 N40-N45
      3 1550 1536 (N39W21 L= 87)   454     57        0 (1525/1505-1574/1564)  63.4 W18-W22 N36-N42
      4 1622 1517 (N41W28 L= 94)   353     72        0 (1609/1480-1633/1555) -80.5 W26-W28 N38-N44
      5  239 1462 (N02E71 L=355)   717     58        1 ( 212/1436- 277/1479)  -4.8 E77-E65 N00-N02
      6 1019 1419 (N15E11 L= 55)   317    111        1 ( 990/1365-1038/1465) -38.7 E13-E08 N12-N17
      7 1638 1220 (N21W32 L= 98)   360     47        0 (1613/1198-1655/1253)  76.0 W30-W33 N19-N23
      8 1900 1141 (N27W61 L=127)  1649    227        0 (1869/1024-1922/1239) -77.0 W56-W65 N19-N32
      9  217 1137 (S18E60 L=  6)  1151    217        0 ( 159/1101- 296/1185)  10.6 E67-E51 S20-S15
     10 1268 1117 (N04W11 L= 77)   216     75        0 (1239/1092-1298/1157) -11.3 W08-W13 N03-N05
     11 1838 1114 (N22W53 L=119)   464     90        0 (1824/1066-1855/1157) -68.2 W50-W54 N19-N24
     12 1338 1044 (N02W17 L= 83)   232     85        0 (1302/1023-1369/1072)  63.4 W14-W18 N00-N04
     13  185  876 (S34E63 L=  3)   771     87        0 ( 151/ 845- 231/ 913) -10.3 E68-E56 S36-S32
  

    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